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编写 目的 与 背景 
众所周知 ， 当 前 社会 需求 和 高 校 课程 设置 严重 脱节 ， 一 方面 企业 找 不 到 可 迅速 上 手 的 人 才 ， 另 一 


方面 大 学 生 就 业 难 。 如 果 有 一 些 面向 工作 应 用 的 案例 参考 书 ， 让 大 学 生得 以 参考 ， 并 能 亲手 去 做 ， 势 
必 能 缓解 这 种 矛盾 。 本 书 就 是 这 样 一 本 书 : 项 目 开发 案例 型 的 、 面 向 工作 应 用 的 软件 开发 类 图 书 。 编 


自主 自发 学 习 。 
再 次 ， 本 书 的 项 目 开发 案例 过 程 完整 ， 不 但 适合 在 学 习 软 件 开 发 时 作为 小 型 项 目 开 发 的 参考 书 ， 


转眼 5 年 已 过 ， 我 们 根据 读者 朋友 的 反馈 ， 对 丛书 内 容 进 行 了 优化 和 升级 ， 进 一 步 修正 之 前 版 本 
中 的 疏漏 之 处 ， 并 增加 了 大 量 的 辅助 学 习 资 源 ， 相 信 这 套 书 一 定 能 带 给 您 惊喜 ! 


本 书 特点 


EA 微 视频 讲解 


对 于 初学 者 来 说 ， 视 频 讲 解 是 最 好 的 导师 ， 它 能 够 引导 初学 者 快速 入 门 ， 使 初学 者 感受 到 编程 的 
快乐 和 成 就 感 ， 增 强 进一步 学 习 的 信心 。 鉴 于 此 ， 本 书 为 大 部 分 章节 都 配备 了 视频 讲解 ， 使 用 手机 扫 
描 正文 小 节 标 题 一 侧 的 二 维 码 ， 即 可 在 线 学 习 项 目 制作 的 全 过 程 。 同 时 ， 本 书 提供 了 程序 配置 使 用 说 
明 的 讲解 视频 ， 扫 描 封 底 的 二 维 码 即 可 进行 学 习 。 


G 典型 案例 


本 书 案例 均 从 实际 应 用 角度 出 发 ， 应 用 了 当前 流行 的 技术 ， 涉 及 的 知识 广泛 ， 读 者 可 以 从 每 个 案 
例 中 积累 丰富 的 实战 经 验 。 


A 代码 注释 
为 了 便于 读者 阅读 程序 代码 ， 书 中 的 代码 均 提 供 了 详细 的 注释 ， 并 且 整 齐 地 纵向 排列 ， 可 使 读者 
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快速 领略 笔者 意图 。 
Q 代码 贴 十 


案例 类 书籍 通常 会 包含 大 量 的 程序 代码 ， 宛 长 的 代码 往往 令 初 学 者 望 而 生 旦 。 为 了 方便 读者 阅读 
和 理解 代码 ， 本 书 避 免 使 用 连续 大 篇 幅 的 代码 ， 将 其 分 割 为 多 个 部 分 ， 并 对 重要 的 变量 、 方 法 和 知识 
点 设计 了 独 具 特 色 的 代码 贴 士 。 


T9. 知识 扩展 


为 了 增加 读者 的 编程 经 验 和 技巧 ， 书 中 每 个 案例 都 标记 有 注意 、 技 巧 等 提示 信息 ， 并 且 在 每 章 中 
都 提供 有 一 项 专题 技术 。 


本 书 约定 


由 于 篇 幅 有 限 ， 本 书 每 章 并 不 能 逐一 介绍 案例 中 的 各 模块 。 笔 者 选择 了 基础 和 典型 的 模块 进行 介 
绍 ， 对 于 功能 重复 的 模块 ， 由 于 技术 、 设 计 思 路 和 实现 过 程 基本 相同 ， 因 此 没有 在 书 中 体现 。 读 者 在 
学 习 过 程 中 若 有 相关 疑问 ， 请 登录 本 书 官方 网 站 。 本 书 中 涉及 的 功能 模块 在 资源 包 中 都 附带 有 视频 讲 
解 ， 方 便 读者 学 习 。 


适合 读者 


本 书 适合 作为 计算 机 相关 专业 的 大 学 生 、 软 件 开发 相关 求职 者 和 爱好 者 的 毕业 设计 和 项 目 开发 的 
参考 书 。 


本 书 服务 


为 了 给 读者 提供 更 为 方便 快捷 的 服务 ， 读 者 可 以 登录 本 书 官 方 网 站 (www.mingrisoftcom) 或 清华 
大 学 出 版 社 网 站 (www.tup.com.cn), 在 对 应 图 书页 面 下 载 本 书 资 源 包 , 也 可 加 入 企业 QQ (4006751066) 
进行 学 习 交 流 。 学 习 本 书 时 ， 请 先 扫描 封底 的 二 维 码 ， 即 可 学 习 书 中 的 各 类 资源 。 


本 书 作 者 


本 书 由 明日 科技 软件 开发 团队 组 织 编写 ， 主 要 由 李菁 靖 执 笔 ， 参 与 本 书 编写 工作 的 还 有 赛 奎 春 、 
EMER HEE, EEE AW FRR KE KERE phi AE BEA AA Fa 
AI ET BER RID. HRU BER, HRE MAUR AiR FE DE. KZI 
EE, EA IA. EER WER KAE RR, Pki FE. PMEM F RE RER 
白 兆 松 、 依 莹 莹 、 李 颖 、 王 欢 等 ， 在 此 一 并 感谢 ! 

在 编写 本 书 的 过 程 中 ， 我 们 本 着 科学 、 严 谦 的 态度 ， 力 求 精益 求 精 ， 但 错误 、 朴 漏 之 处 在 所 难免 ， 
敬 请 广大 读者 批评 指正 。 

感谢 您 购买 本 书 ， 希 望 本 书 能 成 为 您 的 良师益友 ， 成 为 您 步 入 编程 高 手 之 路 的 踏 脚 石 。 

宝剑 锋 从 磨 研 出 ， 梅 花香 自 苦寒 来 。 祝 读书 快乐 ! 


[ 


编 者 


第 1 章 图 书 管理 系统 (Visual C++ 6.0 
SM. aee aeter rete 1 





L31 系统 目标 . 
1.3.2 ”系统 功能 结构 .. 
133 系统 预览 . 
1.3.4 业务 流程 图 .. 
14 公共 类 设计 … 
1.5 主 窗 体 模块 设计 … 
L51 主 窗 体 模块 概述 … 
152 主 窗 体 模块 技术 分 析 …. 
L53 主 窗 体 模块 实现 过 程 …. 
1.6 添加 新 书 模块 设计 .… 
1.6.1 添加 新 书 模块 概述 .… 
162 添加 新 书 模块 技术 分 析 
1.6.3 ”添加 新 书 模块 实现 过 程 
17 浏览 全 部 模块 设计 ... 
1.7.1 浏览 全 部 模块 概述 .… 
1.7.2 浏览 全 部 模块 技术 分 析 
1.7.3 ”浏览 全 部 模块 实现 过 程 . 
18 删除 图 书 模块 设计 ... 
1.8.1 删除 图 书 模块 概述 … 
182 ”删除 图 书 模块 技术 分 析 
1.83 删除 图 书 模块 实现 过 程 
19 实现 全 部 模块 
1.10 项 目 文件 清单 n 
EE  — o1 ES 















V o o 00 4 U UO t oM OM OM 






































$929 餐饮 管理 系统 (Visual C++ 6.0+ 


Microsoft Access 2010 Sc)... 18 


EB 视频 讲解 ， 54 分 钟 


231 
232 
23.3 
234 
23.5 数据 库 设计 … 

24 公共 类 设计 . 

25 主 窗 体 设 计 

2.6 注册 模块 设计 . 
2.6.1 注册 模块 概述 
2.662 ”注册 模块 技术 分 析 
2.6.3 ”注册 模块 实现 过 程 

2.7 登录 模块 设计 . 
2.7.1 登录 模块 概述 
2.7.2 ”登录 模块 技术 分 析 
2.7.3 ”登录 模块 实现 过 程 

28 开 台 模块 设计 . 
28. 开 台 模块 概述 … 
282 FERRERA 
283 开 台 模块 实现 过 程 

29 ”点 菜 模块 设计 . 
2.9.1 点 菜 模块 概述 
2.9.2 点 菜 模块 技术 分 析 
2.9.3 点 菜 模块 实现 过 程 
248 MINE Leere rta ME 

















C++ 项 目 开发 全 程 实录 (第 2 版 ) 


240 AUEBORHER Lue seio 44 
2401 结账 模块 概述 .…- 
2402 ”结账 模块 技术 分 析 -. 
2.10.3 ”结账 模块 实现 过 程 .. 
2.10.4 单元 测试 ……… 

2.11 数据 库 维护 模块 设计 . 
2.11.1 数据 库 维护 模块 概述 .. 
2112 ”数据库 维 护 模块 技术 分 析 .… 
2413 ”数据 库 维护 模块 实现 过 程 .… 
2114 单元 测试 .… 

242 打包 发 行 
2.12.1 选择 合适 的 打包 工具 .… 
2.2.2 InstallShield 打包 方案 . 
2123 ”设置 工程 文件 
2424 RR... 

243 开发 问题 解析 

2.14 项 目 文件 清单 " 

bp bi e iei 61 










































第 3 章 客房 管理 系统 (Visual C++ 6.0* 
SQL Server 2014 RIR) .....n.na1- 62 





3.3 系统 设计 .… 
3.3.1 系统 目标 .…. 
332 ”系统 功能 结构 .. 














3.5 ”数据 库 设计 .…. 
34 主 窗 体 设计 ... 
341 主 窗 体 概述 .… 
342 主 窗 体 实现 过 程 
3.5 登录 模块 设计 
3.5.1 登录 模块 概述 .… 
3.5.2 ”登录 模块 技术 分 析 
3.53 ”登录 模块 实现 过 程 
36 客房 预订 模块 设计 ... 


e. 












3.61. 客房 预订 模块 概述 ioiii 79 
3.62 客房 预订 模块 技术 分 析 .… 
3.63 客房 预订 模块 实现 过 程 .. 

37 追加 押金 模块 设计 . 
3.7.1 追加 押金 模块 概述 
3772 ”追加 押金 模块 技术 分 析 .. 
3.7.3 ”追加 押金 模块 实现 过 程 .. 

38 调 房 登 记 模块 设计 . 
3.8.1 调 房 登 记 模块 概述 
3.82 ” 调 房 登记 模块 技术 分 析 .… 
3.83 调 房 登 记 模块 实现 过 程 .. 

39 客房 销售 报表 模块 设计 . 
3.9.1 客房 销售 报表 模块 概述 .. 
392 ”客房 销售 报表 模块 技术 分 析 … 
3.9.3 客房 销售 报表 模块 实现 过 程 … 

3.10 项 目 文件 清单 " 

31] 本 章 总 结 ...109 














第 4 章 ， 人 事 考勤 管理 系统 (Visual C++ 6.0* 


SQL Server 2014 RI) uu. 110 
4.1 开发 背景 
42 需求 分 析 
43 系统 设计 .... 
4.3.1 系统 目标 .. 
4.3.2 系统 功能 结构 
4.3.3 系统 预览 …… 
4.3.4 业务 流程 图 … 
43.5 数据 库 设计 
4.4 公共 模块 设计 . 
45 主 窗 体 设计 … 
4.6 用 户 登 录 模 块 设计 . 
4.6.1 用 户 登 录 模 块 概述 
462 ”用户 登 录 模块 技术 分 析 .… 
463 用 户 登录 模块 实现 过 程 
4.7 用 户 管理 模块 设计 . 
4.7.1 用 户 管理 模块 概述 
472 用 户 管理 模块 技术 分 析 .… 




























4.7.3 ”用 户 管理 模块 实现 过 程 ……………………….125 
ATA HG... 
48 部 门 管理 模块 设计 
4.8.1 部门 管理 模块 概述 .……- 
482 部 门 管理 模块 技术 分 析 
4.8.3 部 门 管理 模块 实现 过 程 
4.9 人 员 信息 管理 模块 设计 … 
491 人 员 信息 管理 模块 概述 .…- 
492 ”人员 信息 管理 模块 技术 分 析 .… 
493 人 员 信 息 管理 模块 实现 过 程 .. 
4.10 考勤 管理 模块 设计 
4.10.1 考勤 管理 模块 概述 
4.10.2 考勤 管理 模块 技术 分 析 
4.10.3 考勤 管理 模块 实现 过 程 … 
4.11 考勤 汇总 查询 模块 设计 . 
4.11.1 考勤 汇总 查询 模块 概述 ……- 
4112 考勤 汇总 查询 模块 技术 分 析 
41413 考勤 汇总 查询 模块 实现 过 程 
412 开发 技巧 与 难点 分 析 
4.12.1 调用 动态 链接 库 设 计 界面 
4122 主 窗口 的 界面 显示 .………- 
4.13 项 目 文件 清单 









































53. 系统 目标 . 
532 ”系统 功能 结构 .. 
5.3.3 系统 预览 . 






5.4 数据 库 封 装 类 说 明 
541 数据 库 封装 类 概述 
542 ”数据 库 封装 类 步骤 .… 





5.4.3 数据库 封装 类 实现 过 程 sl 155 
55 主 窗 体 设 计 
55.1 主 窗 体 概述 
552 主 窗 体 实现 过 程 … 
5.5.3 ”菜单 选项 实现 过 程 
5.6 采购 管理 模块 及 按键 设计 . 
5.6.1 采购 申请 模块 概述 ………… 
5.62 采购 申请 模块 技术 分 析 .… 
5.6.3 采购 申请 模块 实现 过 程 .. 
5.6.4 采购 物品 操作 模块 实现 过 程 … 
5.6.5 采购 添加 物品 模块 实现 过 程 … 
5.66 Wi... 
57 基本 信息 模块 设计 . 
5.7.1 基本 信息 模块 概述 
5.7.2 ”基本 信息 模块 技术 分 析 .… 
5.7.3 ”基本 信息 模块 实现 过 程 .. 
5.8 实现 系统 及 单元 测试 . 
5.8.1 实现 完整 系统 
582 单元 测试 …… 
5.9 项 目 文件 清单 . 











































第 6 章 文档 管理 系统 (Visual Studio 2017+ 


SQL Server 2014 实现 ) s 196 

E uA: 56 分 钟 
61 开发 背景 
6.2 需求 分 析 
63 系统 设计 
6.3.1 
6.3.2 
6.3.3 
6.3.4 
6.3.5 
64 技术 准备 
64.1 添加 ADO 连接 类 . 
642 ”添加 数据 库 表 的 类 
65 主 窗 体 设计 ..... 
65. 主 窗 体 概述 .… 









C++ 项 目 开发 全 程 实录 (第 2 版 ) 


652 3B ESEHERERE LL Ls 211 
66 登录 管理 模块 设计 .… 
6.6.1 登录 管理 模块 概述 .… 
662 ”登录 管理 模块 技术 分 析 
6.6.3 ”登录 管理 模块 实现 过 程 
6.7 单位 档案 模块 设计 .…. 
6.7.1 单位 档案 模块 概述 .… 
6.7.2 单位 档案 模块 技术 分 析 
6.7.3 ”单位 档案 模块 实现 过 程 
68 文档 类 别 模块 设计 ... 
6.8.1 文档 类 别 模块 概述 .… 
682 文档 类 别 模块 实现 过 程 . 
69 文档 管理 模块 设计 
6.9.1 文档 管理 模块 概述 .……… 
6.9.2 文档 管理 模块 技术 分 析 
6.9.3 文档 管理 模块 实现 过 程 . 
6.10 口令 修改 模块 设计 
6.10.1 口令 修改 模块 概述 .…… 
6.10.2 口令 修改 模块 实现 过 程 - 
611 开发 问题 解析 LL eee 
6.111 怎样 将 数据 表 中 的 数据 添加 到 ListControl 



























6.11.2 怎样 取得 文件 的 完整 路 径 
612 项 目 文件 清单 






第 7 章 FTP 管理 系统 (Visual Studio 2017+ 

TOPP RI) ea 246 

Ems 视频 讲解 : 41 分 钟 
71 TAX. 
72 需求 分 析 ... 
73 ”系统 设计 ... 
7.3.1 系统 目标 . 
73.2 ”系统 功能 结构 .… 
733 ”系统 预览 …. 
734 业务 流程 
7A 关键 技术 分 析 


e. 
















744. 设计 类 似 于 资源 管理 器 的 列表 视图 
742 登录 FTP 服务 器 
743 实现 FTP 目录 浏览 … 
744 多 任务 下 载 FTP 文件 
745 在 任务 列表 中 暂停 、 取 消 某 一 任务 .. 
74.6 ”利用 鼠标 拖 昌 实现 文件 的 上 传 /下 载 
7.4.7 直接 创建 多 级 目录 .pp 
7.4.8 根据 文件 扩展 名 获取 文件 的 系统 图 标 
749 关闭 工具 栏 时 取消 菜单 项 的 复 选 标 记 .……277 
75 主 窗口 设计 
751 主 窗口 概述 … 
752 主 窗口 界面 布局 
753 主 窗 口 实现 过 程 
7.6 登录 信息 栏 设 计 . 
7.6.1 登录 信息 概述 .… 
7.62 ”登录 界面 布局 .… 
7.6.3 ”登录 实现 过 程 
7.7 工具 栏 窗口 设计 . 
7.7.1 工具 栏 窗口 概述 
772 工具 栏 窗口 界面 布局 . 
7.7.3 工具 栏 窗口 实现 过 程 . 
78 本 地 信息 窗口 设计 . 
7.8.1 本 地 信息 窗口 概述 
7.82 ”本 地 信息 窗口 界面 布局 .. 
7.8.3 本 地 信息 窗口 实现 过 程 .. 
7.9 远程 FTP 服务 器 信息 窗口 设计 
7.9.1 远程 FIP 服务 器 信息 窗口 概述 … T 
79.2 远程 FTP 服务 器 信息 窗口 界面 布局 ……… 
79. 远程 FTP 服务 器 信息 窗口 实现 过 程 ……… 
710 任务 列表 窗口 设计 … 
7.10.1 任务 列表 窗口 概述 .… 
7402 ”任务 列表 窗口 界面 布局 … 
7.10.3 任务 列表 窗口 实现 过 程 … 
7.11 项 目 文件 清单 
712 本 章 总 结 


















































第 8 章 媒体 播放 器 (Visual Studio 2017+ 
Direct Show 实现 ) 





8.2 需求 分 析 . 
83 系统 设计 . 
8.3.1 系统 目标 …… 
832 系统 功能 结构 
833 系统 预览 … 
8.3.4 业务 流程 图 
84 关键 技术 分 析 




















8.4.1 
8.4.2 
8.4.3 





如 何 使 用 Direct Show FRE. " 
使 用 Direct Show 开发 程序 的 方法 …………304 
使 用 Direct Show 如 何 确定 媒体 文件 播放 
EE 
使 用 Direct Show 进行 音量 和 播放 进度 的 
使 用 Direct Show 实现 字幕 全 加 . zi 
使 用 Direct Show 实现 亮度 、 饱 和 度 和 
对 比 度 调节 
847 设计 显示 目录 和 文件 的 树 视图 控件 
8.5 媒体 播放 器 主 窗 口 设计 
85.1. 媒体 播放 器 主 窗口 概述 .. 
852 ”媒体 播放 器 主 窗口 界面 设计 .… 
8.5.3 ”媒体 播放 器 主 窗口 实现 过 程 .… 
8.6 视频 显示 窗口 设计 
8.6.1 视频 显示 窗口 概述 
8.62 ”视频 显示 窗口 界面 设计 .… 
8.6.3 ”视频 显示 窗口 实现 过 程 . 
87 字幕 登 加 窗口 设计 
871 字幕 登 加 窗口 概述 . 
8.72 EBD D wi. 
8.73 ”字幕 又 加 窗口 实现 过 程 .… 
8.8 视频 设置 窗口 设计 
8.8.1 视频 设置 窗口 概述 . 
8.8.2 ”视频 设置 窗口 界面 设计 
8.83 视频 设置 窗口 实现 过 程 .. - 
89 文件 播放 列表 窗口 设计 o sl 338 


8.4.4 





8.4.5 
8.4.6 

































8.9.1 
8.9.2 
8.9.3 


8.10 项 目 文件 清单 


HX 





文件 播放 列表 窗口 概述 …… 
文件 播放 列表 窗口 界面 设计 
文件 播放 列表 窗口 实现 过 程 








8 Sc. Le socero 


第 9 章 


9.3.1 
9.32 
9.3.3 


94.5 


9.5 制作 PacMan... 


9.5.1 
95:2 


9.66 使 用 GDI 绘 图 . 


9.6.1 
9.6.2 
9.6.3 
9.6.4 
9.6.5 


97 地 图 及 关卡 制作 


9.71 
972 
97.3 
9.7.4 
273 
9.7.6 
93.1 


RZG-Fi3k (Visual Studio 2017 
实现 ) 





E 视频 讲解 ;1 小 时 30 分 钟 
91 开发 背景 ... 
92 需求 分 析 ... 
93 ”系统 设计 ... 





系统 目标 
系统 预览 … 
业务 流程 图 . 









建立 Windows 窗口 应 用 程序 
wWinMain 函数 … 
Windows 消息 循环 … 
常用 绘图 GDI.……… 
碰撞 检测 的 实现 .… 

















PacMan 程序 框架 初步 分 析 .… 


画 点 …… 
HE 





画 玩 家 … 





地 图 类 设计 .… 
第 一 关 地 图 的 设计 .… 
第 二 关 地 图 的 设计 .… 
第 三 关 地 图 的 设计 .… 
地 图 类 的 实现 ……… 
游戏 隐藏 后 门 的 实现 
第 一 关 地 图 的 实现 ss 





C++ 项 目 开发 全 程 实录 (第 2 版 ) 


9.8 ”第 二 关 地 图 的 实现 380 
9.7.9 第 三 关 地 图 的 实现 
9.7.10 ”使 用 地 图 .………… 
9.8 游戏 可 移动 对 象 设计 与 实现 
98. "WEZ s. 
9.82 ”玩家 对 象 的 设计 … 
9.83. 可 移动 对 象 的 实现 
984 ”玩家 对 象 的 实现 … 
9.8.5 “完成 整个 游戏 .. 
99 项 目 文件 清单 … 
9.10 A335 s 


第 10 章 快乐 五 子 棋 (Visual Studio 2017+ 

























10.3.1 系统 功能 结构 
10.3.2 系统 预览 ……. 
10.3.3 ”业务 流程 图 .… 
10.3.4. 程序 运行 环境 
10.4 关键 技术 分 析 与 实现 . 
10.4.1 使 用 TCP 进行 网 络 通信 .. 
1042 定义 网 络 通信 协 认 
10.4.3 ”实现 动态 调整 棋盘 大 小 













1044 在 棋盘 中 绘制 棋子 ………….……. 
104.5 五 子 棋 赢 棋 判 断 …… 
104.6 设计 游戏 悔 棋 功能 … 
104.7 设计 游戏 回放 功能 … 
104.8 ”对 方 网 络 状态 测试 … 
105 服务 器 端 主 窗 体 设计 .… 
10.5.1 ”服务 器 端 主 窗 体 概述 … 
10.5.2 ”服务 器 端 主 窗 体 实现 过 程 
10.6 棋盘 窗 体 模块 设计 
10.6.1 棋盘 窗 体 模块 概述 ……. 
10.62 ”棋盘 窗 体 模块 界面 布局 
10.6.3 ”棋盘 窗 体 模块 实现 过 程 … 
10.7 游戏 控制 窗 体 模块 设计 … 
10.7.1 游戏 控制 窗 体 模块 概述 ………- 
10.7.2 ”游戏 控制 窗 体 模块 界面 布局 . 
107.3 ”游戏 控制 窗 体 模块 实现 过 程 . 
108 ”对 方 信息 窗 体 模块 设计 
108.1 对方 信 息 窗 体 模块 概述 ………- 
10.8.2 ”对 方 信息 窗 体 模块 界面 布局 . 
10.8.3 对方 信息 窗 体 模块 实现 过 程 . 
10.9 客户 端 主 窗 体 模块 设计 … 
10.9.1 客户 端 主 窗 体 模块 概述 
10.9.2 客户 端 主 窗 体 模块 实现 过 程 . 
10.10 项 目 文件 清单 . 
10.11 
























和 ET 


E LR 





图 书 管理 系统 


( Visual C++ 6.0 实现 ) 


随 着 现代 社会 的 信息 量 不 断 增加 ， 图 书 的 种 类 及 信息 也 越 来 越 多 ， 
如 何 管理 数量 庞大 的 图 书信 息 成 为 了 图 书 管理 工作 中 的 一 大 难题 。 在 
计算 机 信息 技术 高 速 发 展 的 今天 ， 人 们 意识 到 原 有 的 人 工 管理 方式 已 
经 不 能 适应 社会 ， 而 使 用 计算 机 信息 系统 来 管理 才 是 最 有 效率 的 一 种 
手段 。 

通过 学 习 本 章 ， 读 者 可 以 学 到 : 
» 了 解 软件 整体 设计 
b 掌握 类 的 实际 应 用 
”掌握 分 页 数据 浏览 


掌握 文件 存储 数据 





x 
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11 X db oX* 


随 着 现代 图 书市 场 竞争 的 愈演愈烈 ， 如 何以 一 种 便捷 的 管理 方式 加 快 图 书 流通 信息 的 反馈 速度 ， 
降低 图 书库 存 占用 ， 缩 短 资金 周转 时 间 ， 提 高 工作 效率 ， 已 经 成 为 能 否 增强 图 书 企业 竞争 力 的 关键 。 
信息 技术 的 飞速 发 展 给 图 书 企业 的 管理 带 来 了 全 新 的 变革 ， 采 用 图 书 管理 系统 对 图 书 企业 的 经 营运 作 
进行 全 程 管理 ， 不 仅 使 企业 摆脱 了 以 往 人 工 管理 产生 的 一 系列 问题 ， 而 且 使 图 书 企业 提高 了 管理 效率 ， 
减少 了 管理 成 本 ， 增 加 了 经 济 效益 。 通 过 管理 系统 对 图 书 企业 的 发 展 进行 规划 ， 可 以 收集 大 量 关键 、 
可 靠 的 数据 。 企 业 决 策 层 分 析 这 些 数据 ， 作 出 合理 决策 ， 并 及 时 调整 ， 使 之 能 够 更 好 地 遵循 市 场 的 销 
售 规律 ， 适 应 市 场 的 变化 ， 从 而 让 企业 能 够 在 激烈 的 行业 竞争 中 占据 一 席 之 地 。 


12 需求 分 析 


目前 ， 图 书市 场 的 竞争 日 益 激烈 ， 这 迫使 图 书 企业 希望 采用 一 种 新 的 管理 方式 来 加 快 图 书 流通 信 
息 的 反馈 速度 ， 而 计算 机 信息 技术 的 发 展 为 图 书 管理 注入 了 新 的 生机 。 通 过 对 市 场 的 调查 得 知 ， 一 款 
合格 的 图 书信 息 管 理 系统 必须 具备 以 下 3 个 特点 。 

RI ”能 够 对 图 书信 息 进行 集中 管理 。 

回 ”能够 大 大 提高 用 户 的 工作 效率 。 

回 “能够 对 图 书 的 部 分 信息 进行 查询 。 


13 系统 设计 





视频 讲解 


1.3.1 系统 目标 


对 于 图 书 管理 系统 ， 必 须要 满足 使 用 方便 、 操 作 灵 活 和 安全 性 好 等 设计 和 需求。 设计 本 系统 时 应 该 
完成 以 下 几 个 目标 。 

图 书 的 录入 使 用 交互 方式 。 图 书 管理 系统 

能 够 浏览 文件 中 存储 的 全 部 图 书 。 | 
































图 书信 息 在 屏幕 上 的 输出 要 有 固定 格式 。 | 
ED “系统 最 大 限度 地 实现 易 维 护 性 和 易 操作 性 。 
E “系统 运行 稳定 、 安 全 可 靠 。 am — | 全部。 | 删除 
新 书 
模块 模块 模块 
1.8.0 ”系统 功能 结构 
系统 的 功能 结构 如 图 1.1 所 示 。 图 1.1 系统 功能 结构 


e. 
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ED ”添加 新 书 模块 : 该 模块 主要 供 图 书 管理 者 使 用 。 图 书 管理 者 应 用 该 模块 将 图 书信 息 录入 到 系 
统 ， 系 统 将 图 书信 息 保 存 到 文件 中 。 

回 ”浏览 全 部 模块 : 该 模块 供 读者 和 图 书 管理 者 使 用 。 图 书 管理 者 可 以 通过 该 模块 查看 图 书 是 否 
存在 ， 以 及 获取 图 书 的 编号 ， 方 便 日 后 删除 。 读 者 可 以 根据 该 模块 了 解 到 图 书 的 价格 和 作者 
等 信息 ， 从 而 决定 是 否 购买 。 

回 ”删除 图 书 模块 : 该 模块 主要 供 图 书 管理 者 使 用 。 图 书 管理 者 可 以 通过 该 模块 删除 书店 中 已 经 
销售 完 的 图 书 的 信息 。 














1.3.3 ”系统 预览 





图 书 管理 系统 由 添加 新 书 、 浏 览 全 部 和 删除 图 书 3 部 分 组 成 ， 由 于 篇 幅 有 限 ， 在 此 只 给 出 部 分 功 
能 预览 图 。 

图 书 管理 系统 的 主 界面 如 图 1.2 所 示 。 添 加 新 书 的 界面 如 图 1.3 所 示 。 

a^ 图书 曾 理 系统 c» 8) mtm 








s 医书 管理 系统 eamm] 

















图 1.2 图 书 管理 系统 主 界面 图 1.3 添加 新 书 界面 
浏览 全 部 的 界面 如 图 1.4 所 示 。 

















图 1.4 浏览 全 部 界面 





1.3.4. 业务 流程 图 


图 书 管理 系统 的 业务 流程 图 如 图 1.5 所 示 。 
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管理 员 
y 
m , jn 
Mans 浏览 图 所 sin 
浏览 编号 
BAS 浏览 名 输入 图 书 编号 
输入 价格 浏览 ISBN 
输入 作者 浏览 价格 
浏览 作者 
图 1.5 业务 流程 图 
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图 书 管理 系统 需要 创建 CBook 类 , 通过 CBook 类 可 实现 图 书记 录 的 写 入 和 删除 ,还 可 以 通过 CBook 
类 查看 每 条 图 书 的 信息 。CBook 类 中 包含 m_cName、m_cIsbn、m_cPrice 和 m cAuthor 共 4 个 成 员 变 
量 ， 分 别 代 表 图 书 的 名 称 、ISBN 编号 、 价 格 和 作者 。 在 设计 类 时 ， 可 以 将 成 员 变量 看 作 属 性 ， 此 外 ， 
类 中 还 需要 有 设置 属性 和 获取 属性 的 成 员 函 数 ， 设 置 属性 的 函数 以 set 开头 ， 获 取 属 性 的 函数 以 get 开 
头 。CBook 类 设计 图 如 图 1.6 所 示 。 














图 1.6 CBook 类 设计 图 
CBook 类 定义 在 头 文件 Bookh 中 ， 代 码 如 下 : 


stdefine NUM1 128 
#define NUM2 50 
class CBook 

( 

public: 


e. 
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CBook()) 
CBook(char* cName,char* clsbn,char* cPrice,char* cAuthor); 
^CBook()0 

public: 
char* GetName(); // 获 取 图 书 名 称 
void SetName(char* cName); /设置 图 书 名 称 
char Getlsbn(); /获取 图 书 ISBN 编号 
void Setlsbn(char clsbn); /设置 图 书 ISBN 编号 
char* GetPrice(); // 获 取 图 书 价格 
void SetPrice(char* cPrice); // 设 置 图 书 价格 
char* GetAuthor(); // 获 取 图 书 作者 
void SetAuthor(char* cAuthor); /设置 图 书 作 者 
void WriteData(); 


void DeleteData(int iCount); 

void GetBookFromFile(int iCount); 
protected: 

char m cName[NUM1]; 

char m clsbn[NUM1]; 

char m cPrice[NUM2J; 

char m cAuthor[NUM2]; 


X 





CBook 类 成 员 函 数 的 实现 都 存储 在 实现 文件 Book.cpp 内 。 





stinclude "Book.h" 

stinclude «string» 

stinclude «fstream» 

#include <iostream> 

#include <iomanip> 

using namespace std; 

CBook::CBook(char* cName,char* clsbn,char* cPrice,char* cAuthor) 


{ 
strncpy(m_cName,cName, NUM1); 
strncpy(m_clsbn,clsbn, NUM1); 
strncpy(m_cPrice,cPrice, NUM2); 
strncpy(m cAuthor,cAuthor, NUM2); 
) 
char* CBook::GetName() 
{ 
return m cName; 
} 
void CBook::SetName(char* cName) 
{ 
strncpy(m cName,cName,NUM1); 
} 
char* CBook::Getlsbn() 
{ 


return m clsbn; 
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void CBook::Setlsbn(char* clsbn) 
f 


strncpy(m clsbn,cisbn,NUM1); 
us CBook::GetPrice() 
t return m_cPrice; 
m CBook::SetPrice(char* cPrice) 
strncpy(m cPrice,cPrice, NUM2); 
M CBook::GetAuthor() 
: return m_cAuthor; 


} 
void CBook::SetAuthor(char* cAuthor) 





t 
strncpy(m cAuthor,cAuthor, NUM2); 
} 
函数 WriteData、GetBookFromFile 和 DeleteData 是 类 对 象 读 写 文件 的 函数 ， 相 当 于 操作 数据 库 的 
接口 。 


(1) 成 员 函 数 WriteData 主要 实现 将 图 书 对 象 写 入 到 文件 中 。 





void CBook::WriteData() 
{ 
ofstream ofile; 
ofile.open("book.dat" ios::binary|ios::app); 
try 
{ 
ofile.write(m_cName,NUM1); 
ofile.write(m_clsbn, NUM1); 
ofile.write(m_cPrice, NUM2); 
ofile.write(m_cAuthor, NUM2); 


} 
catch(...) 
t 


throw "file error occurred"; 
ofile.close(); 


) 
ofile.close(); 
) 


(2) 成 员 函 数 GetBookFromFile 能 够 实现 从 文件 中 读 取 数据 来 构建 对 象 。 





void CBook::GetBookFromFile(int iCount) 
{ 


e. 
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char cName[NUM1]; 
char clsbn[NUM1]; 
char cPrice[NUM2J]; 
char cAuthor[NUM2]; 
ifstream ifile; 
ifile.open("book.dat" ios::binary); 
try 
t 
ifile.seekg(iCount*(NUM1*NUM1*NUM2*NUM2),ios::beg); 
ifile.read(cName,NUM1); 
if(ifile.tellg()* 0) 
strncpy(m cName,cName,NUM1 ); 
ifile.read(clsbn,NUM1); 
if(ifile.tellg()*0) 
strncpy(m clsbn,clsbn,NUM1); 
ifile.read(cPrice,NUM2); 
if(ifile.tellg()*0) 
strncpy(m clsbn,clsbn,NUM2); 
ifile.read(cAuthor, NUM2); 
if(ifile.tellg()*0) 
strncpy(m cAuthor,cAuthor, NUM2); 
) 
catch(...) 


throw "file error occurred"; 
ifile.close(); 


ifile.close(); 





(3) 成 员 函 数 DeleteData 负责 将 图 书信 息 从 文件 中 删除 。 





void CBook::DeleteData(int iCount) 
t 
long respos; 
int iDataCount-0; 
fstream file; 
fstream tmpfile; 
ofstream ofile; 
char cTempBuf[NUM1-NUM1*NUM2*NUM?J; 
file.open("book.dat" ios::binary|ios:in[ios::out); 
tmpfile.open("temp.dat" ios::binary|[ios:-in|ios::out]|ios::trunc); 
file.seekg(0,ios::end); 
respos-file.tellg(); 
iDataCount-respos/(NUM1*NUM1-*NUM2-*NUM2); 
ifiCount < 0 && iCount > iDataCount) 
t 
throw "Input number error"; 
} 
else 
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{ 
fle.seekg((iCount)*(NUM1+NUM1+NUM2+NUM2),ios::beg); 
for(int j-0;j«(iDataCount-iCount);j*) 
( 
memset(cTempBuf,0, NUM1*NUM 1*NUM2*NUM2); 
file.read(cTempBuf,NUM1* NUM 1*NUM2*NUM2); 
tmpfile.write(cTempBuf, NUM1«*NUM1*NUM2*NUM2); 


file.close(); 

tmpfile.seekg(0,ios::beg); 

ofile.open("book.dat"); 
ofile.seekp((iCount-1)'(NUM1*NUM1-*NUM2-*NUM2),ios::beg); 
for(int i-0;i«(iDataCount-iCount);i--) 


memset(cTempBuf,0, NUM1*NUM 1* NUM2*NUM2); 
tmpfile.read(cTempBuf,NUM1*NUM1*NUM2*NUM2); 
ofile.write(cTempBuf, NUM 1*NUM1*NUM2-*NUM2); 

) 


) 

tmpfile.close(); 
ofile.close(); 
remove("temp.dat"); 





15 主 窗 体 模块 设计 





1.5.4. 主 窗 体 模块 概述 


系统 主 程序 界面 是 应 用 程序 提供 给 用 户 访问 其 他 功能 模块 的 平台 ， 根 据 实际 需要 ， 图 书 管理 系统 
的 主 界面 采用 了 传统 的 “数字 选择 功能 ”风格 。 输 入 数字 1 进入 到 添加 新 书 模块 ， 输 入 数字 2 进入 到 
浏览 全 部 模块 ， 输 入 数字 3 进入 到 删除 图 书 模块 。 图 书 管理 系统 的 主 界面 如 图 1.2 所 示 。 


1.5.2 主 窗 体 模块 技术 分 析 


要 实现 图 书 管理 系统 的 功能 ， 需 要 对 引用 库 函 数 添加 头 文件 引用 。 头 文件 引用 和 宏 定义 的 代码 如 下 : 


#include <iostream> 
#include <iomanip> 
stinclude <stdlib.h> 
#include <conio.h> 
#include <string.h> 
#include <fstream> 
#include "Book.h" 


#define CMD_COLS 80 


e. 
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#define CMD LINES 25 
using namespace std; 


除 主 函数 外 ， 系 统 自 定 义 了 许多 函数 ， 主 要 函数 及 功能 如 下 。 
void SetScreenGrid0: 设置 屏幕 显示 的 行 数 和 列 数 。 

void ClearScreen(): 清除 屏幕 信息 。 

void SetSysCaption(const char *pText): 设置 窗 体 标 题 栏 。 
void ShowWelcome(): 显示 欢迎 信息 。 

void ShowRootMenu(): 显示 开始 菜单 。 

void WaitView(int iCurPage): 浏览 数据 时 等 待 用 户 操作 。 
void WaitUser0: 等 待 用 户 操 作 。 

void GuideInput(): 使 用 向 导 添加 图 书信 息 。 

int GetSelect0: 获得 用 户 菜 单 选择 。 

long GetFileLength(ifstream & ifs): 获取 文件 长 度 。 

void ViewData(intiSelPage): 浏览 所 有 图 书记 录 。 

void DeleteBookFromFile(): 在 文件 中 产生 图 书信 息 。 
void mainloop0: 主 循环 。 


1.5.3” 主 窗 体 模块 实现 过 程 


图 书 管理 系统 的 主 窗 体 设 计 实 现 过 程 如 下 。 
CD 在 控制 台中 输入 mode 命令 可 以 设置 控制 显示 信息 的 行 数 、 列 数 和 背景 颜色 等 信息 。SetScreenGrid 
函数 主要 通过 system 函数 来 执行 mode 命令 ，CMD_COLS 和 CMD LINES 是 宏 定 义 中 的 值 。 


void SetScreenGrid() 
t 





AARARAARARARA 





char sysSetBuf[80]; 
sprintf(sysSetBuf,"mode con cols=%d lines=%d",CMD_COLS,CMD_LINES); 
system(sysSetBuf); 

) 


(2) SetSysCaption 函数 主要 完成 在 控制 台 的 标题 栏 上 显示 Sample 信息 。 控 制 台 的 标题 栏 信 息 可 
以 使 用 title 命令 来 设置 ， 函 数 中 使 用 system 函数 来 执行 title 命令 。 


void SetSysCaption() 


system("title Sample"); 
} 


(3) ClearScreen 函数 主要 通过 system 函数 来 执行 cls 命令 ， 完 成 控制 台 屏幕 信息 的 清除 。 





void ClearScreen() 


í 
system("cls"); 
} 


.9 
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(4) SetSysCaption 函数 共有 两 个 版 本 ， 这 是 SetSysCaption 函数 的 另 一 个 版 本 ， 主 要 实现 在 控制 
台 的 标题 栏 上 显示 指定 字符 。 


void SetSysCaption( const char *pText) 


{ 
char sysSetBuf[80]; 
sprintf(sysSetBuf,"title 96s", pText); 
system(sysSetBuf); 

) 





(5) ShowWelcome 函数 在 屏幕 上 显示 “图 书 管理 系统 ”字样 的 欢迎 信息 ，“ 图 书 管理 系统 ” 字 
样 应 尽量 显示 在 屏幕 的 中 央 位 置 。 


void ShowWelcome() 

{ 
for(int i=0;i<7;i++) 
{ 


cout << endl; 


) 

cout «« setw(40); 

cout << "ttem << endl: 
cout << setw(40); 

cout << "图 书 管理 系统 " << endl; 
cout << setw(40); 

cout << "riri << endl; 


) 





(6) ShowRootMenu 函数 主要 显示 系统 的 主 菜 单 ， 系 统 中 有 3 个 菜单 选项 ， 分 别 是 添加 新 书 、 浏 
览 全 部 和 删除 图 书 。3 个 菜单 选项 是 进入 系统 3 个 模块 的 入 口 。 





void ShowRootMenu() 
{ 
cout << setw(40); 
cout «« "请 选择 功能 " «« endl; 
cout «« endl; 
cout «« setw(38); 
cout «« "1 添加 新 书 " «« endl; 
cout «« endl; 
cout «« setw(38); 
cout «« "2 浏览 全 部 " «« endl; 
cout «« endl; 
cout «« setw(38); 
cout << "3 删除 图 书 " << endl; 
H 


C7) WaitUser 函数 主要 负责 当 程序 进入 某 一 模块 后 ， 等 待 用 户 进行 处 理 。 用 户 可 以 选择 返回 主 菜 
单 ， 也 可 以 直接 退出 系统 。 


e. 
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void WaitUser() 
{ 
int ilnputPage-0; 
cout << "enter- 返 回 主 菜单 q 退出 " << endl; 
char buf[256]; 
gets(buf); 
if(buf[0]--'q") 
system("exit"); 
) 


(8) main 函数 是 程序 的 入 口 ， 主 要 调用 了 SetScreenGrid. SetSysCaption 和 mainloop 3 个 函数 ， 
其 中 ，mainloop 函数 是 主 函数 ， 负 责 模块 执行 的 调度 ， 主 要 代码 如 下 : 


void mainloop() 


ShowWelcome(); 
while(1) 
{ 
ClearScreen(); 
ShowWelcome(); 
ShowRootMenu(); 
switch(GetSelect()) 
{ 
case 1: 
ClearScreen(); 
Guidelnput(); 
break; 
case 2: 
ClearScreen(); 
ViewData(); 
break; 
case 3: 
ClearScreen(); 
DeleteBookFromFile(); 
break; 


) 


(9) GetSelect 函数 主要 负责 获取 用 户 在 菜单 中 的 选择 。 


int GetSelect() 
( 





char buf[256]; 
gets(buf); 
return atoi(buf); 
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其 他 函数 都 应 用 在 添加 新 书 模块 、 浏 览 全 部 模块 和 删除 图 书 模块 中 ， 相 关内 容 将 在 具体 模块 中 讲解。 


1.6 添加 新 书 模块 设计 














1.6.1. 添加 新 书 模块 概述 


在 图 书 管理 系统 主 窗 体 中 输入 数字 1， 则 进入 到 添加 新 书 模块 中 。 在 添加 新 书 模块 中 , 用户 需要 输 
入 所 要 添加 的 图 书 的 书 名 、ISBN 编码 、 价 格 以 及 作者 信息 ， 其 运行 效果 如 图 1.7 所 示 。 





1: EsmSES [En 








17 添加 新 书 
1.6.2 ”添加 新 书 模块 技术 分 析 


在 添加 新 书 模块 中 定义 了 GuideInput 函数 ， 通 过 在 main 函数 中 调用 来 完成 添加 图 书 的 功能 。 





void Guidelnput(); 





其 次 , 利用 CBook 类 构建 一 个 CBook 对 象 , 通过 CBook 对 象 的 成 员 函 数 WriteData 将 图 书信 息 写 
入 文件 。 





CBook book(inName,inlsbn,inPrice,inAuthon); 
book.WriteData(); 





1.6.8 ”添加 新 书 模块 实现 过 程 
图 书 管理 系统 中 添加 新 书 模块 的 实现 代码 如 下 : 


void Guidelnput() 

{ 
char inName[NUM1]; 
char inlsbn[NUM1]; 
char inPrice|NUM2]; 
char inAuthor[NUM2]; 


@ 
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cout «« "输入 书 名 " << endl; 
cin >> inName; 


cout << "输入 ISBN" 
cin >> inlsbn; 


<< endl; 


cout << "输入 价格 " << endl; 


cin >> inPrice; 


cout << "输入 作者 " << endl; 
cin >> inAuthor; 
CBook book(inName,inlsbn,inPrice,inAuthor); 


book.WriteData(); 


cout «« "Write Finish" «« endl; 


WaitUser(); 





17 浏览 全 部 模块 设计 





1.7.1 浏览 全 部 模块 概述 
在 图 书 管理 系统 主 窗 体 中 输入 数字 2， 则 进入 到 浏览 全 部 模块 。 该 模块 中 可 按 页 数 显示 图 书记 录 ， 


每 页 可 以 显示 20 条 记录 。 


主要 实现 的 功能 是 显示 所 有 图 书 的 编号 、 图 书 名 、ISBN 编码 、 价 格 以 及 作 
h 书 的 总 数量 、 共 有 多 少 页 及 当前 页 数 ， 还 实现 了 翻 页 及 返回 主 菜单 的 功能 。 





者 信息 ， 记 录 了 当前 记录 
其 运行 效果 如 图 1.8 所 示 。 








918-1-302-24193-5 








图 1.8 浏览 全 部 


1.7.2 浏览 全 部 模块 技术 分 析 


图 书 管理 系统 中 浏览 全 部 模块 主要 通过 定义 函数 ViewData 来 完成 。 在 函数 ViewData 中 直接 使 用 
文件 流 类 打开 存储 图 书信 息 的 文件 book.dat。 





void ViewData(int iSelPage = 1) 





再 定义 一 个 GetFileLength 函数 ， 用 来 获取 文件 的 长 度 。 函 数 需 要 指定 一 个 文件 流 对 象 ， 然 后 根据 


文件 流 的 tellg 函数 计算 出 





文件 流 绑 定 的 文件 长 度 。 计 算 过 程 是 先 通过 tellg 函数 获取 文件 指针 的 位 置 ， 


然后 通过 seekg 函数 将 文件 指针 移 到 文件 末尾 ， 再 通过 telle 函数 获取 文件 指针 的 位 置 ， 此 时 的 文件 指 


Ò 
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针 的 位 置 就 是 文件 的 长 度 ， 最 后 通过 seekg 函数 将 文件 指针 恢复 到 原来 的 位 置 。 


long GetFileLength(ifstream & ifs) 


1.7.3 


浏览 全 部 模块 实现 过 程 


在 函数 ViewData 中 直接 使 用 文件 流 类 打开 存储 图 书信 息 的 文件 book.dat, 然后 根据 页 序号 读 取 文 件 内 
容 ， 因 为 每 条 图 书记 录 的 长 度 相同 ， 这 样 就 很 容易 计算 出 每 条 记录 在 文件 中 的 位 置 ， 然 后 将 文件 指针 移动 
到 每 页 第 一 条 图 书记 录 处 ， 顺 序 地 从 文件 中 读 取 20 条 记录 ， 并 将 信息 显示 在 屏幕 上 。 其 代码 如 下 : 


void ViewData(int iSelPage = 1) 


{ 


(n, 


int iPage-0; 
int iCurPage-0; 
int iDataCount-0; 
char inName[NUM1]; 
char inlsbn[NUM1]; 
char price|[NUM2]; 
char inAuthor[NUM2]; 
bool bIndex-false; 
int iFileLength; 
iCurPage-iSelPage; 
ifstream ifile; 
ifile.open("book.dat",ios::binary); 
iFileLength-GetFileLength(ifile); 
iDataCount-iFileLength/(NUM1*NUM1*NUM2*NUM2) 
if(iDataCount»-1) 

bindex-true; 
iPage-iDataCount / 20*1; 
ClearScreen(); 
cout <<" 共有 记录 " << iDataCount <<" "; 
cout <<" 共有 页 数 " << iPage <<" "; 
cout <<" 当前 页 数 " << iCurPage <<" "; 
cout << "n 显示 下 一 页 m 返回 " << endl; 
cout << setw(5)««"Index"; 
cout << setw(22) << "Name" << setw(22) << "Isbn"; 
cout << setw(15) << "Price" << setw(15) << "Author"; 
cout << endl; 
try 
t 

/根据 图 书记 录 编 号 查找 在 文件 中 的 位 置 


// 存 储 图 书 名 称 的 变量 
/存储 图 书 ISBN 编号 的 变量 
// 存 储 图 书 价格 的 变量 
// 存 储 图 书 作者 的 变量 


// 根 据 文件 长 度 ， 计 算 文件 中 总 的 记录 数 


/清除 屏幕 信息 


ifile.seekg((iCurPage-1)*20*(NUM1*NUM1-*NUM2-*NUM2),ios::beg); 


if(lifile.fail()) 


for(int i=1;i<21;i++) 

ji 
memset(inName,0, 128); 
memset(inlsbn,0, 128); 


// 将 变量 清 堆 
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} 


} 


} 
catch(...) 
t 


memset(price,0,50); 
memset(inAuthor,0,50); 
if(bIndex) 

cout ««setw(3)«« ((iCurPage-1)*20-i); 
ifile.read(inName,NUM1); // 读 取 图 书 名 称 
cout ««setw(24)«« inName; 
ifile.read(inlsbn,NUM1); // 读 取 图 书 ISBN 编号 
cout ««setw(24)«« inlsbn; 
ifile.read(price,NUM2); // 读 取 图 书 价格 
cout ««setw(12)«« price; 
ifile.read(inAuthor,NUM2); // 读 取 图 书 作 者 
cout <<setw(12)<< inAuthor; 
cout << endl; 
if(ifile.tellg()«0) 

bindex-false; 
else 

bindex-true; 


) 


cout «« "throw file exception" «« endl; 
throw "file error occurred"; // 抛 出 异常 
ifile.close(); /异常 后 关闭 文件 流 


) 
if(iCurPage«iPage) 


{ 


iCurPage=iCurPage+1; 
WaitView(iCurPage); /| 等 待 用 户 处 理 


else 


{ 


WaitView(iCurPage); /等 待 用 户 处 理 


ifile.close(); 


GetFileLength 函数 的 代码 如 下 : 


long GetFileLength(ifstream & ifs) 


( 


long tmppos; 
long respos; 


tmppos-ifs.tellg(); 
ifs.seekg(0,ios::end); 
resposzifs.tellg(); 
ifs.seekg(tmppos,ios::beg); 


return respos; 
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1.8 删除 图 书 模 块 设计 


| 视频 讲解 


1.8.1 删除 图 书 模块 概述 


在 图 书 管理 系统 的 主 窗 体 中 输入 数字 3， 则 进入 到 删除 图 书 模块 。 在 删除 图 书 的 模块 中 ,通过 输入 
想 要 删除 的 图 书 的 顺序 编号 即 可 删除 此 图 书 ， 其 效果 如 图 1.9 所 示 。 
按 图 1.9 所 示 操 作 ， 按 Enter 键 之 后 返回 到 主 窗 体 界面 ， 再 次 选择 浏览 功能 ， 删 除 图 书后 可 以 浏览 
如 图 1.10 所 示 的 全 部 图 书 内 容 ， 与 图 1.8 比较 ， 可 以 发 现 ， 编 号 为 1 的 图 书 内 容 被 删除 。 
| 2jm 
共有 记录 3 共 1 n 显 示 下 一 页 m 返 回 
Index ISBN 
1 


Uc++ 开 978-1-302-20905-8 
378-1-302-56968 


Uc++ 项 目 开 发 录 978-7-302-24193-5 








图 1.9 删除 图 书 图 1.10 删除 图 书 之 后 再 次 浏览 全 部 图 书 


1.8.2 ”删除 图 书 模块 技术 分 析 


在 图 书 管理 系统 中 , 删除 图 书 模块 的 设计 主要 是 通过 定义 一 个 DeleteBookFromFile 函数 ,并 由 main 
函数 调用 DeleteBookFromFile 函数 来 完成 的 。 








void DeleteBookFromFile() 





另外 ， 在 DeleteBookFromFile 中 调用 CBook 类 的 DeleteData 成 员 函 数 。DeleteData 成 员 函 数 用 于 
设置 所 删除 图 书 在 文件 中 的 顺序 编号 ， 在 浏览 图 书 时 可 以 看 到 此 编号 。 





tmpbook.DeleteData(iDelCount); 
cout «« "Delete Finish" «« endl; 





1.8.3 ”删除 图 书 模块 实现 过 程 
在 图 书 管理 系统 中 ， 删 除 图 书 模块 DeleteBookFromFile 函数 的 实现 代码 如 下 ; 





void DeleteBookFromFile() 


int iDelCount; 

cout «« "Input delete index" «« endl; 
cin >> iDelCount; 

CBook tmpbook; 
tmpbook.DeleteData(iDelCount); 
cout «« "Delete Finish" «« endl; 
WaitUser(); 


@ 
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void WaitView(int iCurPage) 
( 
char buf[256]; 
gets(buf); 
if(buff0]--'q') 
system("exit"); 
if(buff0]--m') 
mainloop(); 
if(buff0]--"n') 
ViewData(iCurPage); 
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在 main.cpp 中 添加 以 下 代码 ， 实 现 全 部 模块 的 主 函 数 : 





void main() 


SetScreenGrid(); 
SetSysCaption(" 图 书 管理 系统 "); 
mainloop(); 





1.10 项 目 文件 清单 


图 书 管理 系统 的 文件 清单 如 表 1.1 所 示 。 
表 1.1 图 书 管理 系统 设计 清单 














文 件 名 t m" 
Book.cpp 实现 图 书记 录 的 写 入 和 删除 
book .dat 存放 图 书 对 象 

Main.cpp 主 窗 体 设 计 

Sample.dsw. 工程 文件 

Bookh 定义 图 书 类 





1.11 本 章 总 结 


至 此 ， 一 个 简单 的 图 书 管理 系统 就 完成 了 ， 本 系统 的 开发 过 程 符合 软件 工程 方面 的 要 求 ， 但 由 于 
篇 幅 的 关系 ， 系 统 设 计 得 比较 小 ， 没 有 应 用 模型 ， 读 者 可 以 使 用 一 些 模型 技术 来 不 断 完善 该 系统 。 
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餐饮 管理 系统 


(Visual C++ 6.0+Microsoft Access 2010 实现 ) 


餐饮 管理 系统 是 饮食 行业 不 可 缺少 的 部 分 , 它 的 内 容 对 企业 的 决 
策 和 管理 都 至 关 重 要 ， 所 以 餐饮 管理 系统 应 能 够 为 用 户 提 供 充 足 的 信 
息 和 快捷 的 查询 手段 。 但 一 直 以 来 ， 人 们 使 用 的 餐饮 管理 系统 均 是 以 
人 为 主体 的 ， 需 要 很 多 的 人 力 、 物 力 ， 且 效率 不 是 很 高 ， 在 系统 运营 
时 也 可 能 产生 人 为 的 失误 ， 以 致 餐饮 管理 工作 既 烦 琐 又 不 利于 分 析 企 
业 的 经 营 状况 。 

作为 计算 机 应 用 的 一 部 分 ， 使 用 计算 机 对 餐饮 信息 进行 管理 ， 有 具 
有 人 工 管理 所 无 法 比拟 的 优点 ， 如 统计 结账 快速 、 安 全 保密 性 好 、 可 
千 性 高 、 存 储量 大 、 寿 命 长 、 成 本 低 等 。 这 些 优点 能 够 极 大 地 提高 餐 
饮 管理 的 效率 ， 增 强 企 业 的 竞争 力 ， 同 时 也 是 企业 科学 化 、 正 规 化 管 
理 与 世界 接轨 的 重要 条 件 。 

通过 学 习 本 章 ， 读 者 可 以 学 到 : 

»| 1$H Microsoft Access 2010 数据 库 

» 使 用 ADO 连接 数据 库 

NM， 通过 SQL 语句 对 数据 库 进 行 操作 S 

» 备份、 还 原 数 据 库 配置 说 明 

» 打包 发 行文 件 
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21 开发 背景 


俗话 说 : “ 民 以 食 为 天 。” 随 着 人 民生 活水 平 的 提高 ， 餐 饮 业 在 服务 行业 中 的 地 位 越 来 越 重 要 。 
从 激烈 的 竞争 中 脱颖而出 ， 已 成 为 每 位 餐饮 业经 营 者 所 追求 的 目标 。 

经 过 多 年 发 展 ， 和 餐饮 管理 已 经 逐渐 由 人 工 管理 进入 到 重视 规范 、 科 学 管理 的 阶段 。 众 所 周知 ， 在 
科学 管理 的 具体 实现 方法 中 ， 最 有 效 的 就 是 应 用 管理 软件 进行 管理 。 

以 往 的 人 工 操作 管理 中 存在 着 许多 问题 ， 例 如 : 

EO 人工 计 算账 单 容易 出 现 错误 。 

E ”收银 工作 中 容易 发 生 账 单 丢失 。 

回 ”客人 具体 消费 信息 难以 查询 。 

回 ”无 法 对 以 往 营业 数据 进行 查询 。 


22 需求 分 析 


随 着 餐饮 行业 的 迅速 发 展 ， 现 有 的 人 工 管理 方式 已 不 能 满足 工作 需求 。 广 大 餐饮 业经 营 者 已 经 意 
识 到 使 用 计算 机 信息 技术 的 重要 性 ， 决 定 采 用 计算 机 管理 系统 进行 管理 。 

根据 餐饮 行业 的 特点 和 该 企业 的 实际 情况 ， 该 系统 应 以 餐饮 业务 为 基础 ， 突 出 前 台 管 理 ， 从 专业 
角度 出 发 ， 提 供 科学 、 有 效 的 管理 模式 。 点 菜 方 面 采 取 表 单 加 数据 的 方式 使 用 户 能 直观 地 管理 数据 信 
息 ， 并 能 有 效 地 管理 每 个 台 号 所 点 的 酒菜 。 点 菜 收银 管理 可 实现 点 菜 、 结 账 和 清 台 功能 。 进 货 管理 可 
记录 商品 入 库 情况 。 点 菜 收银 、 营 业 分 析 和 库房 管理 的 有 机 结合 ， 可 为 确定 酒店 的 经 营 方向 提供 依据 ， 
为 其 发 展 提供 重要 保证 。 


23 系统 设计 





2.3.1 系统 目标 


餐饮 管理 系统 将 实现 如 下 目标 。 

BP ”减少 前 台 服 务 人 员 的 数量 ， 减 少 经 营 者 的 人 员 开销 。 
Rp ”提高 操作 速度 ， 提 高 顾客 的 满意 程度 。 

回 ”使 经 营 者 能 够 查询 一 些 历史 数据 。 


2.3.2 ”系统 功能 结构 
餐饮 管理 系统 包含 前 台 服 务 、 后 台 服 务 、 财 政 服务 和 系统 服务 几 部 分 功能 ， 其 功能 结构 如 图 2.1 所 示 。 
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餐饮 管理 系统 
前 台 服 务 后 台 服 务 财政 服务 系统 服务 
开 || 加 || 顾 || 日 || 进 || 员 || 商 || 菜 | | 日 月 | | 数 || 数 || 数 | | 账 
台 || 菜 || 客 || 收 || 货 || 工 || 品 || 式 | | 收 收 | | 据 || 据 || 据 || 号 
点 || 减 || 结 || 入 || 信 || 信 || 信 || 信 | | 入 入 || 库 || 库 || 库 || 权 
菜 || 菜 || 账 || 查 || 息 || 息 || 息 || 息 | | 查 查 | | 备 || 还 || 初 || 限 
服 || 服 || 服 || 询 || 管 || 管 || 管 || 管 | | 询 询 | | 份 || 原 || 始 || 管 
d ed d ia d ad 化 || 理 
图 2.1 餐饮 管理 系统 功能 结构 图 
2.3.3 ”系统 预览 


餐饮 管理 系统 由 多 个 功能 组 成 ， 下 面 仅 列 出 几 个 典型 的 功能 界面 ， 其 他 界面 可 参见 资源 包 中 的 源 
程序 。 和 典型 的 功能 界面 如 图 2.2 一 图 2.5 所 示 。 






























































图 2.3 顾客 结账 服务 界面 











asean O O Oo O =) 
请 选择 数据 库 地 址 : 


路 径 : [CAUsersizhangyanDeski 













































































还 原 | as] 
E E 
dáRrAQUHA. 
AR: [RSTUHHGREHES( | 
zgaga å ”单价 [50 x 请 输入 文件 名 : [canyinbfmdl 
Em | 修改 | MEj| | m| a] | 
图 2.4 菜 式 信息 管理 界面 图 2.5 数据 库 还 原 和 数据 库 备份 界面 
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2.3.4 业务 流程 图 
餐饮 管理 系统 的 业务 流程 图 如 图 2.6 所 示 。 
2.3.5 ”数据库 设计 


一 个 好 的 数据 库 是 每 一 个 成 功 的 系统 必 不 可 
少 的 部 分 ， 数 据 库 设 计 则 是 系统 设计 中 最 关键 的 
一 步 。 所 以 ， 要 根据 系统 的 信息 量 设 计 一 个 合适 
的 数据 库 。 


1. 数据库 分 析 


因为 餐饮 管理 系统 中 需 存储 的 数据 信息 量 不 
大 ， 对 数据 库 的 要 求 并 不 是 很 高 ， 所 以 ， 本 系统 
采用 了 Microsoft Access 2010 数据 库 ， 数 据 库 名 
称 为 canyin。 在 数据 库 中 一 共 建立 了 7 张 数据 表 ， 
用 于 存储 不 同 的 信息 ， 如 图 2.7 所 示 。 


2. 数据 库 概念 设计 


a) 用 户 信息 实体 
用 户 信息 实体 包括 用 户 登录 账号 、 用 户 登 录 
密码 和 用 户 权限 。 用 户 信息 实体 E-R 图 如 图 2.8 
所 示 。 
(2) 菜 式 信息 实体 
菜 式 信息 实体 包括 菜 式 名 称 和 菜 式 价格 。 菜 
式 信息 实体 E-R 图 如 图 2.9 所 示 。 
G) 进货 信息 实体 
进货 信息 实体 包括 商品 名 称 、 商 品 价格 、 商 品 


数量 和 进货 时 间 。 进 货 信息 实体 E-R 图 如 图 2.10 所 示 。 





用 户 信息 














用 户 登录 账号 
用 户 登 录 密码 菜 式 名 称 


图 2.8 用 户 信息 实体 E-R 图 
(4) 账单 信息 实体 






























































Y Y Y 
要 求 加 减 菜 服务 | | 要 求 用 餐 要 求 结账 服务 
营业 员 
v v 
查询 顾客 账单 信息 为 顾客 分 配餐 台 
v v 
完成 顾客 结账 服务 为 顾客 点 菜 进行 加 菜 减 菜 服务 

















图 2.6 餐饮 管理 系统 的 业务 流程 图 
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7j paybill 账单 信息 表 
7j shengpinirfo 品 信息 表 
shouru BAREA 
7j TableUSE 管 桌 使 用 情况 表 
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图 2.7 数据 库 canyin 中 的 表 





菜 式 信息 











菜 式 价格 


29 菜 式 信息 实体 E-R 


账单 信息 实体 包括 菜 式 名 称 、 菜 式 价格 、 菜 式 数量 和 结账 桌 号 。 账 单 信息 实体 ER 图 如 图 2.11 所 示 。 
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进货 时 间 菜 式 名 称 


























进货 信息 账单 信息 
2.10 进货 信息 实体 E-R 图 图 2.11 账单 信息 实体 E-R 图 


C50 商品 信息 实体 
商品 信息 实体 包括 商品 名 称 和 商品 单价 。 商 品 信息 实体 E-R 图 如 图 2.12 所 示 。 
(6) 收入 信息 实体 
收入 信息 实体 包括 日 收入 金额 和 收入 时 间 。 收 入 信息 实体 E-R 图 如 图 2.13 所 示 。 


























商品 信息 收入 信息 
242 商品 信息 实体 E-R 图 2.13 ”收入 信息 实体 E-R 图 


(7) 餐桌 使 用 情况 实体 

餐桌 使 用 情况 实体 包括 餐桌 桌 号 和 餐桌 状态 。 餐 桌 使 用 情况 实体 E-R 图 如 图 2.14 所 示 。 

3. 数据 库 罗 辑 结 构 设计 

完成 了 上 述 实体 E-R 图 ， 接 下 来 就 该 创建 数据 表 。 下 面 以 创建 菜 式 信息 表 (caishiinfo〉 为 例 演示 


如 何 创建 数据 表 。 


(1) 新 建 数据 表 
在 数据 库 创建 完毕 之 后 ， 选 择 “ 视 图 ”选项 ， 然 后 再 选择 “设计 视图 ”选项 ， 将 弹出 如 图 2.15 所 


示 的 对 话 框 ， 提 示 用 户 输入 新 建 表 的 名 称 。 























餐桌 使 用 情况 
图 2.14 餐桌 使 用 情况 实体 E-R 图 图 2.15 新 建 数据 表 


@ 
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(2) 创建 字段 名 称 及 数据 类 型 
单 击 图 2.15 所 示 的 “确定 ”按钮 ， 将 弹出 如 图 2.16 所 示 的 窗口 。 
































图 2.16 创建 字段 名 称 及 其 数据 类 型 


(3) 输入 信息 

在 “字段 名 称 ” 中 分 别 输 入 菜 名 和 菜 价 ， 再 将 数据 类 型 分 别 设置 为 自动 编号 、 文 本 和 数字 ， 如 
2.17 所 示 。 

(4) 保存 表 

设置 完毕 后 ， 在 菜单 栏 中 选择 “文件 ”一 “保存 ”命令 ， 将 表格 保存 ， 完 成 表 的 创建 。 

其 余 表 的 创建 方法 基本 一 致 ， 下 面 分 别 介绍 餐饮 管理 系统 中 各 数据 表 的 结构 。 

菜 式 信息 表 (caishiinfo) : 主要 用 于 记录 菜 式 信息 ， 包 括 菜 式 名 称 和 菜 式 价格 ， 如 图 2.18 所 示 。 

进货 信息 表 (jinhuoinfo) : 主要 用 于 记录 进货 信息 ， 方 便 使 用 者 查询 ， 如 图 2.19 所 示 。 












































自动 
一 进 舍 时 间 文本 进货 的 有 具体 日 期 
一 商品 各 文本 货 商品 名称 
BER aF ELUCET] 
商品 价格 E 进货 商品 总 花费 
E 同 
217 设置 参数 图 2.19 进货 信息 表 结 构图 
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用 户 信息 表 (Login): 主要 用 于 保存 用 户 账号 、 密 码 和 权限 等 信息 ， 如 图 2.20 所 示 。 
账单 信息 表 (paybill) : 主要 用 于 保存 顾客 的 消费 信息 ， 如 图 2.21 所 示 。 








| TER NE — n — —— < 
Inane APE | Ems HERAS 
aesa 文本 APEB ža ES: eanan 
pover sx 用 户 权限 ar Ed 
| a 
f m BN | DE 
图 2.20 用 户 信息 表 结 构图 图 2.21 账单 信息 表 结构 图 
商品 信息 表 (shangpininfo) : 主要 用 于 登记 需要 进货 的 商品 信息 ， 包 括 商 品名 称 及 价格 ， 如 
2.22 所 示 。 


收入 信息 表 (shou): 主要 用 于 记录 每 天 的 总 营业 额 信息 ， 以 方便 用 户 查询 日 收入 总 额 及 月 
收入 总 额 情况 ， 如 图 2.23 所 示 。 


新 FRZ CET THEE EN | BS 
n] = 动 编写 D 
LEES 文本 piang Bea Fra 二 日 收入 总 
ARAN HS Banai Gi ES Bu 
ü Chp B Ch 
图 2.22 商品 信息 表 结 构图 图 2.23 收入 信息 表 结构 图 


餐桌 使 用 情况 表 (TableUSE) : 主要 用 于 记录 每 个 餐桌 的 使 用 情况 ， 如 图 2.24 所 示 。 


FREH RIES 5 
下 ID ELI a 
| 桌 号 RF KRANES . 
|TableUSEID 数字 ATHRARR, “0” ETEN, “1” EFRAP 








图 2.24 餐桌 使 用 情况 表 结 构图 


2.4 公共 类 设计 





设计 系统 时 ， 经 常会 重复 使 用 同一 种 功能 模块 ， 为 避免 代码 重复 使 用 率 过 高 ， 往 往 将 重复 使 用 频 
率 高 的 代码 写成 公共 类 。 

数据 库 连 接 是 系统 中 必 不 可 少 的 部 分 ， 在 每 个 模块 中 都 需要 连接 数据 库 进 行 数据 操作 。 为 此 ， 笔 
者 将 数据 库 连接 方法 写 在 程序 的 App 类 中 。 

设计 步骤 如 下 : 

(1) 在 工作 区 窗口 选择 FileView 选项 卡 ， 在 Header Files 目录 下 找到 头 文件 StdAfx.h， 向 其 

中 添加 如 下 代码 (路径 根据 实际 情况 更 换 ) , 用 于 将 msado15.dll 动态 链接 库 导 入 程序 中 , 如 图 2.25 
所 示 。 


#import "C:\Program Files\Common Files\\System\\ado\\msado15.dll"no_namespace rename("EOF","adoEOF") 








第 2 章 餐饮 管理 系统 (Visual C++ 6.0+Microsoft Access 2010 实现 ) 












// stdafx.h : include file For standard system include Files, 
LA or project specific include Files that are used frequently, but 习 
1 are changed infrequently 

^" 


Mif tdefined(RFX STDAFX 4 9588732. 
define AFX STDRFX H 98887328 13i 






; B2a0 EBEFD1520770 INCLUDED ) 
) EBEFD1526770 INCLUDED - 


Mif MSC UER > 1000 
fipragna once 
Mendir // MsC UER > 1000 











HdeFfine UC EXTRALERN J4 Exclude rarely-used stuff fron Windows headers 
Minclude «afxuin.h? 44 WFC core and standard components 

include «afxext.h» 44 WFC extensions 

thinclude «aFxdisp.h» 74 NFC mutomation classes 

Minclude «afxdtctl.h» // WFC support for Internet Explorer ^ Common Controls 
"n 

sodes Cafxcnn .hy // WEC support For Windows Common Controls 

Memi 








inport "C: WUsersWzhanqyan Desktop WO WPrograneWnsadot5.dll" no namespace rename("EDF", "adoEOF") 











Z/AXRFX. INSERT. LOCATION)) 
// Microsoft Visual C++ will insert additional declarations immediately before the previous line. 





Hendit // fdeFined(RFX STDAFi M 90887328 1300 AF88 BZRO EBtTDIS20770 INCLUDED ) 


IET] "e| 
图 2.25 ”导入 动态 链接 库 


(2) 在 App 类 的 InitInstance 方 法 中 添加 代码 ,设置 数据 库 连 接 , 因为 App 类 中 有 全 局 变量 TheApp， 
所 以 在 App 类 中 连接 数据 库 后 可 以 方便 地 使 用 全 局 变量 对 其 进行 操作 ， 代 码 如 下 : 


BOOL CMyApp::InitiInstance() 
{ 





AfxEnableControlContainer(); 

::Colnitialize(NULL); 

HRESULT hr; /定义 一 个 HRESULT 实例 
try 

( 


e hr2m, pCon.Createlnstance("ADODB.Connection"); /创建 连接 
i(SUCCEEDED(hr)) // 判 断 创 建 连接 是 否 成 功 
t 
m pCon-»ConnectionTimeout-3; /连接 延 时 设置 为 3 秒 
e hrzm pCon-»Open("Provider-Microsoft. Jet. OLEDB.4.0;Data 


Source-canyin.mdb",",".adModeUnknown); /连接 数据 库 


) 
) 
catch( com error e) 


( 


CString temp; 
temp.Format( "连接 数据 库 错误 信息 :%s",e.ErrorMessage()); /获得 错误 信息 
:MessageBox(NULL,temp," 提 示 信息 ",NULL); // 弹 出 错误 信息 
return false; 
} 
/以 下 代码 省 略 


return FALSE; 
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< 代码 贴 二 

€ 在 调用 CreateInstance 函数 时 ， 使 用 的 不 是 指针 调用 形式 “一 ”， 因 为 m pConnection 虽然 是 指针 类 型 ， 但 是 
CreateInstance 函数 不 是 指针 所 指向 的 对 象 方法 ， 而 是 只 能 指针 本 身 的 函数 ， 所 以 在 调用 时 使 用 的 是 “.” 的 形式 。 

O 连接 字符 串通 常 是 通过 向 程序 中 导入 一 个 ADO Data 控件 ， 再 通过 设置 ADO Data 控件 的 连接 属性 获得 的 。 


代码 添加 完成 后 ， 各 个 模块 就 可 以 通过 App 类 的 全 局 变量 theApp 直接 操作 数据 库 了 。 
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程序 主 窗 体 作为 第 一 个 展示 在 用 户 面前 的 窗 体 ， 是 用 户 对 程序 的 第 一 感觉 ， 在 程序 中 起 着 非常 重 
要 的 作用 。 主 窗 体 应 该 向 用 户 展示 程序 常用 的 功能 ， 使 用 户 对 程序 有 一 个 初步 的 认识 。 主 窗 体 的 运行 
效果 如 图 2.26 所 示 。 


ET E [E 




















Eiw E55 ELDER 








图 2.26 程序 主 窗 体 的 运行 效果 


主 窗 体 主要 包含 以 下 内 容 。 
Ep ”菜单 栏 : 包括 登录 、 前 台 服 务 和 后 台 服 务 等 一 系列 程序 所 拥有 的 功能 。 
工具 栏 :包括 程序 比较 常用 的 几 个 功能 ， 如 开 台 、 顾 客 买单 等 。 
状态 栏 : 包括 系统 的 名 称 、 当 前 时 间 及 用 户 登录 信息 等 。 
设计 步骤 如 下 : 
(1) 启动 Visual C++ 6.0， 新 建 一 个 基于 对 话 框 的 MEC 应 用 程序 ， 并 将 程序 命名 为 “餐饮 管理 ”， 
如 图 2.27 所 示 。 
(2) 单 击 OK 按钮 后 弹出 如 图 2.28 所 示 的 对 话 框 ， 选 中 Dialog based 单 选 按钮 ， 单 击 Finish 按钮 
完成 创建 。 
(3) 单 击 Finish 按钮 后 ， 在 工作 区 中 选择 Resources 选项 卡 ， 在 任意 一 个 节点 上 右 击 ， 在 弹出 的 
快捷 菜单 中 选择 Insert 命令 ， 打 开 Insert Resource 对 话 框 。 在 Resource type 列表 中 选择 Menu 节点 ， 单 
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击 New 按钮 ， 将 创建 一 个 菜单 ， 在 菜单 设计 窗口 中 ， 按 Enter 键 打开 属性 窗口 ， 设 计 菜 单 标题 ， 完 成 
后 在 窗 体 Menu 选项 中 修改 生成 的 菜单 ID, WA 2.29 所 示 。 








Files Projects | Workspaces | Other Documents | 


m Ao U C ES) 





[HATI COM App Wizard 
[Cluster Resource Type Wizard 
Custom AppWizard 





Project name: 
guum 


Loentionz 


(8 Creste new workspace 
C Add to current workspace. 


a a T | 
人 


C. Single document 
~ Maliple documents 
^ Dialog based 


F DocumontWiew architecture support? 





What [anguage would you like your resources In? 


























[IWIn32 Console Application "PEE. PE APPWZCHSDUJ = 
[E] Win32 Dynamic Link Library 
I WIn32 Stati Library 
Pistons: 
p 
Cancel < Back woa> Emish | Cancer 








































































































图 2.27 新 建 一 个 MFC 程序 
(4) 由 于 生成 的 是 带 图 标的 工具 栏 ， 所 以 需要 事先 在 Resources 选项 卡 中 选择 Insert 菜单 项 导入 


几 个 图 标 文件 ， 如 图 2.30 所 示 。 


Menu ltem Properties 


u-— å ENS 





HR General | Extended Styles | 


1o: DE =] Caption: 
F Popup F Inactive 
I Grayed — [- Help 


T^ Separator 
F Checked 


IST! 
Brea: [Ne 本 





Prompt | 

















图 2.29 创建 菜单 项 
(5) 在 生成 的 窗口 类 的 OnImitDialog 方法 中 添加 代码 动态 生成 工具 栏 和 状态 栏 ， 代 码 如 下 : 


m_Imagelist.Create(32,32,ILC_COLOR24]ILC_MASK,1,1); 
m_Imagelist.Add(AfxGetApp()->Loadicon(IDI_ICON_login)); 


图 2.28 程序 的 创建 


= My resources = 


加 My resources * 国 Bitmap 

* a Blmap + Dialog 

+ Œ Dialog 由 

p^r aka 局 TIpL_Icon_add 


C IDI. ICON cancel 
C) IDI. ICON diancai 
C) IDI. ICON kaitai 


E IDL ICON. cancel 
C) IDL ICON. diancot 
E IDL ICON kaitai 














pres [j IDI. ICON login 
LI ICON pay C) IDI. ICON open 
C ID ICON reg 国 101. ICON pay 
C) ID ICON. rishouru. C) IDI. ICON reg 
T2) ID ICON s! E) IDI. ICON rishouru 
C] IDR. MAINFRAME C) ID1 ICON 51 
$ m dae C) IDR_MAINFRAME 
5 Version — 中 全 iuen 
* CjString Table 
* Version 











žE Clasc... |$ Recou..| S] FileView| 














/创建 图 像 列 表 
// 将 图 像 与 列表 一 一 关联 


m Imagelist.Add(AfxGetApp()-»Loadlcon(IDI ICON open)); 

m Imagelist.Add(AfxGetApp()-»Loadlcon(IDI ICON. pay)); 

m Imagelist.Add(AfxGetApp()-»Loadlcon(IDI ICON rishouru)); 
m Imagelist.Add(AfxGetApp()-»Loadlcon(IDI ICON reg)); 

m Imagelist.Add(AfxGetApp()-»Loadlcon(IDI ICON cancel)); 


UINT Array[6]; 
for(int i=0;i<6;i++) 
( 

Array[i]-9000-i; 


/| 数组 控制 工具 栏 和 状态 栏 的 个 数 


// 分 别 给 工具 栏 的 按钮 定义 索引 
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m Toolbar.Create(this); /创建 工具 栏 资源 
m_Toolbar.SetButtons(Array,7); /设置 6 个 按钮 
m_Toolbar.SetButtonText(0," 系 统 登录 "); // 给 每 个 按钮 添加 文本 
m_Toolbar.SetButtonText(1," 开 台 "); 
m_Toolbar.SetButtonText(2," 加 减 菜 "); 
m_Toolbar.SetButtonText(3," 顾 客 买单 "); 
m_Toolbar.SetButtonText(4," 本 日 收入 "); 
m_Toolbar.SetButtonText(5," 员 工 注册 "); 
m_Toolbar.SetButtonText(6," 退 出 系统 "); 
m_Toolbar.GetToolBarCtrl().SetButtonWidth(60,120); /设置 按钮 宽度 
m Toolbar.GetToolBarCtri().SetlmageList(&m Imagelist); /将 工具 栏 和 图 标 关联 
/设置 按钮 大 小 和 图 片 大 小 
m Toolbar.SetSizes(CSize(70,60),CSize(28,40)); 
m Toolbar.EnableToolTips(TRUE); 1/ 激 活 鼠 标 提示 功能 
for(i=0;i<4;i++) 
Array[i]-10000-1; /分 别 给 状态 栏 定义 索引 
) 
m Statusbar.Create(this); /创建 状态 栏 资源 
m_Statusbar.Setlndicators(Array,4); /设置 4 个 状态 栏 
for(int n=0;n<3;n++) 
m_Statusbar.SetPanelnfo(n,Array[n],0,80); // 给 每 个 状态 栏 设置 宽度 

} 

6€ m Statusbar.SetPanelnfo(1,Array[1],0,200); 
m Statusbar.SetPanelnfo(2,Array[2],0,800); 

6 m_Statusbar.SetPaneText(2," 当 前 时 间 "+Str); // 设 置 状 态 栏 的 文本 
m_Statusbar.SetPaneText(0," 餐 饮 管理 系统 "); 
// 显 示 工 具 栏 和 状态 栏 

€  RepositionBars(AFX IDW CONTROLBAR FIRST,AFX IDW CONTROLBAR LAST,0); 

二 代码 贴 十 


O SetPaneInfo: 设置 指定 状态 栏 面板 的 宽度 。 

O SetPaneText: 设置 指定 状态 栏 面板 中 显示 的 文本 。 

日 RepositionBars(AFX_IDW_CONTROLBAR_FIRSTAFX_IDW_CONTROLBAR_LAST0): 用 于 显示 工具 栏 和 状态 
栏 的 函数 ， 在 工具 栏 和 状态 栏 都 存在 的 情况 下 只 需 输 入 一 次 即 可 。 


2.6.1 











注册 模块 概述 


2.6 注册 模块 设计 


注册 模块 是 一 个 完善 的 管理 系统 中 必 不 可 少 的 部 分 ， 主 要 用 于 预防 非法 用 户 随意 登录 系统 并 对 


e. 
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系统 数据 进行 修改 破坏 ， 给 经 营 者 造成 不 可 挽回 的 损失 。 只 有 系统 管理 者 才能 通过 注册 模块 对 指定 的 
人 员 进 行 注册 , 使 其 可 以 对 系统 进行 相应 的 操作 ， 大 大 提高 了 系统 的 安全 — 
性 。 注 册 模 块 的 运行 效果 如 图 2.31 所 示 。 TA 


2.6.2 ”注册 模块 技术 分 析 E 


在 此 模块 中 主要 知识 点 是 SQL 语句 的 灵活 运用 ， 通 过 向 数据 表 中 直 
接 添加 数据 即 可 达到 实现 用 户 注册 的 目的 , 添加 数据 可 以 用 INSERT 语句 一 
来 实现 。 在 此 也 介绍 了 SQL 语句 的 执行 方法 Execute， 通 过 连接 对 象 的 。 ” 图 231 注册 模块 效果 图 
Execute 方法 可 以 很 容易 地 执行 INSERT 语句 。 

Execute 方法 的 语法 如 下 : 


Connection Execute(_bstr_t CommandText,VARIANT * RecordsAffected,long Options) 


加 ”CommandText: 命令 字符 串 ， 通 常 是 SQL 命令 。 
E] RecordsAffected: 操作 后 所 影响 的 行 数 。 
E Options: CommandText 中 内 容 的 类 型 ， 其 值 如 表 2.1 所 示 。 


表 2.1 Options 值 表 














值 描述 
adCmdText 表明 CommandText 的 类 型 是 文本 
adCmdTable 表明 CommandText 的 类 型 是 表 名 
adCmdStoredProc 表明 CommandText 的 类 型 是 存储 过 程 
adCmdUnknown 表明 CommandText 的 类 型 未 知 
INSERT 语句 的 基本 语法 如 下 : 


INSERT INTO [ 表 名 ]( 需 要 插入 的 列 名 ) values( 要 插入 的 数值 ) 
例如 ， 读 者 想 向 用 户 注册 信息 表 中 插入 一 条 用 户 信息 ，INSERT 语句 可 写 为 : 


CString sql; 
sql.Format("INSERT INTO register(username,userpasswd) values('%s', '96s")"); 


接 下 来 要 执行 这 条 语句 就 可 以 使 用 Execute 方法 。 
m_pCon->Execute((_bstr_t)sql,NULL,adCmdText)，//m_pCon 是 一 个 数据 库 连 接 对 象 


2.6.3 ”注册 模块 实现 过 程 
E] 。 本 模块 使 用 的 数据 表 : Login 


(1) 在 Resources 选项 卡 中 插入 一 个 对 话 框 资源 ， 在 对 话 框 中 添加 3 个 静态 文本 控件 、3 个 编辑 
框 控 件 和 两 个 按钮 控件 。 控 件 的 属性 及 变量 如 表 2.2 所 示 。 
29 ) 
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表 2.2 控件 属性 及 变量 设置 

















控件 ID 控件 属性 对 应 变量 
IDC STATIC 标题 ， 密 码 无 
DC sTATIC X 
IDC EDIT name Visible CString m Name 
IDC EDIT pwd Password CString m Pwd 
IDC EDIT pwdl Password CString m Pwdl 
IDC BUTTON OK 无 
IDC_BUTTON reset 无 





(2) 给 对 话 框 新 建 一 个 类 CZhucedlg， 在 类 中 添加 一 个 _RecordsetPtr 类 型 变量 m pRs 并 导入 全 局 
变量 theApp。 

G) 双击 注册 模块 对 话 框 中 的 “提交 ”按钮 ， 在 弹出 的 函数 名 称 窗口 中 定义 函数 名 称 ， 单 击 “ 确 
定 ” 按 钮 ， 进 入 按钮 的 代码 编写 界面 。 

当 用 户 单 击 “ 提 交 ” 按 钮 时 ， 系 统 应 该 判断 输入 的 用 户 名 是 否 跟 数据 表 中 的 用 户 名 重复 ， 如 果 重 
复 则 弹出 提示 对 话 框 ; 再 判断 两 次 密码 输入 是 否 一 致 ， 如 果 不 一 致 则 需 弹 出 提示 对 话 框 要 求 重新 输入 ， 
成 功 后 则 向 数据 表 中 插入 用 户 名 、 密 码 和 权限 (默认 权限 为 0) 信息， 代码 如 下 : 





UpdateData(); 
1/ 判断 “用 户 名 ”和 “密码 ”编辑 框 是 否 为 空 
if(m Name.IsEmpty()|m Pwd.IsEmpty()|m Pwd1.IsEmpty()) 


AfxMessageBox(" 用 户 名 密码 不 能 为 空 "); 
return; 


) 
ifm Pwdlzm Pwd1) TIPS 38 A BO ET e ds — Bt 


AfxMessageBox(" 密 码 不 一 致 "); 
return; 


} 

// 检 验 数 据 表 中 用 户 名 是 否 重复 

m_pRs=theApp.m_pCon->Execute((_bstr_t)("select * from Login where 
Uname-"«m Name-""),NULL,adCmdText); 

if(m pRs-»adoEOF) // 判 断 记 录 是 否 为 空 


// 如 果 为 空 ， 就 向 数据 表 中 插入 用 户 名 、 密 码 及 权限 信息 

theApp.m_pCon->Execute((_bstr_t)("insert into Login(Uname,Upasswd,power) 
values("+m_Name+", "+m_Pwd+",0)"),NULL,adCmdText); 

AfxMessageBox(" 注 册 成 功 "); 

CDialog::OnOK(); 


else /如 果 不 为 空 ， 就 提示 用 户 名 重复 
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AfxMessageBox(" 用 户 名 已 存在 "); 
return; 


} 


(4) 为 “ 重 置 ”按钮 添加 代码 ，“ 重 置 ”按钮 主要 实现 的 功能 是 把 对 话 框 中 的 3 个 编辑 框 控件 的 
状态 设置 为 初始 状态 ， 代 码 如 下 : 


m_Name=""; 
m_Pwd=""; 

m Pwd1z" 
UpdateData(false); 





27 登录 模块 设计 








2.7.1 登录 模块 概述 


在 本 系统 中 ， 登 录 模块 的 功能 是 判断 用 户 是 不 是 合法 用 户 ， 以 及 根据 登录 用 户 的 权限 开放 相应 的 
模块 , 是 保障 系统 安全 的 第 一 道 关 卡 。 登 录 模 块 的 运行 效果 如 图 2.32 














所 示 。 ac E 
272 ”登录 模块 技术 分 析 ep 








在 登录 模块 中 , 为 了 避免 个 别人 恶意 猜测 他 人 的 用 户 名 和 密码 ， - = 
笔者 在 系统 中 添加 了 密码 错误 次 数 限制 ， 如 果 密 码 输入 错误 次 数 超 图 2.32 登录 模块 的 运行 效果 
过 3 次 ， 就 会 退出 程序 。 

为 了 实现 以 上 功能 ， 需 要 在 登录 类 中 添加 一 个 全 局 变量 计算 输入 错误 密码 的 次 数 ， 因 为 本 系统 登 
录 时 调用 的 是 模块 对 话 框 ， 所 以 在 关闭 时 就 必须 先 关闭 当前 的 登录 模块 ， 再 关闭 程序 主 界面 。 在 登录 
类 的 OK 按钮 的 代码 中 加 入 对 次 数 的 判断 ， 如 果 次 数 等 于 3 就 调用 本 对 话 框 的 退出 事件 ， 再 在 主 界面 
的 “登录 ”按钮 代码 中 对 错误 次 数 进行 判断 ， 如 果 次 数 等 于 3 就 调用 主 对 话 框 的 退出 事件 。 要 实现 这 
一 功能 ， 需 先 在 主 对 话 框 的 “登录 ”按钮 代码 中 加 入 如 下 代码 : 


if(Logindlg.i--3) CDialog::OnCancel(); IlLogindlg 是 登录 模块 的 一 个 实例 


判断 登录 模块 中 的 i 值 是 否 为 3， 如 果 i 值 为 3 则 调用 主 窗 体 的 退出 事件 。 在 调用 前 应 该 先 关闭 登 
录 模 块 对 话 框 ， 所 以 在 登录 模块 对 话 框 的 “确定 ”按钮 中 加 入 如 下 代码 : 

if(i==3) OnCancel(); // 当 i=3 时 调用 “退出 ”按钮 事件 

当 i=3 时 调用 登录 模块 对 话 框 中 的 “退出 ”按钮 事件 关闭 对 话 框 ，OnCancel 方法 是 登录 对 话 框 的 
“退出 ”按钮 事件 。 
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2.7.3 ”登录 模块 实现 过 程 


E] 。 本 模块 使 用 的 数据 表 : Login 
(1) 在 Resources 选项 卡 中 插入 一 个 对 话 框 资源 ， 向 对 话 框 中 添加 两 个 静态 文本 控件 、 两 个 编辑 
框 控 件 、 两 个 按钮 控件 和 一 个 图 片 控件 ， 打 开 图 片 控件 的 属性 窗口 给 其 关联 一 幅 图 片 。 控 件 的 属性 及 
变量 如 表 2.3 所 示 。 
表 2.3 控件 属性 及 变量 设置 
控件 ID 控件 属性 对 应 变量 


IDC STATIC 标题 ， 用 户 名 无 
IDC STATIC 标题 : 密码 无 





IDC STATIC X 
DC EDITI CString m Uname 
IDC EDIT? CString m Upasswd 
IDoK x 
IDCANCEL X 


(2) 为 登录 模块 新 建 一 个 CLogindlg 类 ， 在 类 中 定义 一 个 _ RecordsetPtr 类 型 变量 m_pRs， 在 窗口 
类 中 添加 代码 导入 全 局 变量 theApp， 如 图 2.33 所 示 ， 代 码 如 下 : 


extern CMyApp theApp; 











77 togindlg.cpp : inplenentation File 
Hu 








"include "stdaFx.h" [- 
include “my.h” 

"include "Logindlg.h" 

"include "MyDlg.h"* 


(iraer DEBUG — 7) 在 这 里 导入 
define new DEBUG REU 


Hundef THIS FILE — 
static char THIS FILE] = FILE. ; 


tendit 
extern CHyApp theüpp; } 一 | 在 这 里 导入 


MA = 
1 2| Z 

















2.33 定义 theApp 


G) 为 “登录 ”按钮 的 单 击 事件 添加 代码 ， 在 “登录 ”按钮 的 单 击 事件 下 ， 系 统 应 自动 将 用 户 输 
入 的 数据 与 数据 表 中 的 数据 进行 比较 ， 如 果 都 一 致 则 提示 成 功 登 录 ， 如 果 不 一 致 则 提示 用 户 名 、 密 码 
错误 ， 代 码 如 下 : 
UpdateData(); 
IAR APR” Rn USERS" REREH 
ifm Uname.IsEmpty().&&!m Upasswd.IsEmpty()||true) 


{ 
CString sql="SELECT * FROM Login WHERE Uname="+m_Uname+" and Upasswd-"«m Upasswd-""; 


e. 
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/在 数据 表 中 查询 是 否 存在 该 用 户 名 及 密码 
m_pRs=theApp.m_pCon->Execute((_bstr_t)sql,NULL,adCmdText); 
if(m_pRs->adoEOF) // 如 果 没有 账号 记录 则 提示 错误 
{ 
AfxMessageBox(" 用 户 名 或 密码 错误 !); 
m Uname-": 
m Upasswd-"" 
UpdateData(false); 
if(i--3) /定义 全 局 变量 i 控制 输入 错误 次 数 
OnCancel(); // 如 果 为 3 则 调用 退出 事件 
} 
} 
else 
{ 
theApp.name=m_Uname; /登录 成 功 后 保存 用 户 名 和 密码 
theApp.pwd=m_Upasswd; 
CDialog::OnOK(); 
return; 
) 
) 
else // 如 果 编 辑 框 为 空 则 提示 不 能 为 空 


AfxMessageBox(" 用 户 名 密码 不 能 为 空 "); 





2.8 开 台 模块 设计 





2.8.1 开 台 模块 概述 


开 台 是 餐饮 系统 中 前 台 的 第 一 个 服务 ， 顾 客 前 来 就 餐 时 ， 卖 家 第 一 步 应 做 的 就 是 开 台 ， 开 台 模 块 
应 该 直观 地 为 用 户 展示 当前 空 桌 的 情况 ， 提 高 用 户 工作 效率 。 开 台 模 
块 的 运行 效果 如 图 2.34 所 示 。 


2.8.2” 开 台 模 块 技术 分 析 


在 开 台 模块 中 ， 主 要 涉及 对 列表 控件 的 使 用 ， 以 及 如 何 将 数据 表 
中 的 数据 导入 到 列表 控件 中 。 在 营业 员 为 顾客 进行 选 桌 服务 时 ， 在 餐 
桌 使 用 情况 信息 表 中 双击 要 开 台 的 桌 台 ， 即 可 将 此 桌 台 的 桌 号 信息 添 
加 到 “选择 桌 号 ”文本 框 中 ， 大 大 地 方便 了 使 用 者 。 要 实现 此 功能 ， E234 开 台 模块 的 运行 效果 
首先 要 在 消息 对 话 框 左边 的 控件 名 称 中 找到 列表 控件 , 再 在 右边 的 事 
件 中 选择 NM_DBLCLK 事件 ， 并 为 其 添加 相应 的 代码 。 在 获取 数据 前 ， 系 统 要 先 获 取 用 户 双 击 选项 的 
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位 置信 息 ， 可 通过 GetSelectionMark 方法 实现 ， 再 通过 GetltemText 方法 获取 当前 位 置 的 文本 。 这 两 个 
方法 的 语法 如 下 : 
int GetSelectionMark(); 


返回 的 是 位 置 所 在 的 行 号 ，-1 表示 没有 位 置 。 





CString GetltemText(int nltem, int nSubltem) 


E] ntem: 表示 位 置 所 在 行 号 。 
回 nSubltem: 表示 列 号 。 


2.8.3” 开 台 模 块 实现 过 程 


国 ” 本 模块 使 用 的 数据 表 : TableUse 
C) 在 Resources 选项 卡 中 插入 一 个 对 话 框 资源 ,为 对 话 框 新 建 一 个 类 CKaitaidlg, 向 对 话 框 中 添 
加 一 个 静态 文本 控件 、 一 个 列表 控件 和 一 个 编辑 框 控 件 , 在 类 中 定义 一 个 _RecordsetPtr 类 型 变量 m_pRs， 
并 导入 全 局 变量 theApp。 控 件 的 属性 及 变量 设置 如 表 2.4 所 示 。 


X24 控件 属性 及 变量 设置 


控件 ID 
Dc STATIC x 
IDC LISTI CListCtrl m Zhuolist 
IDC EDITI CString m ZhuoHao 
IDC BUTTON OK Xx 
IDC BUTTON retum X 


(25 为 类 添加 WM. INITDIALOG 事件 并 添加 代码 ， 进 行 对 话 框 初始 化 设置 并 对 列表 控件 的 样式 
及 内 容 进行 设置 ， 代 码 如 下 : 


BOOL CKaitaidlg::OnlnitDialog() 
{ 








CDialog::OnlnitDialog(); 
/设置 窗口 图 标 
€ Setlcon(Loadlcon(AfxGetlinstanceHandle(),MAKEINTRESOURCE(IDIL_ICON kaitai)), TRUE); 
/为 列表 控件 设置 样式 
6 m Zhuolist.SetExtendedStyle(LVS EX FLATSB|LVS EX FULLROWSELECT|LVS, EX, HEADER 
DRAGDROP|LVS EX ONECLICKACTIVATE|LVS EX GRIDLINES); 
/为 列表 控件 添加 两 列 并 命名 
m_Zhuolist.InsertColumn(0," 桌 号 ",LVCFMT_LEFT,140,0); 
m_Zhuolist.InsertColumn(1," 状 态 ",LVCFMT_LEFT,140,1); 
CString sql="select * from tableuse"; 


/查询 数据 表 中 的 餐 台 号 信息 

m_pRs=theApp.m_pCon->Execute((_bstr_t)sql,NULL,adCmdText); 

int i=0; /| 控制 列表 控件 中 的 显示 顺序 

while(m_pRs->adoEOF==0) // 如 果 记 录 不 为 空 ， 则 遍历 数据 表 并 将 结果 添加 进 列表 控件 中 
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{ 
/将 餐 台 号 信息 存 入 str 变量 
CString strz(char*)( bstr tm_pRs->GetCollect(" 桌 号 "); 
int tableuseid-atoi((char*)( bstr bm_pRs->GetCollect("tableuseid"))// 将 使 用 信息 存 入 tableuseid 变量 


e m Zhuolist.Insertltem(i,""); /在 列表 控件 中 插入 一 行 
m Zhuolist.SetltemText(i,O,str); // 将 餐 台 号 信息 添加 进 该 行 第 一 列 
if(tableuseid==0) /判断 使 用 信息 是 否 为 0 
m_Zhuolist.SetltemText(i,1," 空 闲 "); // 如 果 为 0 就 在 该 行 第 二 列 插入 “空闲 ” 
if(tableuseid==1) /| 判断 使 用 信息 是 否 为 1 
m_Zhuolist.SetltemText(i,1," 有 人 "); // 如 果 为 1 就 在 该 行 第 二 列 插入 “有 人 ” 
i++; /控制 行 的 变量 自 增 
m_pRs->MoveNext(); // 移 向 下 一 条 记录 
} 
return TRUE; 
) 
«9 mud 


O SetIcon: 该 方法 用 于 设置 窗口 图 标 ，TRUE X X Bid, FALSE 是 小 图 标 . 
@ SetExtendedStyle: 该 方法 可 以 为 列表 控件 设置 需要 的 风格 。 
© InsertItem: 向 列表 控件 中 插入 行 。 


G) 选择 餐 台 号 时 不 仅 可 以 手动 输入 ， 而 且 要 实现 双击 列表 控件 中 的 餐 台 号 能 直接 将 餐 台 号 读 进 
编辑 框 控件 中 。 在 消息 管理 器 中 选择 列表 控件 的 双击 事件 (NM_DBLCLK) ， 添 加 函数 并 对 其 添加 
代码 ; 


void CKaitaidlg::OnDblclkList1(NMHDR* pNMHDR, LRESULT* pResult) 
{ 





CString str; 
// 获 取 当 前 列表 控件 中 的 鼠标 单 击 位 置 所 在 行 的 第 一 列 的 文本 
str=m_Zhuolist.GetltemText(m_Zhuolist.GetSelectionMark(),0); 
m_ZhuoHao=str; // 将 文本 添加 进 编辑 框 中 
UpdateData(false); 
*pResult = 0; 

} 


运行 后 双击 列表 控件 中 的 餐 台 号 ， 系 统 自动 将 该 桌 台 号 的 信息 显示 在 下 面 的 编辑 框 控件 中 。 

(4) 完成 了 界面 效果 的 编辑 ， 下 一 步 对 按钮 控件 进行 编码 。 用 户 在 单 击 “ 就 要 这 桌 ” 按 钮 时 ， 系 
统 应 该 先 判断 编辑 框 中 输入 的 数据 是 否 合法 ， 如 果 不 合法 ， 则 弹出 输入 错误 的 提示 ; 如果 合法 ， 则 弹 
出 输入 成 功 的 提示 ， 并 进入 “点 菜 ” 对 话 框 。 





wm 模块 中 涉及 弹出 “点 菜 ” 对 话 框 的 功能 ， 故 类 中 应 包含 点 菜 模块 (CDiancaidlg ) 的 头 文件 。 
点 菜 模块 将 在 2.9 节 介绍 ， 和 希望 读者 将 这 两 节 联 系 到 一 起 阅读 ， 方 便 理解。 


“就 要 这 桌 ” 按 钮 的 单 击 事件 代码 如 下 : 


UpdateData(); 
CString Value; 
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if(m ZhuoHao.IsEmpty()) / 浏 断 编辑 框 是 否 为 空 
AfxMessageBox(" St 5 T RE 73 8"); /如 果 为 空 则 提示 不 能 为 空 
else 
{ 
/如 果 不 为 空 则 查询 哪些 餐 台 正在 使 用 
CString Str="select * from TableUSE where TableUSEID-1"; 
m pRs-theApp.m pCon-»Execute(( bstr t)Str, NULL,adCmdText); 


while(Im pRs-»adoEOF) /| 当 记 录 不 为 空 时 
( 
/将 正在 使 用 的 餐 台 号 存 进 变量 中 
Value-(char*)( bstr tjm_pRs->GetCollect(" 桌 号 "); 
if(m_ZhuoHao==Value) /将 编辑 框 的 值 与 变量 相 比 较 
{ 
AfxMessageBox(" 有 人 了 "); // 如 果 相 等 则 提示 “有 人 了 ” 
m_ZhuoHao=""; /| 编辑 框 初始 化 显示 
UpdateData(false); 
return; 
) 
m pRs-»MoveNext(); /| 继续 下 一 条 记录 
) 
m pRs-NULL; /指针 位 置 初始 化 


// 餐 台 没 被 使 用 时 再 查询 是 否 存在 这 个 餐 台 号 
CString Str1-"select * from TableUSE where 桌 号 ="+m_ZhuoHao+""; 
m_pRs=theApp.m_pCon->Execute((_bstr_t)Str1,NULL,adCmdText); 


if(m_pRs->adoEOF) /如果 记 录 为 空 
{ 
AfxMessageBox(" 没 有 这 种 餐 台 "); // 则 提示 不 存在 这 样 的 餐 台 
m ZhuoHao-""; /| 编辑 框 初始 化 显示 
UpdateData(false); 
return; 
) 
m pRs-NULL; Iha3RSRTRSEAT SR TE 
CDiancaidlg dlg; /定义 一 个 点 菜 窗 体 实 例 


// 将 编辑 框 控件 中 的 数据 传递 给 点 菜 窗 体 中 的 变量 
dlg.m_ZhuoHao = m_ZhuoHao; 
dlg.DoModal(); // 弹 出 点 菜 窗 体 
CDialog::OnOK(); 

) 





“返回 上 层 ” 按 钮 的 单 击 事件 其 实 就 是 关闭 当前 对 话 框 ， 代 码 如 下 : 
CDialog::OnCancel(); 





2.9 点 菜 模 块 设计 


| ES 
| 视频 讲解 


2.9.1 点 菜 模块 概述 


点 菜 模块 和 开 台 模块 密 不 可 分 ， 在 为 顾客 开 台 后 会 自动 弹出 “点 菜 ” 对 话 框 为 顾客 点 菜 。 点 菜 模 
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块 运行 效果 如 图 2.35 所 示 。 E - 
29.2 点 菜 模块 技术 分 析 En oto Bh 


在 点 菜 模块 中 主要 应 用 了 两 个 列表 控件 之 间 的 数据 传递 
技术 ， 即 从 菜单 中 选择 顾客 所 需要 的 菜 式 并 将 其 添加 到 顾客 
的 账单 列表 中 。 在 传递 的 过 程 中 ， 菜 单列 表 是 不 能 被 修改 的 ， 
账单 列表 要 在 每 加 进 一 样 菜 式 时 就 必须 增加 一 行 数据 ， 而 在 
逆向 传递 时 ， 账 单列 表 的 数据 要 相应 减少 ， 但 菜单 列表 中 数 
据 不 变 。 菜 单列 表 应 该 采取 直接 从 数据 库 中 读 取 的 方式 ， 以 图 235 点 菜 模块 运行 效果 
防 遭 和 人 恶意 修改 ， 在 单 击 “确定 ”按钮 前 ， 所 有 的 数据 应 该 
都 只 在 列表 控件 中 进行 传递 而 不 写 入 数据 库 ， 从 而 保证 数据 库 的 安全 性 。 在 获取 列表 控件 当前 鼠标 指 
针 所 在 位 置 时 可 以 用 2.8 节 提 到 的 GetSelectionMark 方法 得 到 。 向 列表 中 插入 数据 可 以 使 用 SetItemText 
方法 ， 该 方法 用 于 设置 视图 项 的 文本 ， 语 法 如 下 : 

BOOL SetltemText(int nltem, int nSubltem, LPTSTR IlpszText); 


E] ntem: 标识 行 索引 。 
E] nSubltem: 标识 列 索引 。 
回 dpszText: 标识 设置 的 视图 项 文本 。 


2.9.3 点 菜 模块 实现 过 程 


E] 。 本 模块 使 用 的 数据 表 : TableUSE、caishiinfo、paybill 
1， 顾 客 点 菜 


(1). 在 Resources 选项 卡 中 插入 一 个 对 话 框 资源 ， 为 对 话 框 新 建 一 个 类 CDiancaidlg， 在 类 中 定义 
一 个 _RecordsetPtr 类 型 变量 m_pRs 并 导入 全 局 变量 theApp。 在 对 话 框 中 添加 两 个 列表 控件 、 一 个 静态 
文本 控件 、 一 个 编辑 框 控件 和 4 个 按钮 控件 。 控 件 的 属性 及 变量 如 表 2.5 所 示 。 


表 2.5 控件 属性 及 变量 设置 





























控件 ID 对 应 变量 
IDC STATIC 无 
IDC LIST2 CListCtil m CaidanList 
IDC LIST3 CListCtrl m CaidanCheck 





IDC EDIT zhuohao CString m ZhuoHao 





(2) Jy CDiancaidlg 类 添加 一 个 WM INITDIALOG 消息 ,用 于 设置 列表 控件 的 样式 及 内 容 ， 代 码 
如 下 : 


BOOL CDiancaidlg::OnlnitDialog() 


CDialog::OnlnitDialog(); 
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/为 窗 体 设置 图 标 
Setlcon(Loadlcon(AfxGetlnstanceHandle(),MAKEINTRESOURCE(IDI_ICON diancai)), TRUE); 
CString Sql-"select * from caishiinfo"; /查询 菜 式 信息 

/为 菜单 列表 进行 样式 设置 


m CaidanList.SetExtendedStyle(LVS EX, FLATSB|LVS, EX, FULLROWSELECT]| 
VS EX HEADERDRAGDROPI|LVS EX ONECLICKACTIVATEJ|LVS EX GRIDLINES); 
€ m CaidanList.InsertColumn(0,"3E&",LVCFMT LEFT,100,0); /为 菜单 列表 添加 两 列 并 命名 
m_CaidanList.InsertColumn(1," 菜 价 (元 )",LVCFMT_LEFT,100,1); 
// 读 取 数据 表 中 菜单 的 信息 向 列表 控件 中 添加 
m pRs-theApp.m pCon-»Execute(( bstr t)Sql, NULL,adCmdText); 


while(Im. pRs-»adoEOF) // 当 记录 集 指针 不 为 空 时 
{ 
CString TheValue,TheValue1; 
/将 菜 名 信息 存 入 变量 TheValue 
TheValue=(char*)(_bstr_t)m_pRs->GetCollect(" 菜 名 "); 
/将 菜 价 信息 存 入 变量 TheValue1 
TheValue1z(char*)( bstr tym pRs-»GetCollect("3&4ft"); 
m CaidanList.Insertltem(0,""); /为 列表 框 插 入 一 行 
e m CaidanList.SetltemText(0,0, TheValue); // 将 该 行 的 第 一 列 设置 为 文本 
m_CaidanList.SetltemText(0,1,TheValue1); // 将 该 行 的 第 二 列 设置 为 文本 
m_pRs->MoveNext(); /| 继续 下 一 条 记录 
) 
/为 菜单 选择 列表 进行 样式 设置 
m_CaidanCheck.SetExtendedStyle(LVS_EX_FLATSBILVS_EX_FULLROWSELECTILVS_EX_HEADERD 
RAGD 


ROP|LVS EX ONECLICKACTIVATE|LVS EX GRIDLINES); 
/为 菜单 选择 列表 添加 两 列 并 命名 
m_CaidanCheck.InsertColumn(0," 菜 名 "LVCFMT_LEFT,100,0); 
m_CaidanCheck.InsertColumn(1," 数 量 ( 盘 )",LVCFMT_LEFT,100,1); 
return TRUE; 

) 


«M» 代码 贴 十 
@ InsertColumn: 该 方法 主要 有 LVCFMT LEFT (向 左 靠 齐 )、LVCFMT RIGHT (向 右 靠 齐 ) fe LVCFMT. CENTER 
(居中 靠 齐 ) 3 种。 
@ SetItemText: 该 方法 用 于 向 列表 中 指定 行 、 指 定 列 并 插入 数据 。 


在 “点 菜 ” 对 话 框 中 ， 编 辑 框 控件 的 值 来 自 开 台 模 块 的 “就 要 这 桌 ” 按 钮 ， 当 开 台 确认 后 系统 会 
自动 将 台 号 的 值 赋 给 编辑 框 控件 ， 方 便 在 数据 表 中 进行 数据 存储 。 
G) 添加 一 个 用 于 输入 点 菜 数量 的 对 话 框 ， 新 建 一 个 CSLdlg 类 ， 在 对 话 框 中 添加 一 个 静态 控件 、 





一 个 编辑 框 控件 和 两 个 按钮 控件 ， 如 图 2.36 所 示 。 
(D 为 “点 菜 数量 ” 对话 框 的 编辑 框 控件 添加 一 个 CString 型 变量 xu 
m ShuLiang。 先 给 对 话 框 添加 一 个 对 话 框图 标 ， 要 想 实现 这 一 功能 ， Es 





先 要 在 Resources 选项 卡 中 插入 一 个 图 标 资源 ， 再 为 CSLdlg 类 添加 一 
个 WM_INITDIALOG 消息 ， 向 其 添加 如 下 代码 : 


Setlcon(Loadicon(AfxGetinstanceHandle(),MAKEINTRESOURCE(IDI ICON sl), TRUE); 


(m, 
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(5) 为 “点 菜 数量 ”对 话 框 中 的 “确定 ”按钮 添加 代码 ， 当 用 户 单 击 “ 确 定 ” 按 钮 时 系统 将 判断 
用 户 是 否 输入 数据 ， 数 量 至 少 要 为 1， 代 码 如 下 : 


UpdateData(); 


ifrm ShuLiang.IsEmpty()||m ShuLiang--"0") /判断 数量 编辑 框 是 否 为 空 或 是 否 为 0 
AfxMessageBox(" 数 量 至 少 为 1"); // 如 果 是 则 提示 至 少 为 1 
return; 


——— 
C6) 为 “点 菜 数量 ”对 话 框 中 的 “返回 ”按钮 添加 代码 ， 当 用 户 单 击 “ 返 回 ” 按 钮 时 系统 将 进入 
点 菜 窗 体 ， 代 码 如 下 : 
CDialog::OnCancel(); 
CD “点 菜 ” 对 话 框 中 的 “>>” 按 钮 用 于 将 菜单 中 的 菜 式 名 称 添加 进 顾客 的 点 菜 列表 中 ， 代 码 如 下 : 


void CDiancaidlg::OnButtonadd() 
{ 





CSLdlg Sldig; 


ifSldlg.DoModal()==IDOK) /| 单 击 “>>” 按 钮 前 要 求 输入 数量 
inti = m CaidanList.GetSelectionMark(); // 获 取 菜 单 中 所 选择 的 项 的 序号 
CString str = m_CaidanList.GetltemText(i,0); // 获 取 选 择 项 的 文本 
m CaidanCheck.Insertltem(0,""): 
m CaidanCheck.SetltemText(0,0, str); /将 文本 写 进 点 菜 栏 中 
/将 数量 写 进 点 菜 栏 中 


m CaidanCheck.SetltemText(0,1,Sldlg.m ShuLiang); 


} 





(8) “点 菜 ” 对 话 框 中 的 “<<” 按 钮 用 于 取消 顾客 已 点 的 菜 式 ， 代 码 如 下 : 
void CDiancaidlg::OnBUTTONsub() 


// 删 除 点 菜 栏 中 所 选择 的 项 
m CaidanCheck.Deleteltem(m CaidanCheck.GetSelectionMark()); 
) 


(9) 用 户 单 击 “ 确 定 ” 按 钮 时 ， 系 统 将 自动 生成 的 账单 添加 进 数据 表 中 ， 代 码 如 下 : 


void CDiancaidlg::OnButtonOk() 
{ 


UpdateData(); 
CString Sql; 
€ inti= m CaidanCheck.GetltemCount(); /获取 点 菜 列 表 中 项 的 总 数 
if(i==0) /如 果 项 数 为 0， 则 弹出 提示 
AfxMessageBox(" 请 点 菜 "); 
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return; 
) 
Sql-"update TableUSE set TableUSEID-21 where 桌 号 ="+m_ZhuoHao+" "; 
/点 菜 成 功 则 改变 该 餐 台 号 的 使 用 状态 
theApp.m_pCon->Execute((_bstr_t)Sql,NULL,adCmdText); 
CString Sql1,Str,Str1,Value, TotleValue; 


double Totle=0; // 定 义 一 个 变量 存放 营业 额 
for(int n=0;n<i;n++) /遍历 点 菜 列表 ， 将 数据 存 入 数据 表 
e Strzm CaidanCheck.GetltemText(n,0); IRRE n 行 第 一 列 的 数据 信息 
Stri-m CaidanCheck.GetltemText(n,1); IIR RB n 行 第 二 列 的 数据 信息 
Sql1="select * from caishiinfo where 菜 名 ="+Str+""; 
/获取 菜 价 信息 


m_pRs=theApp.m_pCon->Execute((_bstr_t)Sql1,NULL,adCmdText); 

Value=(char*)(_bstr_t)m_pRs->GetCollect(" 菜 价 "); 

/将 所 选 菜 式 的 菜 价 与 数量 相 乘 算出 总 价 

e Totle-atof(Value)*atof(Str1); 

TotleValue-(char*)( bstr t)Totle; 

/将 此 桌 的 点 菜 信息 和 消费 明细 写 入 数据 表 

Sql1="insert into paybill( 桌 号 , 菜 名 ,数量 ,消费 ) 
values("+m_ZhuoHao+","+Str+","+Str1+","+TotleValue+")"; 

theApp.m_pCon->Execute((_bstr_t)Sql1,NULL,adCmdText); 


} 
AfxMessageBox(" 点 菜 成 功 "); 
CDialog::OnOK(); 





«M 代码 贴 二 
@ GetltemCount: 获得 列表 控件 中 的 节点 数 。 
© GetltemText: 获得 列表 控件 指定 行 、 指 定 列 的 数据 。 
O atof; 将 字符 型 数据 转换 为 浮 点 型 数据 。 


(100 单 击 “ 取 消 ”按钮 将 关闭 “点 菜 ” 对 话 框 ， 代 码 如 下 : 





CDialog::OnCancel(); 








2. 加 菜 减 菜 
顾客 有 时 会 要 求 餐厅 加 菜 或 减 菜 ， 本 系统 针对 此 FELD = 一 一 | 








类 问题 设置 了 加 菜 减 菜 模 块 ， 方 便 餐 饮 管 理 者 更 好 地 azeze: E] 
满足 顾客 的 需求 ， 如 图 2.37 所 示 。 I 

(1) 在 Resources 选项 卡 中 插入 一 个 对 话 框 资源 ， 
新 建 一 个 CJiacaidlg 类 ， 在 类 中 定义 一 个 _RecordsetPtr 
类 型 变量 m_pRs 并 导入 全 局 变量 theApp。 对 其 添加 
一 个 静态 文本 控件 、 一 个 下 拉 列 表 框 控件 、 两 个 列 
表 控件 和 4 个 按钮 控件 。 控 件 的 属性 及 变量 如 表 2.6 l - —M 
所 示 。 图 2.37 “加 减 菜 ” 对 话 框 


e. 
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表 2.6 控件 属性 及 变量 设置 








控件 ID 控件 属性 对 应 变量 
IDC COMBO1 Drop List CComboBox m ZhuohaoCombo 
IDC LIST2 Report CListCtrl m CaidanList 





pM CL Cia CHR RE 


(2) 先 要 对 对 话 框 的 初始 化 进行 设计 ， 对 列表 控件 的 样式 和 内 容 进行 初始 化 设置 ， 对 类 添加 消息 


函数 WM_INITDIALOG， 代 码 如 下 : 


BOOL CJiacaidlg::OnlnitDialog() 


{ 


CDialog::OnlnitDialog(); 


/为 窗 体 设置 图 标 

Setlcon(Loadlcon(AfxGetinstanceHandle(), MAKEINTRESOURCE(IDI_ICON_diancai)), TRUE); 
CString Sql="select * from caishiinfo"; /查询 菜 式 信息 表 中 的 数据 

// 对 菜单 列表 进行 样式 设置 


m CaidanList.SetExtendedStyle(LVS EX FLATSB|LVS EX FULLROWSELECT|LVS EX HEAD 
ERDRAGDROPI|LVS EX ONECLICKACTIVATE|LVS EX GRIDLINES); 

/为 菜单 列表 添加 两 列 并 分 别 命名 

m_CaidanList.InsertColumn(0," 荣 名 "LVCFMT_LEFT,100,0); 

m_CaidanList.InsertColumn(1," 菜 价 (元 )",LVCFMT_LEFT,100,1); 

// 将 数据 表 中 的 菜单 信息 读 入 菜单 列表 中 

m_pRs=theApp.m_pCon->Execute((_bstr_t)Sql,NULL,adCmdText); 


while(Im_pRs->adoEOF) /判断 记录 集 指针 是 否 为 空 

{ 
CString TheValue,TheValue1; 
// 不 为 空 则 将 菜 名 信息 存 入 变量 
TheValue=(char*)(_bstr_t)m_pRs->GetCollect(" 菜 名 "); 
/将 菜 价 信息 存 入 变量 
TheValue1=(char*)(_bstr_t)m_pRs->GetCollect(" 菜 价 "); 
m CaidanList.Insertltem(0,""); /为 菜单 列表 插入 一 行 
m_CaidanList.SetltemText(0,0,TheValue); /将 菜 名 信息 添加 进 该 行 第 一 列 
m CaidanList.SetltemText(0, 1, TheValue1); /将 菜 价 信息 添加 进 该 行 第 二 列 
m_pRs->MoveNext(); /| 继续 下 一 条 记录 

) 

/为 点 菜 列表 进行 样式 设置 


m_CaidanCheck.SetExtendedStyle(LVS_EX_FLATSBILVS_EX_FULLROWSELECTILVS_EX_HEADERD 


RAGD ROP|LVS EX ONECLICKACTIVATE|LVS EX GRIDLINES); 


/为 点 菜 列表 添加 两 列 并 分 别 命名 
m_CaidanCheck.InsertColumn(0," 菜 名 ",LVCFMT_LEFT,100,0); 
m_CaidanCheck.InsertColumn(1," 数 量 ( 盘 )",LVCFMT_LEFT,100,1); 


Sql="select distinct 桌 号 from paybill"; /| 去 除 重复 的 餐 台 号 信息 
// 向 下 拉 列 表 框 控件 中 添加 数据 
m_pRs=theApp.m_pCon->Execute((_bstr_t)Sql, NULL,adCmdText); 
while(m_pRs->adoEOF==0) /判断 是 否 为 空 

// 将 餐 台 号 信息 存 入 变量 
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} 


CString zhuohao=(char*)(_bstr_t)m_pRs->GetCollect(" 桌 号 "); 
m_ZhuohaoCombo.AddString(zhuohao); // 为 下 拉 列 表 框 添加 餐 台 号 信息 
m_pRs->MoveNext(); /| 继续 下 一 条 记录 


} 
return TRUE; 





G) 当下 拉 列 表 框 控件 的 选项 变化 时 ， 所 选 餐 台 号 的 菜单 信息 也 应 该 相应 改变 ， 在 消息 对 话 框 中 


下 拉 列 表 框 控件 的 SELCHANGE 事件 代码 如 下 : 


void CJiacaidlg::OnSelchangeCombo1() 


{ 


) 


CString str; 

// 先 获取 所 选 选项 的 信息 
m_ZhuohaoCombo.GetLBText(m_ZhuohaoCombo.GetCurSel(),str); 
CString sql="select * from paybill where 桌 号 ="+str+"™; 

// 到 数据 表 中 查找 相关 餐 台 号 的 数据 信息 

m pRs-theApp.m pCon-»Execute(( bstr t)sql, NULL,adCmdText); 


m CaidanCheck.DeleteAllltems(); // 菜 单 选择 列表 框 初始 化 清空 
// 将 查找 到 的 信息 写 入 点 菜 列表 中 
while(Im_pRs->adoEOF) // 判 断 记 录 集 是 否 为 空 
{ 
// 将 菜 名 信息 存 入 变量 


CString valuename=(char*)(_bstr_t)m_pRs->GetCollect(" 菜 名 "); 
CString valuenum=(char*)(_bstr_t)m_pRs->GetCollect(" 数 量 "); // 将 数量 信息 存 入 变量 


m CaidanCheck.Insertltem(0,""); /为 菜单 列表 插入 一 行 
m_CaidanCheck.SetltemText(0,0,valuename); // 将 菜 名 添加 进 该 行 第 一 列 
m_CaidanCheck.SetltemText(0,1,valuenum); // 将 数量 添加 进 该 行 第 二 列 
m_pRs->MoveNext(); /下 一 条 记录 





(4) 单 击 “>>” 按 钮 将 菜单 中 的 菜 式 名 称 添加 进 用 户 当前 账单 中 ， 代 码 如 下 : 








void CJiacaidlg::OnButtonadd() 


( 


CSLdlg Sldlg; 
if(Sldlg.DoModal()7--IDOK) /点 菜 前 先 添加 数量 信息 
{ 

inti = m CaidanList.GetSelectionMark(); /获取 当前 选中 项 的 序号 


CString str = m_CaidanList.GetltemText(i,0); 

m CaidanCheck.Insertltem(0,""): 

/将 选中 项 的 信息 添加 进 点 菜 列表 中 

m CaidanCheck.SetltemText(0,0,str); 

/将 数量 信息 添加 到 点 菜 列表 

m CaidanCheck.SetltemText(0,1,Sldlg.m ShuLiang); 
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(5) 单 击 “<<” 按 钮 将 从 账单 中 取消 用 户 刚刚 所 点 的 菜 式 名 称 ， 代 码 如 下 : 


void CJiacaidlg::OnButtonsub() 


} 


1/ 删除 点 菜 列 表 中 所 选 的 项 
m CaidanCheck.Deleteltem(m CaidanCheck.GetSelectionMark()); 


(6) 单 击 “确定 ”按钮 ， 系 统 将 把 已 经 变动 的 账单 信息 重新 添加 进 数据 表 中 ， 并 将 原始 的 账单 信 


息 删 除 ， 代 码 如 下 : 


void CJiacaidlg::OnButtonOK() 


{ 


UpdateData(); 

CString Sql; 

CString zhuohao; 

if(m_ZhuohaoCombo.GetCurSel()==-1) // 如 果 下 拉 列 表 框 控件 中 没有 选择 数据 则 要 求 选择 
{ 


AfxMessageBox(" 请 选择 要 加 菜 的 桌 号 "); 
return; 


) 
// 获 取 下 拉 列 表 框 控件 中 所 选择 的 信息 
m_ZhuohaoCombo.GetLBText(m_ZhuohaoCombo.GetCurSel(),zhuohao); 


inti = m_CaidanCheck.GetltemCount(); // 获 取 点 菜 列表 的 项 目 总 数 

if(i==0) // 如 果 点 菜 列 表 总 数 为 0， 则 提示 请 点 菜 
AfxMessageBox(" 请 点 菜 "); 
return; 


} 

CString Str,Str1,Value,TotleValue; 

1/ 删除 账单 中 此 餐 台 号 原 有 的 账单 信息 

CString Sql1="delete from paybill where 桌 号 ="+zhuohao+""; 
theApp.m_pCon->Execute((_bstr_t)Sql1,NULL,adCmdText); 

double Totle=0; /定义 变量 记录 总 消费 
// 将 经 过 增加 或 减少 的 新 账单 信息 写 入 数据 库 

for(int n=0;n<i;n++) 


Str=m_CaidanCheck.GetltemText(n,0); IRRE n 行 第 一 列 的 文本 
Str1=m_CaidanCheck.GetltemText(n,1); IRRE n 行 第 二 列 的 文本 
/在 菜 式 信息 表 中 获取 菜 名 一 致 的 信息 

Sql1="select * from caishiinfo where 菜 名 ="+Str+""; 
m_pRs=theApp.m_pCon->Execute((_bstr_t)Sql1,NULL,adCmdText); 

/获取 该 菜 名 的 菜 价 信息 

Value-(char*)( bstr. t)m pRs-»GetCollect("34ft"); 

// 将 数量 与 菜 价 转化 成 整 型 数 ， 相 乘 得 到 总 消费 额 

Totle=atof(Value)*atof(Str1); 


TotleValue-(char*)( bstr. t)Totle; // 将 总 消费 额 转化 成 CString 型 
Sql1="insert into paybill( 桌 号 , 菜 名 ,数量 ,消费 ) values("+zhuohao+","+Str+" "+Str1+","+TotleValue+")"; 
// 将 菜单 信息 插入 数据 表 中 


theApp.m_pCon->Execute((_bstr_t)Sql1,NULL,adCmdText); 





8) 
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AfxMessageBox(" 操 作成 功 "); 
CDialog::OnOK(); 


CD 单 击 “ 取 消 ” 按 钮 关闭 当前 对 话 框 ， 代 码 如 下 : 


CDialog::OnCancel(); 


2.94 单元 测试 


在 加 菜 减 菜 模块 中 ， 由 于 在 加 菜 过 程 中 会 先 调用 当前 餐 台 号 所 拥有 的 菜 式 账单 ， 用 户 对 其 添加 数 
据 确认 后 会 重复 向 数据 表 中 写 入 原 有 的 菜 式 信息 ， 使 顾客 的 账单 出 错 。 

为 避免 上 述 情况 的 发 生 ， 在 系统 将 新 生成 的 菜 式 信息 保存 进 数 据 表 时 ， 必 须 将 数据 表 中 的 原 有 菜 
式 信息 全 部 删除 ， 将 经 过 加 菜 、 减 菜 后 的 数据 表 作 为 当前 餐 台 号 的 最 新 账单 。 为 实现 这 一 目的 ， 笔 者 
在 “确定 ”按钮 的 单 击 事件 下 添加 如 下 代码 : 

1/ 删除 所 选 餐 台 号 的 账单 信息 


CString Sql1="delete from paybill where $- 5="+zhuohao+""; 
theApp.m_pCon->Execute((_bstr_t)Sql1,NULL,adCmdText); /执行 语句 





2.4.0 结账 模块 设计 





2.10.1 结账 模块 概述 


结账 模块 可 对 当前 顾客 消费 进行 结算 , 顾客 结账 完 
成 后 系统 自动 将 收入 金额 的 数据 写 入 数据 表 中 , 从 而 能 
很 好 地 反映 营业 情况 。 结 账 模块 的 运行 效果 如 图 2.38 
所 示 。 


2.10.2 ”结账 模块 技术 分 析 


在 结账 时 ,如 果 顾 客 所 在 的 餐 台 号 比较 靠 后 , 在 下 
拉 列 表 框 控件 中 就 必须 按 下 拉 按 钮 逐个 寻找 , 在 结账 顾 图 2.38 ”结账 模块 的 运行 效果 
客 数 量 较 多 的 情况 下 , 这 种 方法 显然 严重 影响 了 工作 效 
率 。 为 此 笔者 为 下 拉 列 表 框 控件 增加 了 手动 输入 的 功能 ， 使 营业 员 在 结账 时 既 可 以 在 下 拉 列 表 框 中 选 
择 桌 号 ， 也 可 以 手动 输入 桌 号 ， 极 大 地 方便 了 使 用 者 ， 提 高 了 结账 速度 和 顾客 的 满意 程度 。 

要 实现 上 述 功能 ， 就 必须 给 列表 控件 添加 一 个 EDITCHANGE 事件 ， 在 事件 中 添加 相应 代码 对 输 
入 的 信息 进行 判断 。 本 系统 中 的 餐 台 号 都 是 4 位 数 ， 因 此 在 事件 中 首先 判断 输入 的 是 不 是 一 个 4 位 数 ， 
如 果 不 是 ， 则 提示 错误 信息 ; 如 果 是 ， 则 显示 相应 的 消费 信息 。 实 现 这 一 功能 需要 使 用 CString 类 提供 


e. 
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的 GetLength 方法 ， 语 法 如 下 : 
int GetLength() 
返回 值 是 一 个 整 型 数 ， 是 字符 串 的 长 度 。 


2.10.3 ”结账 模块 实现 过 程 


国 ” 本 模块 使 用 的 数据 表 : paybill、TableUse 
(1) 在 Resources 选项 卡 中 插入 一 个 对 话 框 资源 ， 为 其 新 建 一 个 CJiezhangdlg 类 ， 在 类 中 定义 一 
个 _RecordsetPtr 类 型 变量 m_pRs 并 导入 全 局 变量 theApp。 在 “结账 ” 对 话 框 中 添加 5 个 静态 文本 控件 、 
3 个 编辑 框 控件 、 一 个 下 拉 列 表 框 控件 、 一 个 列表 控件 和 两 个 按钮 控件 。 


各 个 控件 属性 及 变量 设置 如 表 2.7 所 示 。 
表 2.7 控件 属性 及 变量 设置 
控件 1D 对 应 变量 
IDC_COMBO1 CComboBox m Combo 
IDC yingshou CEdit m YingShou 
IDC shishou CEdit m ShiShou 
IDC zhaoling CEdit m ZhaoLing 





IDC mingi CListCul m MingXi 


(2) 为 对 话 框 进行 初始 化 设置 ， 为 类 添加 一 个 成 员 变 量 res， 类 型 为 Bool 型 。 该 变量 主要 控制 下 
拉 列 表 框 控件 接受 数据 的 方式 ，False 为 下 拉 选 择 型 ，True 为 手动 输入 型 。 

为 类 添加 一 个 WM_INITDIALOG 消息 ， 对 列表 控件 设置 样式 并 对 其 内 容 进行 初始 化 设置 。 代 码 
如 下 : 


BOOL CJiezhangdlg::OnlnitDialog() 
{ 





CDialog::OnlnitDialog(); 


// 设 置 窗口 图 标 
Setlcon(Loadicon(AfxGetInstanceHandle() MAKEINTRESOURCE(IDI ICON pay)), TRUE); 
CString TheValue; 
// 获 取 数 据 表 中 正在 消费 的 餐 台 号 
m_pRs=theApp.m_pCon->Execute((_bstr_t)("select * from TableUSE where TableUSEID=1"),NULL,adCmdText); 
// 将 餐 台 号 添加 进 下 拉 列 表 框 控件 中 
€ if(m_pRs->GetRecordCount()==0) // 如 果 记 录 数 量 为 0 则 返回 
return true; 
if(m_pRs->GetRecordCount()==1) // 如 果 记 录 数 量 为 1 则 将 数据 添加 进 下 拉 列 表 框 控件 
{ 
/获取 记录 中 的 餐 台 号 信息 
TheValue=(char*)(_bstr_t)m_pRs->GetCollect(" 桌 号 "); 
e m Combo.AddString(TheValue); /将 餐 台 号 信息 添加 进 下 拉 列 表 框 控件 中 
return true; 
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} 
while(Im_pRs->adoEOF) // 当 记录 集 不 为 空 时 
{ 
/获取 餐 台 号 信息 
TheValue=(char*)(_bstr_t)m_pRs->GetCollect(" 桌 号 "); 
m Combo.AddString(TheValue); /将 餐 台 号 信息 添加 进 下 拉 列 表 框 中 
m_pRs->MoveNext(); /| 继续 下 一 条 记录 
} 
/设置 消费 明细 列表 样式 


m MingXi.SetExtendedStyle(L VS EX FLATSB|LVS EX FULLROWSELECT|LVS EX HEADERDRAGDROP| 
LVS EX ONECLICKACTIVATE|LVS EX GRIDLINES); 

m MingXi.InsertColumn(0, "3t ",LVCFMT. LEFT, 100,0); /为 消费 明细 列表 添加 3 列 并 分 别 命名 

m_MingXi.InsertColumn(1," 数 量 ",LVCFMT_LEFT,100,1); 

m_MingXi.InsertColumn(2," 消 费 ( 元 )",LVCFMT_LEFT,120,1); 





res = FALSE; /下 拉 列 表 框 控件 获取 数据 的 方式 ， 默 认 是 下 拉 选 择 型 
return true; 
} 
«M 代码 贴 士 


© GetRecordCount: 该 方法 的 返回 值 就 是 下 拉 列 表 框 控件 中 的 总 行 数 。 
© AddString: 该 方法 用 于 向 下 拉 列 表 框 中 插入 选项 。 


(3) 在 对 话 框 左边 的 控件 窗口 中 选择 下 拉 列 表 框 控 件 ， 再 在 右边 消息 窗口 中 选择 SELCHANGE 
事件 。 代 码 如 下 : 





void CJiezhangdlg::OnSelchangeCombo1() 


f 


UpdateData(); 

CString str,sql,caiming,shuliang,xiaofei,xiaofeitotle, TheValue; 
/定义 变量 存放 总 消费 金额 数值 

double totle=0; 

// 获 得 当前 选择 项 的 信息 并 存 入 变量 

m Combo.GetLBText(m Combo.GetCurSel(),str); 
sql="select * from paybill where 桌 号 ="+str+""; 


/获取 当 前 餐 台 号 的 账单 信息 

m pRs-theApp.m pCon-»Execute(( bstr t)sgl, NULL,adCmdText); 

m MingXi.DeleteAllltems(); /清空 列表 控件 

// 将 获取 的 账单 信息 添加 进 明 细 列 表 控 件 中 

while(m_pRs->adoEOF==0) /判断 记录 是 否 为 空 

{ 
// 获 取消 费 信息 并 存 入 变量 
TheValue=(char*)(_bstr_t)m_pRs->GetCollect(" 消 费 "); 
totle+=atof(TheValue); // 将 消费 转换 成 整 型 进行 累加 
/获取 菜 名 信息 并 存 入 变量 
caiming=(char*)(_bstr_t)m_pRs->GetCollect(" 菜 名 "); 
// 获 取 数 量 信息 并 存 入 变量 
shuliang=(char*)(_bstr_t)m_pRs->GetCollect(" 数 量 "); 
// 获 取消 费 信息 并 存 入 变量 


xiaofei=(char*)(_bstr_t)m_pRs->GetCollect(" 消 费 "); 
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} 


m MingXi.Insertltem(0,""); 

m MingXi.SetltemText(0,0,caiming); 
m MingXi.SetltemText(0,1,shuliang); 
m MingXi.SetltemText(0,2,xiaofei); 
m pRs-»MoveNext(); 


) 

xiaofeitotle-(char*)( bstr t)totle; 

m YingShou.SetWindowText(xiaofeitotle); 
UpdateData(false); 


/为 明细 列表 插入 一 行 
/在 该 行 的 第 1 列 添加 菜 名 信息 
/在 该 行 的 第 2 列 添加 数量 信息 
/在 该 行 的 第 3 列 添加 消费 信息 
/| 继续 下 一 条 记录 


// 算 出 消费 总 金额 
// 将 消费 总 金额 在 “应 收 ” 控 件 中 显示 





«9 代码 贴 十 
@ GetLBText: 该 方法 用 于 获取 相应 行 的 文本 信息 并 将 其 存 入 字符 变量 中 。 


@ DeleteAllitems: 该 方法 用 于 删除 列表 控件 中 的 所 有 数据 。 


(4) 在 对 话 框 左边 的 控件 窗口 中 选择 下 拉 列 表 框 控件 ， 在 右边 消息 窗口 中 选择 EDITCHANGE 事 
件 并 添加 如 下 代码 : 





void CJiezhangdlg::OnEditchangeCombo1() 


{ 


m MingXi.DeleteAllltems(); 

m YingShou.SetWindowText(""); 
CString str; 

m Combo.GetWindowText(str); 
if(str.GetLength()-4) 

{ 


UpdateData(); 


/清空 列表 控件 
I| “应 收 ” 控 件 中 数值 初始 化 


/获取 下 拉 列 表 框 控件 中 输入 的 数值 
// 判 断 位 数 ， 这 里 餐 台 号 都 是 4 位 数 


CString sql,caiming,shuliang,xiaofei,xiaofeitotle, TheValue; 


double totle-0; 


sql="select * from paybill where 桌 号 ="+str+""; 


/在 数据 表 中 查询 当前 餐 台 号 的 信息 


/定义 变量 存放 消费 总 数 


m pRs-theApp.m pCon-»Execute(( bstr t)sql, NULL,adCmdText); 


while(m pRs-»adoEOF--0) 


{ 
/获取 消费 信息 并 存 入 变量 


// 淹 断 记 录 是 否 为 空 


TheValue=(char*)(_bstr_t)m_pRs->GetCollect(" 消 费 "); 


totle+=atof(TheValue); 
// 获 取 菜 名 信息 并 存 入 变量 


// 将 消费 转换 成 整 型 进行 累加 


caiming=(char*)(_bstr_t)m_pRs->GetCollect(" 菜 名 "); 


/获取 数量 信息 并 存 入 变量 


shuliang=(char*)(_bstr_t)m_pRs->GetCollect(" 数 量 "); 


// 获 取消 费 信息 并 存 入 变量 


xiaofei=(char*)(_bstr_t)m_pRs->GetCollect(" 消 费 "); 


m_MingXi.Insertltem(0,"™"); 

m MingXi.SetltemText(0,0,caiming); 
m MingXi.SetltemText(0,1,shuliang); 
m MingXi.SetltemText(0,2,xiaofei); 
m pRs-»MoveNext(); 


/为 明细 列表 插入 一 行 
/在 该 行 的 第 1 列 添加 菜 名 信息 
/在 该 行 的 第 2 列 添加 数量 信息 
/在 该 行 的 第 3 列 添加 消费 信息 
/继续 下 一 条 记录 
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xiaofeitotle=(char*)(_bstr_t)totle; /算出 消费 总 金额 

/将 消费 总 金额 显示 在 “应 收 ” 控 件 中 

m  YingShou.SetWindowText(xiaofeitotle); 

res - TRUE; // 表 示 是 用 手动 输入 方式 
UpdateData(false); 


) 
C5) 在 顾客 付款 后 ， 应 在 “ 实 收 ”编辑 框 中 输入 顾客 的 付款 金额 ， 此 时 “ 找 零 ” 编 辑 框 中 应 该 实 
时 计算 出 应 找 给 顾客 的 金额 。 
为 达到 上 述 目的 , 先 在 对 话 框 中 选中 对 应 “ 实 收 ”的 编辑 框 控 件 名 ,再 在 右边 选择 它 的 EN. CHANGE 
事件 ， 在 此 事件 中 添加 如 下 代码 : 


void CJiezhangdlg::OnChangeEDITshishou() 
t 





double zhaoling; 


CString ShiShou, YingShou; 

m ShiShou.GetWindowText(ShiShou); // 获 得 实 收 的 金额 数 

m YingShou.GetWindowText(YingShou); // 获 得 应 收 的 金额 数 
zhaoling = atof(ShiShou) - atof(YingShou); // 算 出 应 该 找 给 顾客 的 金额 数 
CString str; 

str.Format("960.2f" zhaoling); // 将 找 零 格式 化 为 两 位 小 数 

m ZhaoLing.SetWindowText(str); // 将 找 零 实 时 显示 在 编辑 框 中 


} 





(6) 在 单 击 “ 结 账 ”按钮 时 ， 系 统 自动 将 当前 餐 台 号 的 使 用 状态 变 成 空闲 状态 ， 并 将 账单 数据 表 
清空 ， 然 后 将 这 次 结账 的 收入 写 进 日 收入 数据 表 中 ， 方 便 查 询 日 收入 ， 代 码 如 下 : 





UpdateData(); 

CString str,str1,str2,str3; 

CString TheValue; 

CString ShiShou, YingShou; 

m Combo.GetWindowText(str1); // 获 取 下 拉 列 表 框 中 的 餐 台 号 信息 
if(str1.GetLength()<4||str1.GetLength()>4) /判断 餐 台 号 是 否 为 4 位 数 


AfxMessageBox(" 输 入 错误 "); // 如 果 不 是 4 位 数 则 提示 出 错 
return; 


) 
CString bjsql-"select * from TableUSE where 桌 号 ="+str1+"' 


/查询 数据 表 中 对 应 的 餐 台 号 信息 

m_pRs=theApp.m_pCon->Execute((_bstr_t)bjsql,NULL,adCmdText); 

if(m_pRs->adoEOF) /| 判断 记录 是 否 为 空 
AfxMessageBox(" 没 有 这 张 餐 台 "); /如果 为 空 ， 则 提示 没有 餐 台 
return; 

) 

/获取 对 应 餐 台 号 的 使 用 情况 


CString bjstrz(char*)( bstr t)ym pRs-»GetCollect("TableUSEID"); 


e. 
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if(bjstrz-"0") 


AfxMessageBox(" 该 桌 不 需要 付款 "); 


return; 


} 
m_ShiShou.GetWindowText(str3); 
if(str3.IsEmpty()) 

t 


AfxMessageBox(" 请 输入 顾客 付款 "); 
return; 

} 

if(res == TRUE) 
m_Combo.GetWindowText(str); 

else 


m_Combo.GetLBText(m_Combo.GetCurSel(),str); 


m ZhaoLing.SetWindowText(""); 

double zhaoling,rishouru-0; 

m ShiShou.GetWindowText(ShiShou); 

m YingShou.GetWindowText(YingShou); 
rishouru-atof(YingShou); 
if(atof(ShiShou)«atof( YingShou)) 


AfxMessageBox(" 想 吃 霸王 餐 ? "); 
return; 


else 


CTime time; 

time = CTime::GetCurrentTime(); 

CString str1 = time.Format("96Y-96m-96d"); 
zhaoling-atof(ShiShou)-atof(YingShou); 
TheValue-(char*)( bstr t)zhaoling; 

m ZhaoLing.SetWindowText(TheValue); 
UpdateDataf(false); 

CString sql; 


/如 果 为 0， 则 提示 不 需要 付款 


/获取 客人 付款 的 金额 
// 如 果 编 辑 框 为 空 ， 则 提示 输入 


// 判 断 res 的 状态 ，TRUE 则 为 手动 输入 型 ，FALSE 为 下 拉 选 择 型 


// 手 动 输入 获取 编辑 框 中 的 文本 信息 


// 获 取 下 拉 列 表 框 中 的 内 容 
/1/“ 找 零 ”编辑 框 初始 化 显示 


// 获 取 实 收 金额 

// 获 取 应 收 金 额 

// 将 应 收 的 金额 赋值 给 日 收入 

// 判 断 实 收 金额 和 应 收 金 额 的 大 小 


// 如 果实 收 小 于 应 收 则 提示 


// 定 义 一 个 时 间 类 变量 

// 获 取 当 前 系统 时 间 

// 将 系统 时 间 转 换 成 CString 型 变量 
// 算 出 找 零 金 额 

// 将 找 零 金额 转换 成 CString 型 变量 
// 在 “ 找 零 ” 编 辑 框 中 显示 找 零 金 额 


str2="update TableUSE set TableUSEID=0 where 桌 号 ="+str+" "; 


// 收 改 付款 后 该 桌 的 使 用 状态 


theApp.m_pCon->Execute((_bstr_t)str2, NULL,adCmdText); 


TheValue.Format("%0.2f",rishouru); 


// 将 日 收入 转换 成 两 位 单 精度 数 


sql-"update shouru set 日 收入 = 日 收入 +"+TheValue+" where 时 间 ="+str1+""; 


// 将 当天 的 日 收入 进行 累加 


theApp.m_pCon->Execute((_bstr_t)sql,NULL,adCmdText); 


m YingShou.SetWindowText(""); 
m ShiShou.SetWindowText(""); 
m ZhaoLing.SetWindowText(""); 
m Combo.SetWindowText(""); 


m Combo.DeleteString(m Combo.GetCurSel()); 


m MingXi.DeleteAllltems(); 


sql-"delete from paybill where 桌 号 ="+str+""; 


/ “应 收 ”编辑 框 初始 化 显示 

/1/“ 实 收 ” 编 辑 框 初始 化 显示 

/1/“ 找 零 ” 编 辑 框 初始 化 显示 
/下 拉 列 表 框 初始 化 显示 

/删除 下 拉 列 表 框 中 所 选中 的 选项 
/清空 列表 控件 
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// 将 账单 中 该 桌 的 信息 删除 
theApp.m_pCon->Execute((_bstr_t)sql,NULL,adCmdText); 
AfxMessageBox(" 欢 迎 再 来 "); 

J 





CD 给 “再 见 ” 按 钮 添加 如 下 代码 : 


CDialog::OnCancel(); 





2.10.4 ”单元 测试 


在 结账 模块 中 ， 如 果 在 下 拉 列 表 框 控件 中 没有 
任何 数据 被 输入 或 选择 时 ， 直 接 单 击 了 “结账 ” 按 
钮 或 误 按 了 Enter 键 ,将 会 出 现 如 图 2.39 所 示 的 提示 
信息 。 

导致 这 种 错误 的 原因 主要 是 系统 没有 对 下 拉 列 
表 框 控件 的 输入 进行 判断 ， 如 果 下 拉 列 表 框 控件 的 
属性 是 Drop List， 则 只 需 判断 它 的 当前 项 的 值 是 否 
等 于 -1 即 可 ，-1 表示 没有 选择 ， 代 码 如 下 : 图 2.39 ”结账 模块 提示 出 错 


























if(m_Combo.GetCurSel()==-1) 


AfxMessageBox(" 输 入 错误 "); 
return; 


) 





但 在 本 系统 中 ， 由 于 列表 控件 既 要 接受 下 拉 选 择 ， 又 要 接受 文本 输入 ， 所 以 将 其 属性 设置 为 Drop- 
Down。 在 判断 其 是 否 有 数值 输入 时 需要 判断 输入 的 位 数 ， 因 为 只 有 当 输 入 位 数 与 餐 台 号 位 数 相等 时 ， 
系统 才 通过 验证 ， 代 码 如 下 : 


if(str1.GetLength()<4||str1.GetLength()>4) 
{ 


AfxMessageBox(" 输 入 错误 "); 
return; 





2.11 数据 库 维护 模块 设计 


2.11.1 数据 库 维护 模块 概述 


在 系统 的 日 常 使 用 过 程 中 ， 数 据 库 损坏 或 数据 库 丢 失 的 现象 时 有 发 生 ， 为 了 避免 该 现象 对 用 户 造 
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成 影响 ， 本 系统 中 加 入 了 数据 库 维护 模块 ， 用 户 可 以 通过 该 模块 对 数据 库 进行 备份 、 还 原 及 初始 化 等 
操作 ， 大 大 提高 了 用 户 数据 的 安全 性 。 数 据 库 维护 模块 的 运行 效果 如 图 2.40 和 图 2.41 所 示 。 


misse m 





请 迁 择 要 备份 的 目录 
Li ma 


BERIE pu 
ERROR EEHUN- 
At: E 


asata 
确定 取消 


图 2.40 数据 库 备份 运行 效果 图 2.41 数据 库 还 原 运行 效果 


2.11.2 ”数据 库 维护 模块 技术 分 析 

















EK 退出 





由 于 本 系统 采用 的 是 Access 2010 数据 库 ， 所 以 在 数据 库 的 操作 方面 与 SQL Server 数据 库 有 一 定 的 
不 同 ， 例 如 ， 数 据 库 的 备份 操作 ，SQL Server 数据 库 直接 使 用 Backup 语句 即 可 实现 ， 而 Access 数据 库 
中 没有 Backup 语句 供 程序 员 使 用 。 在 Access 数据 库 中 备份 、 还 原 数据 库 的 方法 其 实 与 读者 在 Windows 
中 备份 文件 的 方法 一 样 。 在 Access 数据 库 中 ， 备 份 数据 库 就 是 将 源 数据 库 复 制 到 相应 文件 夹 的 过 程 ， 而 
还 原 数据 库 则 是 备份 操作 的 逆 操 作 , 即将 以 前 备份 好 的 数据 库 复制 并 粘贴 到 现在 数据 库 所 在 的 文件 夹 中 ， 
对 现 有 数据 库 进行 覆盖 操作 以 达到 还 原 的 目的 。 以 备份 操作 为 例 ， 在 系统 进行 复制 前 首先 要 获得 当前 数 
据 库 所 在 的 位 置 ， 这 时 可 以 用 GetCurrentDirectory 方法 获取 当前 数据 库 所 在 的 地 址 路 径 。 





char buf[256]; /首先 创建 一 个 字符 数组 存放 路 径 
::GetCurrentDirectory(256,buf); /获取 数据 库 所 在 的 文件 夹 
strcat(buf,"\\canyin.mdb"); /将 文件 夹 路 径 与 数据 库 名 称 连 接 组 成 数据 库 的 地 址 路 径 





2.1.3. 数据库 维 护 模块 实现 过 程 


1. 数据 库 备 份 


数据 库 备份 的 具体 实现 过 程 如 下 : 
C1) 在 Resources 选项 卡 中 插入 一 个 对 话 框 资源 ， 为 其 新 建 一 个 CCopydlg 类 ， 在 对 话 框 中 添加 3 
个 静态 文本 控件 、 两 个 编辑 框 控件 和 3 个 按钮 控件 。 将 “路 径 ” 编 辑 框 控件 的 属性 设置 为 Read-only， 
对 其 添加 一 个 CEdit 类 型 变量 m_Edit， 再 对 “请 输入 文件 名 ”编辑 框 添加 一 个 CString 类 型 变量 m Name. 
QD 在 单 击 “ 浏 览 ” 按 钮 时 ， 弹 出 一 个 文件 路 径 选 择 对 话 框 方便 用 户 选择 备份 路 径 ， 代 码 如 下 : 





CString ReturnPach; /定义 一 个 字符 串 变 量 保存 存储 路 径 
TCHAR szPathL_MAX_PATH]; 
BROWSEINFO bi; /定义 一 个 对 话 框 实例 


bi.hwndOwner=NULL; 

bi.pidIRoot=NULL; 

bi.lpszTitle=_T(" 请 选择 备份 文件 夹 "); /设置 窗口 标题 
bi.pszDisplayName-szPath; 

bi.ulFlags-BIF RETURNONLYFSDIRS; 

bi.IpfnZ NULL; 
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bi.IParam=NULL; 
LPITEMIDLIST pltemlDList=SHBrowseForFolder(&bi); 。 // 获 得 选择 路 径 


if(pltemIDList) IHRER SR E RES 
t 

if(SHGetPathFromlDList(pltemIDList,szPath)) 

ReturnPach-szPath; // 如 果 路 径 不 为 空 ， 则 将 路 径 赋 给 字符 串 

} 
else 

ReturnPach=""; /路 径 为 空 ， 字 符 串 同时 为 空 
m Edit.SetWindowText(ReturnPach); // 将 路 径 显示 在 编辑 框 中 


G) 在 添加 完 想 要 保存 的 路 径 后 ， 用 户 要 在 编辑 框 中 输入 想 保存 的 文件 名 称 ， 随 后 给 “确定 ” 按 
钮 添加 如 下 代码 : 





UpdateData(); 

CString str,strpath; 

m Edit.GetWindowText(str); // 获 取 编 辑 框 中 的 路 径 地 址 

strpath = str&"W'«m Name-".mdb"; // 将 路 径 和 要 求 的 文件 名 以 固定 的 格式 组 合 
char buf[256]; 

::GetCurrentDirectory(256,buf); 

strcat(buf,"\\canyin.mdb"); // 获 取 当 前 程序 的 数据 库 地 址 
CopyFile(buf,strpath,false); // 复 制 文件 ，false 代表 遇 到 同文 件 名 进行 覆盖 
MessageBox(" 备 份 完成 ! "," 系 统 提示 "MB_OKIMB_ICONEXCLAMATION); 

CDialog::OnOK(); 

2. 数据 库 还 原 


Access 数据 库 的 还 原 操作 其 实 就 是 备份 操作 的 一 个 逆 过 程 ， 备 份 操作 是 将 原 有 数据 库 复制 到 指定 
文件 夹 ， 而 还 原 操 作 则 是 将 指定 文件 夹 中 的 数据 库 文 件 复制 到 当前 数据 库 文件 夹 中 并 进行 覆盖 ， 从 而 
实现 数据 库 的 还 原 。 

(1) 在 Resources 选项 卡 中 插入 一 个 对 话 框 资源 ， 为 其 新 建 一 个 CReturndlg 类 ， 在 对 话 框 中 添加 
两 个 静态 文本 控件 、 一 个 编辑 框 控件 和 3 个 按钮 控件 。 将“ 路径 ”编辑 框 的 属性 设置 为 Read-only 并 为 
其 添加 一 个 CEdit 类 型 变量 m Edit. 

O) 在 “还 原 ” 对 话 框 中 单 击 “ 浏 览 ”按钮 后 ， 需 要 显示 文件 目录 中 某 个 文件 ， 代 码 如 下 : 


CFileDialog dlg(TRUE,"mdb",NULL,OFN HIDEREADONLY | OFN_OVERWRITEPROMPT, 


(*.mdb)|*.mdb", NULL); /创建 一 个 文件 对 话 框 并 且 只 显示 文件 后 缀 名 为 .mdb 的 文件 
if(dlg.DoModal()--IDOK) // 弹 出 文件 对 话 框 判断 是 否 单 击 OK 按钮 
《 
CString str; 
str = dig.GetPathName(); // 获 取 选 择 的 文件 路 径 
m Edit.SetWindowText(str); // 将 路 径 添 加 至 编辑 框 控件 中 


} 


G) 在 进行 数据 库 还 原 操作 前 ， 系 统 自动 判断 当前 程序 数据 库存 放 地 址 路 径 ， 以 便 用 户 复制 数据 
库 文件 。 为 类 添加 一 个 WM INITDIAOLG 消息 ， 代 码 如 下 : 


@ 
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BOOL CReturndlg::OninitDialog() 


CDialog::OnlnitDialog(); 
:GetCurrentDirectory(256,buf); 
strcat(buf,"\\canyin.mdb"); // 获 取 当 前 数据 库 路 径 地 址 
return TRUE; 
) 


(4) 单 击 “ 还 原 ” 按钮 时 ， 系 统 自动 将 用 户 选取 的 数据 库 文件 复制 到 当前 数据 库 所 在 文件 ， 代 码 
如 下 : 


UpdateData(); 

CString str; 

m Edit.GetWindowText(str); // 获 取 需 还 原 的 数据 库 路 径 
CopyFile(str,buf false); // 将 数据 库 文件 复制 到 源 数据 库 文件 
MessageBox(" 还 原 完成 !"," 系 统 提 示 ",MB_OKIMB_ICONEXCLAMATION); 

CDialog::OnOK(); 








3. 数据 库 初 始 化 


当 数 据 库 中 存储 的 信息 已 经 失效 时 ， 手 动 删除 数据 无 疑 增加 了 用 户 的 工作 量 。 为 减轻 用 户 的 工作 
本 系统 添加 了 数据 库 初始 化 功能 ， 执 行 该 功能 后 将 清空 除 用 户 信息 表 外 其 他 所 有 数据 表 中 的 数据 。 
为 菜单 中 的 “数据 库 初始 化 ”菜单 项 添加 响应 事件 代码 : 

// 弹 出 窗口 ， 确 认 是 否 要 执行 命令 

if(MessageBox(" 确 定 要 初始 化 数据 库 吗 ?"," 提 示 ",MB_YESNO)==IDYES) 

{ 


量 





CString Sql1="delete from caishiinfo"; // 删 除 菜 式 信息 表 中 的 内 容 
CString Sql2="delete from jinhuo"; /删除 进货 信息 表 中 的 内 容 
CString Sql3="delete from shangpininfo". // 删 除 商品 信息 表 中 的 内 容 
CString Sql4="delete from shouru"; /删除 收入 信息 表 中 的 内 容 
CString Sql5="delete from paybill"; // 删 除 账单 信息 表 中 的 内 容 


theApp.m_pCon->Execute((_bstr_t)Sql1,NULL,adCmdText); /执行 第 1 条 数据 库 语句 
theApp.m_pCon->Execute((_bstr_t)jSql2,NULL,adCmdText); /执行 第 2 条 数据 库 语 句 
theApp.m_pCon->Execute((_bstr_t)Sql3,NULL,adCmdText); ”// 执 行 第 3 条 数据 库 语 句 
theApp.m_pCon->Execute((_bstr_t)jSql4,NULL,adCmdText); /执行 第 4 条 数据 库 语 句 
theApp.m_pCon->Execute((_bstr_t)JSql5,NULL,adCmdText); /执行 第 5 条 数据 库 语 句 
AfxMessageBox(" 初 始 化 成 功 "); 

return; 


2.11.4 ”单元 测试 


在 数据 库 还 原 过 程 中 ， 有 了 时 会 发 生 数 据 库 不 能 正常 还 原 到 源 数据 库 目 录 的 情况 ， 主 要 原因 是 将 
GetCurrentDirectory 语句 放 在 了 “还 原 ” 按 钮 中 ， 而 GetCurrentDirectory 语句 的 作用 是 获取 当前 目录 ， 
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如 果 在 数据 库 还 原 操作 前 进行 了 数据 库 备 份 操作 ， 那 么 再 次 执行 还 原 操作 的 结果 就 将 文件 直接 复制 到 
了 刚刚 备份 操作 所 选择 的 目录 中 。 

为 解决 这 一 问题 ， 笔 者 在 数据 库 还 原 类 中 定义 了 一 个 OnlnitDialog 消息 ， 在 打开 还 原 窗口 时 ， 系 
统 将 通过 这 个 消息 初始 化 对 话 框 找到 正确 的 数据 库 目 录 ， 代 码 如 下 


BOOL CReturndlg::OnlnitDialog() 
{ 
CDialog::OnlnitDialog(); 
zGetCurrentDirectory(256,buf); /获取 正确 的 数据 库 文件 路 径 地 址 
strcat(buf,"\\canyin.mdb"); 
return TRUE; 





212 打包 发 行 


在 完成 应 用 软件 的 开发 工作 以 后 ， 还 要 对 项 目 进行 打包 发 行 。 作 为 一 款 好 的 产品 ， 既 要 保证 高 质 
量 又 要 有 一 个 好 的 包装 ， 只 有 这 样 才能 使 自己 的 软件 产品 在 众多 产品 中 脱颖而出 ， 提 高 竞争 力 。 


2.12.1 选择 合适 的 打包 工具 


打包 是 采用 一 系列 的 方法 和 手段 把 应 用 程序 与 相关 的 文件 集中 起 来 , 形成 一 个 可 执行 的 程序 包 的 过 程 。 
制作 出 来 的 程序 包 需 要 满足 可 执行 性 、 简 单 性 和 可 靠 性 等 基本 要 求 。 
ED ”可 执行 性 : 程序 包 必须 满足 的 核心 要 求 ， 具 体 指 制作 的 程序 包 在 经 过 安装 后 可 以 在 目的 计算 
机 上 运行 。 
回 ”简单 性 ， 指 操作 的 简化 ， 对 于 安装 程序 来 说 ， 就 是 无 需 复 杂 的 操作 就 能 将 应 用 程序 安装 到 目 
的 计算 机 上 ， 并 且 可 以 使 应 用 程序 正常 地 运行 。 
RD ”可靠 性 : 在 应 用 程序 的 安装 过 程 中 ， 可 能 要 对 系统 做 某 些 修改 ， 也 有 可 能 对 不 同 的 系统 进行 
不 同 的 调整 ， 这 就 需要 安装 程序 能 识别 各 种 环境 ， 并 采用 不 同 的 安装 包 进行 安装 ， 同 时 也 必 
须 检 查 环境 是 否 满足 要 求 。 
任何 一 款 软件 都 离 不 开 安装 程序 ， 所 以 选择 适合 的 打包 工具 进行 打包 就 变 得 尤为 重要 。Install- 
Shield 就 是 一 款 非常 好 的 打包 工具 ， 它 以 功能 强大 、 灵 活性 好 、 容 易 扩 展 和 强大 的 网 络 支持 著称 ， 而 
且 内 建 的 脚本 语言 mnstallScript 使 用 户 可 以 像 使 用 其 他 语言 那样 制作 出 自己 的 安装 脚本 程序 ， 因 此 成 为 
当今 流行 的 打包 工具 。 


2.122 InstallShield 打包 方案 


使 用 InstallShield 创建 工程 的 步骤 如 下 : 
(1) 启动 mstallShield 程序 , 在 操作 系统 的 任务 栏 中 单 击 “ 开 始 ” 按钮 , 选择 “程序 ”一 InstallShield 
Microsoft Visual C++ 6.0 命令 ， 弹 出 InstallShield 窗口 ， 如 图 2.42 所 示 。 


e. 
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(2) 双击 InstallShield 程序 界面 中 的 Project Wizard 图 标 ， 弹 出 Welcome 对 话 框 ， 如 图 2.43 所 示 。 
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图 2.42 InstallShield 窗口 图 2.43 Welcome 对话 框 


(3) 在 Welcome 对 话 框 中 要 求 用 户 输入 如 下 信息 。 

Application: 应 用 程序 名 。 

Company Name: 公司 名 称 。 

Development; 程序 开发 环境 。 

Application: 应 用 程序 类 型 。 

Application Version: 版 本 号 。 

Application Executable: 应 用 程序 可 执行 文件 。 

(4) 添加 信息 后 ， 单 击 “ 下 一 步 ” 按 钮 ， 弹 出 Choose Dialogs 对 话 框 ， 如 图 2.44 所 示 。 

(5) 按照 软件 的 默认 设置 ， 继 续 单 击 “ 下 一 步 ”按钮 ， 直 到 弹出 Summary 对 话 框 ， 如 图 2.45 所 示 。 
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图 2.44 Choose Dialogs 对 话 框 图 2.45 Summary 对 话 框 
在 Summary 对 话 框 中 列 出 了 用 户 设置 的 所 有 信息 ， 单 击 “ 完 成 ”按钮 ， 创 建 工程 ， 并 根据 用 户 设 


48) 
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置 的 信息 生成 相应 的 代码 。 
接 下 来 才 正 式 进入 了 InstallShield 工程 界面 ， 如 图 2.46 所 示 。 
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图 2.46 InstallShield 工程 界面 


InstallShield 工程 界面 由 标题 栏 、 菜 单 栏 、 工 具 栏 、 工 作 区 窗口 、 文 档 窗口 、 输 出 窗口 和 状态 栏 组 成 。 

虽然 脚本 代码 中 生成 了 相关 的 函数 ， 但 是 有 些 函 数 只 有 相应 的 框架 而 没有 函数 的 具体 实现 。 例 如 ， 
脚本 代码 中 的 DialogShowSdRegisterUserEx 函数 ， 该 函数 用 来 对 用 户 在 安装 过 程 中 输入 的 序列 号 进行 
验证 ， 但 是 该 函数 本 身 并 没有 实现 这 一 功能 ， 该 功能 需要 用 户 自 己 编写 ， 代 码 如 下 : 


function DialogShowSdRegisterUserEx() 
NUMBER nResult; 
STRING szTitle, szMsg; 
begin 


svName = ""; 
svCompany = ""; 


szTitle = ""; 
szMsg = "; 
dRegister: 
nResult = SdRegisterUserEx(szTitle, szMsg, svName, svCompany, svSerial); 
if(nResult == NEXT) then 
if(svSerial != "0000-1111-2222-3333") then // 判 断 输入 的 序列 号 是 否 正 确 
MessageBox(" 输 入 的 序列 号 不 正确 ! "WARNING); 
goto dRegister; 
endif; 
endif; 
return nResult; 
end; 


@ 
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完成 以 上 代码 ， 默 认 的 序列 号 为 0000-1111-2222-3333， 只 有 在 安装 程序 时 输入 正确 的 序列 号 的 用 
户 才能 顺利 地 进行 安装 。 


223 ”设置 工程 文件 


为 了 使 向 导 生 成 的 框架 工程 能 够 安装 应 用 程序 , 还 需要 通过 InstallShield 开发 环境 提供 的 各 种 操作 向 
导 对 工程 进行 设置 ， 以 使 安装 程序 能 够 完成 数据 文件 的 复制 、 安 装 及 添加 快捷 方式 等 功能 。 步 又 如 下 : 
CD) 选择 File Groups 选项 卡 ， 展 开 要 添加 文件 的 文件 组 ， 在 该 文件 组 的 Links 节点 处 右 击 ， 在 弹出 
的 快捷 菜单 中 选择 Insert Files 命令 ， 将 要 添加 的 文件 加 入 到 相应 的 文件 组 ， 如 图 2.47 所 示 。 
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图 2.47 添加 需要 的 文件 
(2) 选择 Components 选项 卡 ， 选 中 一 个 组 件 项 ， 在 右 侧 的 视图 中 会 显示 该 组 件 项 的 相关 属性 ， 


双击 Included File Groups 选项 ， 弹 出 Properties 对 话 框 ， 如 图 2.48 所 示 。 
G) 单 击 Add 按钮 ， 弹 出 Add File Group 对 话 框 ， 如 图 2.49 所 示 。 
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Æ 2.48 Properties 对 话 框 2.49 Add File Group 对 话 框 
(4) 选择 与 该 组 件 项 相关 的 文件 组 ， 单 击 OK 按钮 进行 添加 。 
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2.124 程序 发 布 


(1) 通过 Media 选项 卡 中 的 Media Build Wizard 项 来 完成 程序 的 发 布 。 双 击 Media Build Wizard 
选项 ， 弹 出 Media Name 对 话 框 ， 在 Media Name 文本 框 中 为 程序 命名 ， 如 图 2.50 所 示 。 


(2) 单 击 “ 下 一 步 ”按钮 ， 打 开 Disk Type 对 话 框 ， 列 表 框 中 列 出 了 可 以 使 用 的 所 有 发 布 介质 ， 


disk CI-MON, Default Size 650 bytes 
po» 5 
F Data as filer 





somo] m LL] 


¿ -+0 [T—5 90 | LL m 


图 2.50 Media Name 对 话 框 2.51 Disk Type 对 话 框 


(3) 单 击 “ 下 一 步 ” 按 钮 ， 进 入 Build Type 对 话 框 ， 如 图 2.52 所 示 。 
BP Full Build 单 选 按钮 :创建 全 部 所 需要 的 文件 。 

回 Quick Build 单 选 按钮 : 测试 程序 能 否 按 预 期 的 方式 运行 。 
Advanced 按钮 : 可 以 设置 文件 的 时 间 、 安 装 的 路 径 和 密码 等 属性 。 
(4) 单 击 “ 下 一 步 ” 按 钮 ， 进 入 Tag File 对 话 框 ， 如 图 2.53 所 示 。 





U tme 
二 
TH 
hos 
c guia aa 
C miax mire 
| 


T7 Maviay Report lefore B 


*r-see[r-se] m m 


< Eo [T—£ o» |] 取消 m 
2.52 Build Type 对 话 框 图 2.53 Tag File 对 话 框 

C5) 在 Tag File 对 话 框 中 可 以 设置 公司 名 称 、 应 用 程序 名 以 及 版 本 等 信息 ， 单 击 “ 下 一 步 ” 按钮， 
进入 Platforms 对 话 框 ， 如 图 2.54 所 示 。 


(6) 在 Platforms 对 话 框 中 可 以 选择 使 用 的 平台 ， 单 击 “ 下 一 步 ” 按 钮 ， 进 入 Summary 对 话 框 ， 
如 图 2.55 所 示 。 


(7) 在 Summary 对 话 框 中 列 出 了 设置 发 布 的 所 有 信息 ， 单 击 “ 完 成 ”按钮 ， 根 据 上 述 设置 创建 
发 布 媒介 ， 并 弹出 Building Media 对 话 框 ， 如 图 2.56 所 示 。 
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2.55 Summary 对 话 框 


Coenent StrThMNOODSOSInL 
File oup: VSEISTEIK, 003CEDID 

C:Niy Erst elati ons ETE A String 
TLAC Engl isi ele, sl 
RING 


aild complatat successfully at Jazuary 12, 





2.56 Building Media 对 话 框 
(8) 单 击 Finish 按钮 ， 完 成 程序 的 发 布 。 


2.3 ”开发 问题 解析 


在 本 章 系统 的 开发 过 程 中 ， 笔 者 为 工具 栏 按钮 添加 了 鼠标 提示 功能 ， 如 图 2.57 所 示 。 这 样 能 使 用 
户 更 方便 地 获取 工具 栏 信 息 。 


$|$e|s|e|58|&|€ 


2.57. ” 带 提示 功能 的 工具 栏 


要 实现 这 一 功能 ， 需 要 处 理 TTN_NEEDTEXT 消息 的 响应 函数 OnToolTipNotifyg， 通 过 该 函数 的 参 


数 可 以 获得 工具 栏 按钮 的 ID， 从 而 根据 ID 获得 提示 信息 文本 。 
(1) 在 对 话 框 的 OnInitDialog 方法 中 创建 工具 栏 窗 口 和 图 像 列表 窗口 ， 关 联 图 像 列表 ， 设 置 工 具 


栏 按钮 文本 ， 启 动工 具 栏 的 EnableToolTips 方法 激活 提示 功能 。 
BOOL CMyDIg::OnlnitDialog() 
CDialog::OnlnitDialog(); 
- /代码 省 略 部 分 参照 2.5 节 主 窗 体 设计 
m Imagelist.Create(32,32,ILC. COLOR24|ILC, MASK, (1,1); 
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m Imagelist.Add(AfxGetApp()-»Loadlcon(IDI ICON login)); 

m Imagelist.Add(AfxGetApp()-»Loadlcon(IDI ICON open)); 

m Imagelist.Add(AfxGetApp()-»Loadlcon(IDI ICON, add)); 

m Imagelist.Add(AfxGetApp()-»Loadlcon(IDI ICON pay)); 

m Imagelist.Add(AfxGetApp()-»Loadlcon(IDI. ICON rishouru)); 
m Imagelist.Add(AfxGetApp()-»Loadlcon(IDI ICON reg)); 

m Imagelist.Add(AfxGetApp()-»Loadlcon(IDI ICON cancel)); 
UINT Array[7]; 

for(int i=0;i<7;i++) 


{ 
) 


m Toolbar.Create(this); 

m Toolbar.SetButtons(Array,7 ); 

m Toolbar.SetButtonText(O," RAER"); 

m Toolbar.SetButtonText(1,"7F &"); 
m_Toolbar.SetButtonText(2," 加 减 菜 "); 
m_Toolbar.SetButtonText(3," 顾 客 买单 "); 
m_Toolbar.SetButtonText(4," 本 日 收入 "); 
m_Toolbar.SetButtonText(5," 员 工 注册 "); 
m_Toolbar.SetButtonText(6," 退 出 系统 "); 

m Toolbar.GetToolBarCtrl().SetButtonWidth(60, 120); 
m Toolbar.GetToolBarCtrl().SetlmageList(&m Imagelist); 
m Toolbar.SetSizes(CSize(70,60), CSize(28,40)); 


Array[i]-9000*i; 


m Toolbar.EnableToolTips(TRUE); /激活 提示 功能 
- /代码 省 略 部 分 参照 2.5 节 主 窗 体 设计 
return true; 





(2) 在 对 话 框 的 消息 映射 部 分 添加 ON. NOTIFY EX 映射 宏 ， 如 图 2.58 所 示 。 


8 Molo- 








IWND(ID WEN) yueshouricx, ÜnMENUyueshouricx) 
COMMAND(ID MENU quanxian, OnMENUquanxian) 

AND( ID MENU sqlnew, ÜnMENUSQLneu) 

IAMD(1D MEM) cqlcopy, OnMEHUcqlcopy) 

IRND(1D WEMI return, UnHENUreturn) 

MAND(ID MEN) adácai, OnMENUaddcai) 

IMMD(IDB login, OnMENULogln) 

IAMD(IDà cancel, üntancel) 


JFY)REX MSG. MAP 
END_NESSAGE_HAPC) 


COAL 
1/ CMD1Y message handlers i 





图 2.58 添加 消息 映射 宏 
G) 添加 消息 处 理 函数 OnToolTipNotify。 声 明和 定义 代码 如 下 : 





afx msg BOOL OnToolTipNotify(UINT id, NMHDR* pNMHDR, LRESULT* pResult); 
BOOL CMyDIg::OnToolTipNotify(UINT id, NMHDR *pNMHDR, LRESULT *pResult) 
t 


e. 


TOOLTIPTEXT *pTTT = (TOOLTIPTEXT *)pNMHDR; 
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UINT nID =pNMHDR->idFrom; /获取 工具 栏 按钮 ID 
if(nID) 
à nID = m Toolbar.CommandTolndex(nID); /根据 ID 获取 按钮 索引 

if (nID != -1) 

i m_Toolbar.GetButtonText(nID,str); // 获 取 工 具 栏 文本 
pTTT->lpszText = str.GetBuffer(str.GetLength()); /设置 提示 信息 文本 
pTTT->hinst = AfxGetResourceHandle(); 
return(TRUE); 

) 

) 
return(FALSE); 
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餐饮 管理 系统 的 文件 清单 如 表 2.8 所 示 。 
X28 餐饮 管理 设计 清单 


文件 名 | 文件 类 型 文件 类 型 说 明 
My.dsp 工程 文件 工程 文件 源 文件 进货 查询 窗 体 
My.dsw 工作 区 文件 源 文件 | FARE 














Jiezhangdig.cpp | 源 文件 结账 窗 体 源 文件 ”| 用 户 注册 窗 体 


Jinhuodlg.cpp 源 文件 进货 信息 窗 体 








Myac 资源 文件 源 文件 登录 窗 体 
My.cpp 源 文件 库 文件 | 数据 连接 
MyDlg.cpp 源 文件 源 文件 权限 设置 窗 体 
Copydlg cpp 源 文件 源 文件 日 收入 查询 窗 体 
CPdlg.cpp 源 文件 源 文件 数据 库 还 原 窗 体 
Diancaidlg cpp | 源 文件 源 文件 点 菜 数 量 窗 体 
Jhselectcpp 源 文件 源 文件 商品 信息 登记 窗 体 
Jiacaidlg cpp 源 文件 加 减 菜 窗 体 源 文件 月 收入 查询 窗 体 
Zhucedlg.cpp 
| | 
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本 章 的 主要 内 容 是 根据 餐饮 行业 的 实际 情况 设计 一 个 管理 系统 。 通 过 本 章 的 学 习 ， 可 以 了 解 一 个 
餐饮 系统 的 开发 流程 ， 首 先 需要 考虑 系统 的 需求 分 析 以 及 如 何 设 计数 据 库 ， 因 为 数据 库 设计 直接 影响 
了 管理 系统 的 好 坏 ， 任 何 一 个 好 的 管理 系统 的 核心 都 是 一 个 完善 的 数据 库 。 本 章 通过 详细 的 讲解 以 及 
简洁 的 代码 使 读者 能 够 更 快 、 更 好 地 掌握 数据 库 管理 系统 的 开发 技术 。 
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客房 管理 系统 


( Visual C++ 6.0+SQL Server 2014 实现 ) 


随 着 市 场 经 济 的 发 展 ， 人 们 生活 水 平 的 不 断 提高 ， 以 及 到 异地 办 
公 、 了 旅游 的 人 数 的 增多 ， 宾 馆 酒 店 业 不 断 半 大， 人 们 对 住宿 的 要 求 也 
不 断 提 高 。 传 统 的 手工 管理 已 经 不 能 适应 复杂 的 客房 管理 需求 ， 各 宾 
馆 为 了 提高 管理 水 平 都 先后 使 用 计算 机 进行 管理 ， 这 就 需要 开发 出 符 
合 客房 管理 要 求 的 管理 系统 ， 本 章 以 软件 工程 的 思想 介绍 了 客房 管理 
系统 的 开发 过 程 。 

通过 学 习 本 章 ， 读 者 可 以 学 到 : 

» 使 用 SQL Server 2014 数据 库 

» 使 用 ADO 连接 数据 库 


» 通过 SQL 语句 对 数据 库 进 行 操作 
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3.1 开发 背景 


随 着 我 国 市 场 经 济 的 迅速 发 展 ， 人 们 的 生活 水 平 有 了 显著 提高 ， 旅 游 经 济 和 各 种 商务 活动 更 促进 
了 酒店 行业 的 快速 发 展 。 同 时 ， 随 着 宾馆 、 酒 店 的 数量 越 来 越 多 ， 人 们 的 要 求 也 越 来 越 高 ， 住 宿 行业 
的 竞争 愈演愈烈 。 如 何在 激烈 的 市 场 竞争 中 生存 和 发 展 ， 是 每 一 个 宾馆 、 酒 店 必须 面临 的 问题 。 提 高 
宾馆 、 酒 店 的 经 营 管理 ， 为 顾客 提供 更 优质 的 服务 ， 同 时 降低 运营 成 本 是 发 展 的 关键 。 面 对 信息 时 代 
的 机 遇 和 挑战 ， 利 用 科技 手段 提高 企业 管理 效率 无 疑 是 一 条 行 之 有 效 的 途径 。 计 算 机 的 智能 化 管理 技 
术 可 以 极 大 限度 地 提高 服务 管理 水 平 ， 进 行 准确 、 快 捷 和 高 效 的 管理 。 因 此 ， 采 用 全 新 的 计算 机 客房 
管理 系统 ， 已 成 为 提高 宾馆 、 酒 店 管理 效率 ， 改 善 服务 水 平 的 重要 手段 之 一 。 管 理 方面 的 信息 化 已 成 
为 现代 化 管理 的 重要 标志 。 

以 往 的 人 工 操作 管理 中 存在 着 许多 问题 ， 例 如 : 

回 人工 计算 账单 容易 出 现 错误 。 

E ”收银 工作 中 容易 发 生 账 单 丢失 。 

ED ”客人 具体 消费 信息 难以 查询 。 

回 ”无 法 对 以 往 营业 数据 进行 查询 。 


3.2 需求 分 析 


根据 宾馆 的 具体 情况 ， 系 统 主要 功能 包括 住宿 管理 、 客 房管 理 、 挂 账 管理 、 查 询 统计 、 日 结 、 系 
统 设置 。 


33 系统 设计 





3.3.0 系统 目标 


面 对 酒 店 行业 的 高 速 发 展 和 酒店 行业 信息 化 发 展 的 过 程 中 出 现 的 各 种 情况 ， 酒 店 客房 管理 系统 应 
能 够 达到 以 下 目标 。 
实现 多 点 操作 的 信息 共享 ， 相 互 之 间 的 信息 传递 准确 、 快 捷 和 顺畅 。 
服务 管理 信息 化 ， 可 随时 掌握 客人 住宿 、 挂 账 率 、 客 房 状态 等 情况 。 
系统 界面 友好 美观 ， 操 作 简 单 易 行 ， 查 询 灵活 方便 ， 数 据 存储 安全 。 
客户 档案 、 挂 账 信息 和 预警 系统 相 结 合 ， 可 对 往来 客户 进行 住宿 监控 ， 防 止 坏账 的 发 生 。 
通过 酒店 客房 管理 系统 的 实施 ， 可 逐步 提高 酒店 客房 的 管理 水 平 ， 提 升 员工 的 素质 。 
系统 维护 方便 可 靠 ， 有 较 高 的 安全 性 ， 满 足 实用 性 、 先 进 性 的 要 求 。 


ESEKRKRKRERN 
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3.3.2 ”系统 功能 结构 


根据 该 客房 的 具体 情况 ， 系 统 主要 功能 包括 以 下 几 个 方面 。 
住宿 管理 ; 客房 预订 、 调 房 登记 、 入 住 登记 、 续 住 登记 和 退 房 登 记 。 
客房 管理 : 房 态 设置 、 宿 费 提醒 和 房 态 查询 。 
挂账 管理 : 客房 管理 和 客户 结 款 。 
查询 统计 : 住宿 查询 、 退 宿 查询 和 宿 费 提醒 。 
日 结 : 登记 预收 报表 、 客 房 销售 报表 和 客房 销售 统计 。 
系统 设置 : 初始化、 密码 设置 和 权限 设置 。 
为 了 清晰 、 全 面 地 介绍 客房 管理 系统 的 功能 ， 以 及 各 个 模块 间 的 从 属 关 系 ， 下 面 以 结构 图 的 形式 
展现 系统 功能 ， 如 图 3.1 所 示 。 
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图 3.1 系统 功能 结构 图 
3.3.3 系统 w 


本 系统 包含 多 个 功能 模块 ， 这 里 给 出 主要 的 窗 体 界面 图 ， 帮助 大 家 更 快 地 了 解 本 系统 的 结构 功能 。 

主 窗 体 包含 打开 其 他 窗 体 的 菜单 和 主要 功能 的 命令 按钮 ， 是 程序 最 主要 的 界面 。 其 运行 效果 如 
p E EE E O 
ji PEE ENEA E IAEA 
pie E E 


e. 





ET 
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图 3.2 系统 主 界面 
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ILES 
RT: 
选择 赁 证 号 码 ， 后 输入 担 仗 





em [0 ux 5 





房 同 号 玛 [Sw-002 


房 同类 型 | 标 房 BEI [o0 





住宿 日 期 





ponny 星期 E RERAN 


2mp EW: 88AM [201124 E 








住宿 时 间 


201TVT2 是 期 FE 提醒 时 同 


EF 8:00:00 ARNA [ET 8:00:00 




















BER mii [me] wej| waj aw | 
图 3.4 “追加 押金 ”界面 


3.3.4 业务 流程 图 


客房 管理 系统 业务 流程 图 如 图 3.6 所 示 。 
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“客房 预订 ”界面 

















NO [2011-22401 
JAHS [sw 了 提示 ， 
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各 a ~ 
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3.6 客房 管理 系统 流程 图 
3.8.5 ”数据 库 设 计 


1. 数据 库 概要 说 明 


在 SQL Server 2014 数据 库 中 建立 名 为 myhotel 的 数据 库 ， 设 计 以 下 数据 表 : checkinregtable、 
checkoutregtable, guazhanginfo. kfyd, regmoneytable, roomsetting. 
setability 和 usertalbe。 

如 图 3.7 所 示 即 为 本 系统 数据 库 中 的 数据 表 结 构图 ， 该 结构 图 中 
包含 系统 所 有 的 数据 表 ， 可 以 清晰 地 反映 数据 库 信息 。 


2. 主要 数据 表 结 构 


下 面 给 出 主要 数据 表 的 结构 ， 其 他 表 的 结构 参见 数据 库 。 图 3.7 数据 库 概要 说 明 

加 ”住宿 登记 表 : 主要 用 于 记录 住宿 登记 信息 , 包括 住宿 人 信息 、 
房间 信息 和 住宿 情况 ， 该 表 结 构 如 图 3.8 所 示 。 

Bg BERR: 主要 用 于 记录 退 房 登记 信息 ， 包 括 住宿 和 退 房 情况 等 信息 ， 该 表 结 构 如 图 3.9 
所 示 。 

ED 客房 设置 表 : 用 于 存储 客房 的 基本 信息 和 客房 状态 等 信息 ， 该 表 结 构 如 图 3.10 所 示 。 

E 客房 预订 表 : 用 于 记录 客房 预订 信息 ， 包 括 预 订 人 信息 和 房间 信息 等 ， 该 表 结 构 如 图 3.11 


所 示 。 
© 
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图 3.8 住宿 登记 表 图 3.9 退 宿 登记 表 图 3.11 客房 预订 表 
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3.4.4 主 窗 体 概 


主 程序 界面 是 应 用 程序 提供 给 用 户 访问 其 他 功能 模块 的 平台 ， 根 据 实际 需要 ， 客 房管 理 系统 的 主 
界面 采用 了 传统 的 “菜单 /工具 栏 /状态 栏 ” 风 格 。 客 房管 理 系统 的 主 程序 界面 如 图 3.2 所 示 。 


342 主 窗 体 实现 程 


1. 客户 区 设计 


在 生成 的 对 话 框 内 添加 图 片 、 静 态 文本 、 标 签 、 编 辑 框 和 按钮 等 资源 。 
控件 的 属性 和 ID 如 表 3.1 所 示 。 


表 3.1 控件 的 属性 和 ID 





控件 ID 标 控件 ID 标 





ID BIN borrowroom 
ID BTN returnroom 


ID BIN daysummery 


开房 


ID CLOSE 
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2. 菜单 设计 
(1) 选择 Insert 一 Resource 命令 ， 打 开 Insert Resource 对 话 框 ， 如 图 3.12 所 示 。 
(2) 选择 Menu 选项 ， 单 击 New 按钮 ， 插 入 空白 菜单 ， 设 置 ID 属性 为 IDR_mainMENU， 然 后 按 
照 如 图 3.13 所 示 的 界面 编辑 菜单 项 。 























CEET SANT HEBE mamii Die “系统 设置 Bir 007] 









































Br SAI 
abs String Table cuui 
加 Wai ES 
调 房 登记 
ime 
有 IE 
图 3.12 Insert Resource 对 话 框 图 3.13 菜单 资源 


主 菜单 的 各 个 子 菜单 的 ID 和 标题 属性 如 表 3.2 所 示 。 
表 3.2 各 个 子 菜单 的 ID 和 标 ”属性 





控件 ID | 标 | 控件 ID 标 
ID MENU checkinreg ID MENU regmoneytable 登记 预收 报表 
ID MENU roomsetting ID MENU saleroomtable 客房 销售 报表 
ID MENU checkout ID MENU saleroomsummary 客房 销售 统计 
ID MENU addmoney ID MENU adm setting 操作 员 设置 
ID MENU changeroomreg ID MENU pwd setting 密码 设置 
ID MENU findroom ID MENU setting begin 初始 化 
ID MENU findguazhang ID MENU setting ability 权限 设置 
ID MENU guazhanemoney ID MENU findroomstate 房 态 查看 
ID MENU findcheckinreg ID MENU roomprebook 客房 预订 
ID MENU findcheckoutreg ID MENU findprebookroom 预订 房 查询 
ID MENU findroomfee 
3. 代码 分 析 


(1) 系统 主 界面 操作 可 以 根据 用 户 的 权限 设 定 ， 所 以 应 加 入 连接 数据 库 功 能 ， 故 在 stda 人 x.h 文件 
中 加 入 以 下 代码 ， 提 供 加 入 ADO 的 支持 。 


1 添加 ADO 支持 
#import "c:\program files\common files\system\ado\msado15.dll" \ no_namespace \ rename ("EOF", "adoEOF") 





并 在 Myhotel.h 中 加 入 以 下 代码 : 


e 
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CDatabase m DB; 





. ConnectionPtr m pConnection; 

此 外 ， 在 myhotel.cpp 的 初始 化 函数 中 加 入 连接 数据 库 的 代码 : 

try || 接 数 据 库 
CString strConnect; 


strConnect.Format("DSN=myhotel;"); 

ifm DB.OpenEx(strConnect,CDatabase::useCursorLib)) 

{ 

AfxMessageBox("Unable to Connect to the Specified Data Source"); 
return FALSE; 


) 


) 
catch(CDBException *pE) // 抛 出 异常 
{ 

pE-»ReportError(); 

pE-»Delete(); 

return FALSE; 


/初始 化 COM， 创 建 ADO — 接 等 操作 

AfxOlelnit(); 

m pConnection.Createlnstance( — uuidof(Connection)); 

/在 ADO 操作 中 建议 语句 中 要 常用 try.…-catch() 来 捕获 ” 误 信息 
try 


// 打 开本 地 数据 库 
m_pConnection->Open("Provider=MSDASQL.1;Persist Security Info=False;Data Source = myhotel",","", 
adModeUnknown); 


} 
catch( com error e) // 抛 出 可 能 发 生 的 异常 


AfxMessageBox(" 数 据 库 接 失 败 ， 确 认 数 据 库 EEH"); 
return FALSE; 
) 


(2) 主 窗 口 初始 化 时 ， 需 要 根据 登录 操作 员 的 权限 来 设置 其 可 以 进行 的 操作 ， 此 功能 由 函数 


setuserability0) 来 完成 ， 代 码 如 下 : 


void CMyhotelDlg::setuserability() 


( 
m pRecordset.Createlnstance( — uuidof(Recordset)); 
. variant t var,variIndex; 


Wloguserid=" 操 作 员 01"; 
CString strsqlshow; 
strsqlshow.Format("SELECT * FROM setability where 操作 员 ='%s",loguserid); 
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try /打开 数据 库 dE 
{ 
m. pRecordset-»Open(( variant t)(strsglshow), /查询 表 中 所 有 字段 
theApp.m pConnection.GetlnterfacePtr(), /获取 EH IDispatch 指 
adOpenDynamic, 
adLockOptimistic, 
adCmdText); 
) 
catch( com error *e) /捕获 异常 的 发 生 
{ 
AfxMessageBox(e->ErrorMessage()); 
) 
e mynenu-AfxGetMainWnd()-» GetMenu(); // 获 得主 菜单 指 
CString ling="0"; 
} 
try 
{ 
if(Im_pRecordset->BOF) IHR ”是否 在 数据 ”最 后 
m_pRecordset->MoveFirst(); 
else 


AfxMessageBox(" 表 内 数据 为 空 "); 
return; 


MessageBox("eeeeeeeeee"); 

// 读 取 数 据 表 内 客房 ”“ 订 字段 内 容 

var = m_pRecordset->GetCollect(" 客 房 “” 订 "); 
if(var.vt != VT. NULL) 


{ 
if((LPCSTR)_bstr_t(var)==ling) /判断 是 否 有 权 ”操作 客房 ” 订 模 块 
{ // 如 果 没 有 权 ”就 使 该 菜单 呈 灰 色 显示 
EnableMenultem(mynenu->m_hMenu,ID_MENU_roomprebook, MF_DISABLEDIMF_GRAYED); 
} 


} 

// 读 取 数 据 表 内 住宿 登记 字段 内 容 

var = m_pRecordset->GetCollect(" 住 宿 登记 "); 
if(var.vt != VT. NULL) 


if(LPCSTR) bstr t(var)--ling) // 判 断 是 否 有 权 ”操作 住宿 登记 模块 

{ // 如 果 没 有 权利 就 使 该 菜单 呈 灰 色 显 示 
EnableMenultem(mynenu->m_hMenu,ID_MENU_checkinreg, MF_DISABLEDIMF_GRAYED); 
} 


} 

// 读 取 数 据 表 内 ”加 押 FRAS 

var = m_pRecordset->GetCollect(" 加 押 ") 
if(var.vt Iz VT. NULL) 
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if(LPCSTR) bstr t(var)--ling) // 淹 断 是 否 有 权 操作 ”加 押 ”模块 

t /如 果 没 有 权利 就 使 该 菜单 呈 灰 色 显 示 
EnableMenultem(mynenu->m_hMenu,ID_MENU_addmoney,MF_DISABLEDIMF_GRAYED); 
) 


) 

// 读 取 数 据 表 内 调 房 登记 字段 内 容 

var = m_pRecordset->GetCollect(" 调 房 登记 "); 
if(var.vt != VT. NULL) 


if(LPCSTR) bstr t(var)--ling) /判断 是否 有 权 ”操作 调 房 登记 模块 
{ // 如 果 没 有 权利 就 使 该 菜单 呈 灰 色 显示 
EnableMenultem(mynenu->m_hMenu,ID_MENU_changeroomreg,MF_DISABLED |MF. GRAYED); 
) 


) 


// 其 他 菜单 设计 代码 参见 资源 包 
mynenu->Detach(); 
DrawMenuBar(); || 绘 主 菜单 
catch( com error *e) /捕获 异常 
AfxMessageBox(e->ErrorMessage()); // 弹 出” 误 信 息 框 
) 
m pRecordset-»Close(); IX 记录 


m pRecordset = NULL; 
) 


«M emu 
O GetMenu 函数 : 获得 窗口 的 菜单 指针 ， 能 对 子 窗 口 使 用 ， 因 为 它们 没有 菜单 。 返回 的 指针 可 能 是 临时 的 ， 不 能 
被 保存 以 供 将 来 使 用 。 


(3) 在 实现 主 窗 体 时 ， 需 要 创建 几 个 函数 ， 创 建 OnSysCommand 函数 的 代码 如 下 : 


void CMyhotelDlg::OnSysCommand(UINT nID, LPARAM IParam) 





if (NID & 0xFFF0) == IDM, ABOUTBOX) 


CAboutDlg digAbout; 
digAbout.DoModal(); 


else 


f 
CDialog::OnSysCommand(nID, IParam); 


} 
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创建 OnPaint0 函 数 ， 代 码 如 下 : 


void CMyhotelDlg::OnPaint() 
(CPaintDC dc(this); 
CBitmap bit; 
CDC memDC; 
CRect rect; 
this-»GetClientRect(&rect); 


bit.LoadBitmap(IDB MAINBK); 


BITMAP bmplnfo; 

bit.GetBitmap(&bmplnfo); 

int imgWidth = bmplInfo.bmWidth; 

int imgHeight = bmplInfo.bmHeight; 

memDC.CreateCompatibleDC(&dc); 

memDC.SelectObject(&bit); 

dc.StretchBIt(0,0,rect. Width(),rect.Height(),&memDC,0,0,imgWidth imgHeight,SRCCOPY ; 
memDC.DeleteDC(); 

bit.DeleteObject(); 


} 





创建 OnQueryDragIcon0、OnMENUcheckinreg0、OnBTNborrowroom0) 函 数 ， 代 码 如 下 ; 





HCURSOR CMyhotelDIg::OnQueryDraglcon() 


{ 
return (HCURSOR) m hlcon; 


) 


void CMyhotelDlg::OnMENUcheckinreg() 
t 
CCheckinregdlg mycheckindlg; 
mycheckindlg.DoModal(); 


) 


void CMyhotelDlg::OnBTNborrowroom() 


{ 
OnMENUcheckinreg(); 


) 
创建 OnMENUroomsetting(0)、OnMENUcheckout0、OnBTNreturnroom0O 函 数 ， 代 码 如 下 : 


void CMyhotelDlg::OnMENUroomsetting() 


f 
CSetroomdlg mysetroomdlg; 
mysetroomdlg.DoModal(); 


e. 
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} 


void CMyhotelDlg::OnMENUcheckout() 
( 
CCheckoutdlg mycheckoutdlg; 
mycheckoutdlg.DoModal(); 
) 


void CMyhotelDlg::OnBTNreturnroom() 
{ 

OnMENUcheckout(); 
) 


创建 OnMENUaddmoney(). OnMENUchangeroomreg(), OnMENUfindroomQPRZi, AREF: 


void CMyhotelDlg::OnMENUaddmoney() 
{ 
CAddmoneydlg myaddmoneydlg; 
myaddmoneydlg.DoModal(); 
) 


void CMyhotelDlg::OnMENUchangeroomreg() 
{ 
CChangeroomdlg mychangeroomdlg; 
mychangeroomdlg.DoModal(); 
) 


void CMyhotelDlIg::OnMENUfindroom() 
{ 
CFindroomdlg myfindroomdlg; 
myfindroomdlg.DoModal(); 





3.5 登录 模块 设计 





ENTUM 


3.5.44 登录 模块 概 
为 了 防止 非法 用 户 进入 系统 ， 本 软件 设计 了 系统 登录 窗口 。 在 程序 启动 时 ， 首 先 弹出 “登录 ” 窗 


口 ， 要 求 用 户 输入 登录 信息 ， 如 果 用 户 输入 不 合法 ， 将 禁止 进入 系统 。 登 录 模 块 的 运行 效果 如 图 3.14 
所 示 。 


8) 
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3.4 ”登录 模块 的 运行 效果 








3.5.2 ”登录 模块 技术 分 析 
本 模块 使 用 CUserset 类 实现 对 数据 源 的 连接 。 这 里 是 通过 ODBC 数据 源 进行 连接 的 ， 在 连接 数据 
库 之 前 ， 要 先 在 系统 上 创建 一 个 名 为 myhotel 的 数据 源 。userset.cpp 中 的 代码 如 下 : 
CString CUserset::GetDefaultConnect() 
return Tl'ODBC;DSN-myhotel"); 
— CUserset::GetDefaultSQL() 


return. T("[dbo].[user]"); 


3.5.5 ”登录 模块 实现 程 


国 ” 本 模块 使 用 的 数据 表 : usertalbe 
(1) 选择 Insert 一 Resource 命令 ， 打 开 添加 资源 界面 。 选 择 Dialog 选项 ， 单 击 New 按钮 ， 插 入 新 
的 对 话 框 。 
(2) 利用 类 向 导 为 此 对 话 框 资源 设置 属性 。 在 Name 文本 框 中 输入 对 话 框 类 名 ， 如 CLoginDlg， 
在 Base class 下 拉 列 表 框 中 选择 一 个 基 类 ， 这 里 为 CDialog， 单 击 OK 按钮 创建 对 话 框 。 
G) 在 工作 区 的 资源 视图 中 选择 新 创建 的 对 话 框 ， 向 对 话 框 中 添加 静态 文本 、 下 拉 列 表 框 、 编 辑 
框 和 按钮 等 资源 。 主 要 资源 属性 如 表 3.3 所 示 。 


表 3.3 主要 资源 属性 











控件 ID 对 应 变 n 属性 控件 ID 对 应 变 / 标 属性 
IDC COMBO username m usemame IDOK 确定 
IDC password m password IDCANCEL 取消 





(4) 建立 和 数据 库 的 映射 ， 利 用 类 向 导 建立 记录 集 的 映射 类 ， 如 图 3.15 所 示 。 


@ 
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选择 基 类 为 CDaoRecordset， 单 击 OK 按钮 进入 下 一 步 ， 如 图 3.16 所 示 。 


























wpeip: [Analeruserset 可 


The base class does not support automation. 
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图 3.15 New Class 对 话 框 


选择 数据 源 类 型 为 ODBC， 并 选择 所 使 用 的 数 
据 源 ， 此 处 选择 myhotel 数据 源 ， 单 击 OK 按钮 ， 进 
入 下 一 步 ， 如 图 3.17 所 示 。 

选择 所 要 关联 的 数据 表 ， 因 为 是 操作 员 登 录 信 
息 ， 所 以 选择 dbo.usertable 数据 表 , Hit; OK 按钮 完 
成 映射 。 

可 以 看 到 已 经 创建 了 一 个 新 类 CUserset, 其 头 文 
件 的 关键 代码 如 下 : 


class CUserset : public CRecordset 

{ 

public: 
CUserset(CDatabase* pDatabase = NULL); 
DECLARE, DYNAMIC(CUserset) 


II(AFX FIELD(CUserset, CRecordset) 

CString m user. name; 

CString m user pwd; 

Ij AFX FIELD 

II(AFX VIRTUAL(CUserset) 

public: 

virtual CString GetDefaultConnect(); 

virtual CString GetDefaultSQL(); 

virtual void DoFieldExchange(CFieldExchange* pFX); 
I AFX. VIRTUAL 


#ifdef DEBUG 
virtual void AssertValid() const; 
virtual void Dump(CDumpContext& dc) const; 


图 3.16 Database Options 对 话 框 








'dbo.checkinregiable 


LUMNS 
INFORMATION SCHEMA.CONSTRAINT COI ~ 


3.17 Select Database Tables 对 话 框 
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#endif 
上 





C50 单 击 “ 确 定 ”按钮 可 以 登录 到 系统 主 界面 ， 此 按钮 的 相应 函数 如 下 : 


void CLoginDlg::OnOK() 
t 
CString sqlStr; 
UpdateData(true); 
if(m username.IsEmpty()) ITF BR FB P255 298 


AfxMessageBox(" 请 ”入 用 户 名 "); 
return; 


} 
// 创 建 查询 语句 


sqlStr="SELECT * FROM usertalbe WHERE user_name="; 
| username; 






sqlStr+="AND user. pwdz"; 

SqlStr*zm password; 

sqlStr«z""; 

/打开 数据 库 
if(Imyuserset.Open(AFX DB. USE, DEFAULT. TYPE,sqlStr)) 


AfxMessageBox("user 表 打 开 失 败 ""); 


return; 
AP EN AATE /保存 操作 员 ID， 其 他 窗口 中 会 用 到 该 数据 
if(Imyuserset.ISEOF()) IX "mE 接 
: myuserset.Close(); 


CDialog::OnOK(); 


else 

( // 给 出 误 提示 
AfxMessageBox("& 3g 4k Wir"): 
m username- T("); 
m password- T(""); 


UpdateData(false); // 更 新 显示 
myuserset.Close(); IX ”数据库 接 
return; 





(6) 为 使 按 下 Enter 键 时 控制 输入 焦点 ， 故 加 入 PreTranslateMessage 方法 ， 代 码 如 下 : 





BOOL CLoginDlg::PreTranslateMessage(MSG* pMsg) 
{ 


@ 
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if(pMsg-»message--WM KEYDOWN&&pMsg-»wParam--VK RETURN) 
( 


DWORD def. id-GetDefID(); 
if(def. idl-0) 
t 
IIMSG 消息 的 结构 中 的 hwnd 存储 的 是 接收 该 消息 的 窗口 句柄 
CWnd *wnd=FromHandle(pMsg->hwnd); 
char class name[16]; 
if(GetClassName(wnd-»GetSafeHwnd(),class name,sizeof(class name))!-0) 
{ 
DWORD style-::GetWindowLong(pMsg-»hwnd,GWL, STYLE); 
if((style&ES MULTILINE)--0) 
{ 
if(strnicmp(class name,"edit",5)--0) 
{ /将 焦点 设置 到 认 按 上 
GetDlgltem(LOWORD(def_id))->SetFocus(); 
pMsg->wParam=VK_TAB; || Enter 消息 为 Tab 消息 
} 


} 


return CDialog::PreTranslateMessage(pMsg); 
} 


(7) 登录 模块 与 数据 库 连 接 代 码 如 下 : 


BOOL CLoginDIg::OnlInitDialog() 








CDialog::OnlnitDialog(); 


/使 用 ADO 创建 数据 库 记 录 
m_pRecordset.Createlnstance(_uuidof(Recordset)); 


Variant t var; 
CString struser; 
/在 ADO 操作 中 建议 语句 中 要 常用 try...catch() 来 捕获 “_ 误 信息 


try 
{1/ 打 开 数 据 库 
m_pRecordset->Open("SELECT * FROM usertalbe", // 查 询 表 中 所 有 字段 
theApp.m pConnection.GetInterfacePtr(), /获取 ” 接 库 的 IDispatch 指 
adOpenDynamic, 
adLockOptimistic, 
adCmdText); 


) 
catch( com error *e)// 捕 获 打开 数据 库 可 能 发 生 的 异常 情况 并 实时 显示 提示 


© 
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AfxMessageBox(e->ErrorMessage()); 


~ um 


ifm pRecordset-»BOF) IHE 是 否 在 数据 ”最 后 
m_pRecordset->MoveFirst(); 
Il else 
Il 切 提示 “ 误 ， 无 数据 
Il AfxMessageBox(" 表 内 数据 为 空 "); 
Ul return false; 
I ) 


while(!Im pRecordset-»adoEOF) 
( 
var m pRecordset-»GetCollect("user name"); 
if(var.vt != VT. NULL) 
struser = (LPCSTR) bstr t(var); 
m usernamectr.AddString(struser); /从 数据 库 获 得 的 内 容 给 变 ” 赋 值 
m_pRecordset->MoveNext(); // 移 动 数 据 指 


} 
catch(_com_error *e) /捕获 异常 
{ 


AfxMessageBox(e->ErrorMessage()); 
} 


IA 记录 
m_pRecordset->Close(); 
m_pRecordset = NULL; 
// 更 新 显示 

|| | UpdateData(false); 
return TRUE; 

) 





(8) 在 登录 界面 中 ， 需 要 对 图 片 有 限制 ， 在 LoginDlg.cpp 文件 中 ， 写 入 如 下 代码 : 


void CLoginDlg::OnPaint() 

{ 
CPaintDC dc(this); 
CBitmap bit; 
CDC memDC; 
CRect rect; 
this-»GetClientRect(&rect); 


bit. LoadBitmap(IDB LOGINBK); 
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BITMAP bmplnfo; 

bit.GetBitmap(&bmplnfo); 

int imgWidth = bmplnfo.bmWidth; 

int imgHeight = bmplnfo.bmHeight; 

memDC.CreateCompatibleDC(&dc); 

memDC.SelectObject(&bit); 
dc.StretchBIt(0,0,rect.Width(),rect.Height(),&memDC,0,0,imgWidth,imgHeight,SRCCOPY ; 
memDC.DeleteDC(); 

bit.DeleteObject(); 


3.6 客房 预订 模块 设计 








3.6.1 客房 ， 订 模块 概 


住宿 管理 模块 包括 客房 预订 、 住 宿 登记 、 追 加 押金 、 调 房 登 记 、 退 宿 结账 等 功能 子 模块 。 下 面 详 
细 介 绍 客房 预订 子 模块 的 设计 。 客 房 预 订 模块 用 于 实现 客房 预订 的 功能 ， 主 要 登记 用 户 的 姓名 、 证 件 、 
证 件 号 码 和 预 住 日 期 等 信息 ， 是 为 预订 客户 提供 服务 的 模块 。 其 运行 界面 如 图 3.3 所 示 。 


3.6.2 客房 ， 订 模块 技术 分 析 


客房 预订 模块 实现 将 预订 客房 信息 插入 到 数据 表 中 ， 主 要 是 通过 打开 记录 集 ， 然 后 使 用 AddNew 
方法 向 数据 表 中 插入 一 个 新 记录 来 实现 对 客房 预订 信息 的 添加 。AddNew 方法 用 于 向 记录 集中 添加 一 
个 空 行 ， 然 后 设置 这 个 空 行 的 每 个 字段 值 ， 从 而 能 够 实现 将 一 条 记录 添加 到 数据 表 中 。 


3.6.3 客房 ， 订 模块 实现 程 


回 本 模 决 使 用 的 数据 表 : kfyd 

(1) 选择 Insert- Resource 命令 打开 添加 资源 界面 ， 选 择 Dialog 选项 ， 单 击 New 按钮 ， 插 入 新 的 
对 话 框 。 

C2) 利用 类 向 导 为 此 对 话 框 资源 设置 属性 。 在 Name 文本 框 中 输入 对 话 框 类 名 ， 如 
CRoomprebookdlg， 在 Base class 下 拉 列 表 框 中 选择 一 个 基 类 ， 这 里 为 CDialog， 单 击 OK 按钮 创建 对 
话 框 。 

G) 在 工作 区 的 资源 视图 中 选择 新 创建 的 对 话 框 ， 向 对 话 框 中 添加 静态 文本 、 下 拉 列 表 框 、 编 辑 
框 、 按 钮 和 日 期 选择 控件 等 资源 。 

各 个 主要 控件 的 ID 和 属性 设置 如 表 3.4 所 示 。 
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X34 主要 控件 的 ID 和 属性 设置 













控件 ID 变 控件 ID 变 
IDC COMBOprebookidkind IDC prebookidnumber m prebookidnumber 
IDC COMBOroomkind m prebookroomkind IDC prebookname m prebookname 
IDC DATETIMEPICKERprecheckindate m prebooktelnumber 
IDC prebookaddr m prebookaddr IDC prebookworkcompany |m prebookworkcompany 





IDC prebookdays m prebookdays IDC roommoney Im | prebookroommoney 
IDC prebookhandinmoney m prebookhandinmoney |IDC STATICshowuser m showuser 





(4) 在 其 对 应 的 头 文件 Roomprebookdlg.h 中 添加 以 下 声明 代码 : 





CString gustname; 
CString gustaddr; 


CString zhengjian; 
CString zhengjian number; 
CString checkinreg reason; 


. ConnectionPtr m pConnection; 
. CommandPtr m pCommand; 
. RecordsetPtr m pRecordset; 


如 果 确 定 预订 客房 ， 单 击 “ 确 定 ” 按 钮 向 数据 库 中 插入 预订 记录 ， 其 响应 函数 如 下 : 


void CRoomprebookdlg::OnOK() 
{ 








UpdateData(true); 
n 
* e*t ” 份 证 的 号 码 是 否 为 15 位 或 者 为 18 位 
学 
CString strCertifyCode; /证件 号 码 
/获得 证 件 号 码 
int nCertifyCodeLength2m prebookidnumber.GetLength(); // 获 得 证 件 号 码 的 度 


if(nCertifyCodeLength!=15&&nCertifyCodeLength!=18) 


if(m_prebookidkind==" 份 证 ") 
{ IŠ 择 的 是 份 证 
MessageBox(" 你 的 ” 份 证 的 号 码 的 位 数 不 正 确 In 应 该 为 15 位 或 者 18 fur", 
" 份 证 误 ",MB_OK); 
return; 


) 


m pRecordset.Createlnstance( — uuidof(Recordset)); 
/在 ADO 操作 中 建议 语句 中 要 常用 try.…catch() 来 捕获 误 信 息 
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try 
{ /打开 数据 表 
m_pRecordset->Open("SELECT * FROM kfyd", /查询 表 中 所 有 字段 
theApp.m_pConnection.GetInterfacePtr(), // 获 取 ” 接 库 的 IDispatch 指 
adOpenDynamic, 
adLockOptimistic, 
adCmdText); 
} 
catch(_com_error *e) // 捕 获 异常 情况 
{ 
AfxMessageBox(e->ErrorMessage()); 
} 
try 
{ 
// 写 入 各 字段 值 
m_pRecordset->AddNew(); 


/向 数据 表 “ 姓 名 ”字段 写 入 数据 
m_pRecordset->PutCollect(" 姓 名 ",_variant_t(m_prebookname)); 

// 向 数据 表 “ “ 份 证 号 ”字段 写 入 数据 

m_pRecordset->PutCollect(” 份 证 号 ", variant t(m prebookidnumber)); 
// 向 数据 表 “ 联 系 电话 ”字段 写 入 数据 
m_pRecordset->PutCollect(" 联 系 电 话 ", variant t(m prebooktelnumber)); 
// 向 数据 表 “ 详 细 地 址 ”字段 写 入 数据 
m_pRecordset->PutCollect(" 详 细 地 址 ", variant t(m prebookaddr)); 

// 向 数据 表 “ 工 作 单位 ”字段 写 入 数据 
m_pRecordset->PutCollect(" 工 作 单 位 ", variant t(m prebookworkcompany)); 
// 向 数据 表 “ 客 房 类 型 ”字段 写 入 数据 
m_pRecordset->PutCollect(" 客 房 类 型 ", _variant_t(m_prebookroomkind)); 
// 向 数据 表 “ 客 房价 格 ”字段 写 入 数据 
m_pRecordset->PutCollect(" 客 房价 格 ", _variant_t(m_prebookroommoney)); 


CString checkindate; 

int nYear,nDay,nMonth; 

int nhour,nmin,nsecond; 

CString sYear,sDay,sMonth; 

nYear-m prebookcheckindate.GetYear(); /提取 年 
nDay=m_prebookcheckindate.GetDay(); /提取 日 
nMonth=m_prebookcheckindate.GetMonth(); IRRA 
sYear.Format("%d",nYear); || 换 为 字符 串 
sDay.Format("%d",nDay); || 换 为 字符 串 
sMonth.Format("%d",nMonth); l 换 为 字符 串 
/格式 化 时 


checkindate.Format("%s-%s-%s",sYear,sMonth,sDay); 

// 向 数据 表 " 住 日 期 ”字段 写 入 数据 
m_pRecordset->PutCollect(” 住 日 期 ",_variant_t(checkindate)); 
// 向 数据 表 “ 住 天 数 ” 字 段 写 入 数据 


m_pRecordset->PutCollect(” 住 天 数 ", variant t(m prebookdays)); 
// 向 数据 表 “ 付 ”字段 写 入 数据 
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m_pRecordset->PutCollect(” 付 ". variant t(m prebookhandinmoney)); 
CString nowdate,nowtime; 

CTime tTime; 

tTime-tTime.GetCurrentTime(); 

nYear-tTime.GetYear(); /提取 年 
nDay-tTime.GetDay(); /提取 日 
nMonth=tTime.GetMonth(); /提取 月 
sYear.Format("%d",nYear); || 换 为 字符 串 
sDay.Format("%d",nDay); || 换 为 字符 串 
sMonth.Format("%d",nMonth); l 换 为 字符 串 
/格式 化 时 

nowdate.Format("%s-%s-%s",sYear,sMonth,sDay); 

CString shour,smin,ssecond; 

nhour-tTime.GetHour(); /提取 小 时 
nmin=tTime.GetMinute(); /提取 分 
nsecond=tTime.GetSecond(); /提取 秒 
shour.Format("%d",nhour); l 换 为 字符 串 
smin.Format("%d",nmin); || 换 为 字符 串 
ssecond.Format("%d",nsecond); l 换 为 字符 串 
/格式 化 时 

nowtime.Format("%s:%s:%s",shour,smin,ssecond); 
m_pRecordset->PutCollect(" 日 期 ", _variant_t(nowdate)); 
m_pRecordset->PutCollect(" 时 ", variant t(nowtime)); 

/向 数据 表 “ 证 件 名 称 ” 字 段 写 入 数据 

m_pRecordset->PutCollect(" 证 件 名 称 ", _variant_t(m_prebookidkind)); 

// 更 新 数据 表 

m_pRecordset->Update(); 

AfxMessageBox(" YTIH!"); 

} 


catch( com error *e)// 扫 出 异常 情况 ， 并 显示 


{ 
AfxMessageBox(e->ErrorMessage()); 


) 


IX 记录 


m pRecordset-»Close(); 


m pRecordset = NULL; 


) 


«M 代码 贴 十 
@ GetCurrentTime 函数 : 此 成 员 函 数 返回 一 个 代表 当前 时 间 的 CTime 对 象 。 
© GetYear 函数 : 此 成 员 函 数 根据 本 地 时 间 返 回 范围 在 1970 年 1 月 1 日 一 2038 年 1 月 18 日 之 间 的 年 份 。 


在 预定 房间 时 ， 需 要 选择 一 个 房间 的 类 型 ， 实 现 的 具体 代码 如 下 : 


void CRoomprebookdlg::OnCloseupCOMBOroomkind() 


{ 


e. 


CString roomkind; 
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/获得 ME 
UpdateDataltrue); 
roomkind=m_prebookroomkind; 
/如 果 客 房 类 型 是 标 房 
if(m_prebookroomkind==" 标 房 ") 
{ 

m prebookroommoney-"138"; 


) 
// 如 果 客 房 类 型 是 普 房 
if(m_prebookroomkind==" 普 房 ") 
{ 
m prebookroommoney-"98"; 


7 
/如 果 客 房 类 型 是 双人 
if(m prebookroomkind--"34A. ") 
{ 
m prebookroommoney-"168"; 


) 
// 如 果 客 房 类 型 是 套房 
if(m_prebookroomkind=="# 8") 
{ 
m_prebookroommoney="268"; 


} 
// 更 新 显示 
UpdateData(false); 


) 





如 果 顾 客 想 在 入 住 之 前 换 房间 ， 就 需要 重新 修改 预订 信息 ， 实 现 这 个 功能 的 代码 如 下 : 


void CRoomprebookdlg::Oncancelprebookroom() 
{ 





| AXE 初始 化 

m prebookidkind = T("); 

m prebookroomkind = T(""); 

m prebookcheckindate = 0; 

m prebookaddr = T("); 

m prebookdays = _T(""); 

m prebookhandinmoney = _T(™); 
m prebookidnumber = T("); 

m prebookname = _T(""); 

m prebooktelnumber = _T(""); 

m prebookworkcompany 2. T(""); 
m prebookroommoney = T("); 
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) 


CTime tTime; 
tTime-tTime.GetCurrentTime(); 
// 设 置 登记 的 ” 认 时 

m prebookcheckindate-tTime; 
// 更 新 显示 

UpdateData(false); 


BOOL CRoomprebookdlg::OnlnitDialog() 


{ 


) 


CDialog::OnlnitDialog(); 


m showuser-loguserid; 
enable(0); 
// 更 新 ”入 框 状态 


CTime tTime; 
tTime-tTime.GetCurrentTime(); 
/设置 登记 的 ” 认 时 

m prebookcheckindate-tTime; 
UpdateData(false); 


return TRUE; 


void CRoomprebookdlg::OnBtnroomyuding() 


{ 


) 


enable(1); 
/更 新 NERS 


void CRoomprebookdlg::enable(bool bEnabled) 





lIm_ComYSFS.EnableWindow(bEnabled); 

// 更 改 ”入 框 等 控件 状态 ， 方 便 使 用 ， ib RRE 
GetDIgltem(IDC_COMBOprebookidkind)->EnableWindow(bEnabled); 
GetDlgltem(IDC_COMBOroomkind)->EnableWindow(bEnabled); 
GetDlgltem(IDC_DATETIMEPICKERprecheckindate)->EnableWindow(bEnabled); 
GetDIgltem(IDC_prebookaddr)->EnableWindow(bEnabled); 
GetDlgltem(IDC_prebookdays)->EnableWindow(bEnabled); 
GetDlgltem(IDC prebookhandinmoney)-»EnableWindow(bEnabled); 
GetDlgltem(IDC prebookidnumber)-»EnableWindow(bEnabled); 
GetDlgltem(IDC prebookname)-»EnableWindow(bEnabled); 
GetDlgltem(IDC prebooktelnumber)-» EnableWindow(bEnabled); 


GetDlgltem(IDC prebookworkcompany)-»EnableWindow(bEnabled); 
GetDlgltem(IDC roommoney)-»EnableWindow(bEnabled); 


GetDlgltem(IDOK)-»EnableWindow(bEnabled); 
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GetDIgltem(IDcancelprebookroom)->EnableWindow(bEnabled); 


3.7 追加 押金 模块 设计 








3.7.1 加 押 ”模块 概 


追加 押金 是 为 方便 客户 追加 预 交 的 住房 押金 而 设计 的 , 在 此 子 对 话 框 中 只 要 选择 客户 的 凭证 号 码 ， 
然后 输入 追加 的 金额 就 可 以 轻松 地 完成 追加 操作 ， 其 运行 界面 如 图 3.4 所 示 。 


372 ”加 押 模块 技术 分 析 


追加 押金 模块 用 于 将 追加 押金 信息 记录 到 数据 表 中 。 在 打开 窗 体 时 ，“ 和 凭证 号 码 ” 下 拉 列 表 框 中 
自动 显示 了 当前 数据 库 中 的 凭证 号 码 ， 可 直接 在 此 选择 一 个 凭证 号 码 。 这 个 凭证 号 码 是 在 窗 体 初始 化 
时 添加 到 下 拉 列 表 框 中 的 。 通 过 查询 符合 条 件 的 记录 ， 使 用 循环 语句 将 记录 添加 到 组 合 框 中 ， 其 实现 
代码 如 下 : 





while(Im_pRecordset->adoEOF) 
{ 
var = m_pRecordset->GetCollect(" 凭 证 号 码 "); 
if(var.vt != VT. NULL) 
Strregnumber = (LPCSTR) bstr t(var); 
m addmoney regnumberctr.AddString(strregnumber); 
m pRecordset-»MoveNext(); // 移 动 记录 指 到 下 一 条 记录 





3.7.3 ”加 押 模块 实现 程 


国 ” 术 模块 使 用 的 数据 表 : checkinregtable 

(1) 选择 Insert 一 Resource 命令 ， 打 开 添 加 资源 界面 ， 选 择 Dialog 选项 ， 单 击 New 按钮 ， 插 入 新 
的 对 话 框 。 

(2) 利用 类 向 导 为 此 对 话 框 资源 设置 属性 。 在 Name 文本 框 中 输入 对 话 框 类 名 ， 如 CAddmoneydlg, 
在 Base class 下 拉 列 表 框 中 选择 一 个 基 类 ， 这 里 为 CDialog， 单 击 OK 按钮 创建 对 话 框 。 

G) 在 工作 区 的 资源 视图 中 选择 新 创建 的 对 话 框 ， 向 对 话 框 中 添加 静态 文本 、 下 拉 列 表 框 、 编 辑 
框 、 按 钮 和 时 间 日 期 选择 控件 等 资源 。 

各 个 控件 的 ID 和 属性 设置 如 表 3.5 所 示 。 


8) 
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表 3.5 各 控件 的 ID 和 属性 设置 








控件 ID 
IDC COMBO regnumber 


对 应 变 
m addmoney regnumberctr 


控件 ID 
IDC EDIT roomnumber 


对 应 变 


m addmoney roomnumber 





IDC COMBO regnumber 
IDC EDIT name 
IDC EDIT outdate 


m addmoney regnumber 
m addmoney name 
m addmoney outdate 


IDC EDIT alarmdate 
IDC EDIT alarmtime 
IDC EDIT checkdays 


m addmoney alarmdate 
m addmoney alarmtime 


m addmoney checkdays 





IDC EDIT outtime 


m addmoney outtime 


IDC EDIT indate 


m addmoncy indate 





IDC EDIT prehandmoney 
IDC EDIT roomlevel 


m addmoney prehandmoney 
m addmoney roomlevel 


IDC EDIT intime 
IDC addmoney 


m addmoncy intime 
m addmoney 





IDC EDIT roommoney 





m addmoney roommoney 





IDC STATICshowuser 





m showuser 


(4) 在 对 应 类 的 头 文件 Addmoneydlg.h 中 声明 以 下 变量 : 





_ConnectionPtr m pConnection; 
. CommandPtr m pCommand; 
. RecordsetPtr m pRecordset; 
..RecordsetPtr m pRecordsetout; 





对 话 框 的 初始 化 函数 完成 住宿 客户 凭证 号 码 的 准备 等 其 他 的 初始 化 工作 ， 该 对 话 框 类 的 初始 化 函 
数 如 下 : 





BOOL CAddmoneydlg::OnlnitDialog() 

{ 
CDialog::OnlnitDialog(); 
// 使 用 ADO 创建 数据 库 记 录 
m_pRecordset.Createlnstance(__uuidof(Recordset)); 


. variant t var; 
CString strregnumber; 
/在 ADO 操作 中 建议 语句 中 要 常用 try.…catch() 来 捕获 ” 误 信 息 
try 
{ 
m_pRecordset->Open("SELECT * FROM checkinregtable", 
theApp.m_pConnection.GetlnterfacePtr()， 
adOpenDynamic, 
adLockOptimistic, 
adCmdText); 


/查询 表 中 所 有 字段 
/获取 ” 接 库 的 IDispatch 指 


// 抛 出 异常 


catch(_com_error *e) 


{ 
AfxMessageBox(e->ErrorMessage()); 


) 
try 
( 
ifm pRecordset-»BOF) 
m phRecordset-»MoveFirst(); 


// 判 断 指 是 否 在 数据 最 后 





ON 
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else 


{ 
AfxMessageBox(" 表 内 数据 为 空 "); 


return false; 


) 


while(Im pRecordset-»adoEOF) 
t 
var = m pRecordset-»GetCollect("f& E S 83"); 
if(var.vt != VT NULL) 
strregnumber = (LPCSTR) bstr t(var); 
m. addmoney regnumberctr.AddString(strregnumber); 


m pRecordset-»MoveNext(); // 移 动 记录 指 ”到 下 一 条 记录 
) 
H 
catch( com error *e) // 如 果 读 数 异 常 ， 给 出 提示 


{ 
AfxMessageBox(e->ErrorMessage()); 


) 


// 关 记录 
m_pRecordset->Close(); 
m_pRecordset = NULL; 


m_showuser=loguserid; 
// 更 新 显示 
UpdateData(false); 
enable(0); 
return TRUE; 

) 





完成 追加 押金 操作 的 “确定 ”按钮 的 处 理 函数 ， 代 码 如 下 : 





void CAddmoneydlg::OnOK() 


t 
UpdateData(true); 

// 获 得 ”入 框 内 的 ”入 数据 
m_pRecordsetout.Createlnstance(__uuidof(Recordset)); 


CString strsqlstore; 
strsglstore.Format("SELECT * FROM checkinregtable where 凭证 号 码 ='%s",m_addmoney_regnumber); 


try || 接 数据 库 
{ 
m, pRecordsetout-»Open( variant, t(strsqlstore), /查询 表 中 所 有 字段 
theApp.m_pConnection.GetInterfacePtr(), // 获 取 数 据 库 的 IDispatch 指 
adOpenDynamic, 
adLockOptimistic, 
adCmdText); 
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} 


} 
catch( com error *e) IRR RARER E 


{ 
AfxMessageBox(e->ErrorMessage()); 


) 


try /更 新 数据 库 

float theaddedmoney=atof(m_addmoney_prehandmoney)+atof(m_addmoney); 
char strtheaddedmoney[50]; 
 gevt(theaddedmoney, 4, strtheaddedmoney); /格式 d 
// 写 入 数据 表 

m_pRecordsetout->PutCollect(” 收 ", variant t(strtheaddedmoney)); 
m pRecordsetout-»Update(); 
/更 新 数据 库 完毕 


AfxMessageBox(" 加 成 功 "); 


} 
catch( com error *e) /捕获 “_ 接 数据 库 异 常 


{ 
AfxMessageBox(e->ErrorMessage()); 


) 





在 追加 押金 时 ， 需 要 登记 一 下 ，“ 登 记 ” 按 钮 处 理 的 函数 代码 如 下 : 





void CAddmoneydlg::OnCloseupCOMBOregnumber() 


( 


. variant t var; 
/使 用 ADO 创建 数据 库 记录 
m_pRecordset.Createlnstance(__uuidof(Recordset)); 
/在 ADO 操作 中 建议 语句 中 要 常用 try.….catch() 来 捕获 “ 误 信 息 
UpdateData(true); 


m addmoney regnumberctr.GetWindowText(m addmoney regnumber); 


CString strsql; 

strsgl.Format(" SELECT * FROM checkinregtable where 凭证 号 码 ='%s",m_addmoney_regnumbenr); 

try 

{1/ 打 开 数 据 表 

m_pRecordset->Open(_variant_t(strsql), /查询 表 中 所 有 字段 

theApp.m_pConnection.GetlnterfacePtr(),// 获 取 ” 接 库 的 IDispatch 指 
adOpenDynamic, 
adLockOptimistic, 
adCmdText); 

} 

catch( com error *e) /捕获 异常 
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AfxMessageBox(e->ErrorMessage()); 


try 
(FRE 是 否 在 数据 最 后 
if(Im_pRecordset->BOF) 
m_pRecordset->MoveFirst(); 
else 


AfxMessageBox(" 表 内 数据 为 空 "); 


return; 
J 
// 从 数据 表 中 读 取 数据 
// 读 取 姓 名 
var = m_pRecordset->GetCollect(" 姓 名 "); 
if(var.vt Iz VT NULL) 
m addmoney name = (LPCSTR) bstr t(var); 
// 读 取 房 号 
var = m_pRecordset->GetCollect(" 房 ”号 "); 
if(var.vt != VT. NULL) 
m_addmoney_roomnumber = (LPCSTR)_bstr_t(var); 
// 读 取 客 房 类 型 
var = m_pRecordset->GetCollect(" 客 房 类 型 "); 
if(var.vt != VT. NULL) 
m_addmoney_roomlevel = (LPCSTR)_bstr_t(var); 
// 读 取 客 房价 格 
var = m_pRecordset->GetCollect(" 客 房价 格 "); 
if(var.vt != VT. NULL) 
m addmoney roommoney - (LPCSTR) bstr t(var); 
// 读 取 住 宿 天 数 
var = m_pRecordset->GetCollect(" 住 宿 天 数 "); 
if(var.vt != VT. NULL) 
m_addmoney_checkdays = atof((LPCSTR)_bstr_t(var)); 
// 读 取 住 宿 日 期 
var = m_pRecordset->GetCollect(" 住 宿 日 期 "); 
if(var.vt != VT. NULL) 
m_addmoney_indate = (LPCSTR)_bstr_t(var); 
// 读 取 住 宿 时 
var = m_pRecordset->GetCollect(" 住 宿 时 ") 
if(var.vt Iz VT. NULL) 
m addmoney intime = (LPCSTR) bstr t(var); 
IRR 收 
var = m pRecordset-»GetCollect" t — "y 
if(var.vt Iz VT. NULL) 
m addmoney prehandmoney - (LPCSTR) bstr t(var); 
else 


m addmoney prehandmoney-"000"; 
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// 读 取 BAR 
var = m_pRecordset->GetCollect(” 宿 日 期 "); 
if(var.vt I2 VT. NULL) 
m addmoney outdate = (LPCSTR) bstr t(var); 
// 读 取 ” 宿 时 
var = m_pRecordset->GetCollect(” 宿 时 "); 
if(var.vt != VT. NULL) 
m addmoney outtime = (LPCSTR) bstr t(var); 
// 读 取 提 ”日 期 
var = m_pRecordset->GetCollect(" 提 ”日 期 "); 
if(var.vt Iz VT. NULL) 
m addmoney alarmdate = (LPCSTR) bstr t(var); 
// 读 取 提 时 
var = m_pRecordset->GetCollect(" 提 时 "); 
if(var.vt Iz VT. NULL) 
m addmoney alarmtime = (LPCSTR) bstr t(var); 
/更 新 显示 
UpdateData(false); 


/从 数据 库 内 读 取 数 据 完毕 
) 


catch( com error *e) 

侯 如 果 读 数 异常 ， 给 出 提示 
AfxMessageBox(e-» ErrorMessage()); 

) 


IX 记录 
m pRecordset-»Close(); 
m pRecordset = NULL; 
// 更 新 显示 
UpdateData(false); 
} 


在 追加 押金 时 ， 需 要 将 对 应 的 输入 框 初始 化 设置 ， 具 体 代码 如 下 : 


void CAddmoneydlg::Onaddmoney() 

{ 
/初始 化 ”入 框 内 容 
m_addmoney_regnumber = T("); 
m_addmoney_name = T(") 
m addmoney outdate = _T(""); 
m addmoney, outtime 2. T(""); 
m addmoney, prehandmoney = T(""); 
m addmoney. roomlevel = T(""); 
m addmoney. roommoney = _T(""); 
m addmoney roomnumber = T("); 
m addmoney alarmdate = _T(""); 
m addmoney alarmtime = _T(""); 
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m_addmoney_checkdays = 0.0f; 
m addmoney indate = T("); 

m addmoney intime = _T(""); 

m addmoney- T("); 
UpdateData(false); 


) 
其 他 函数 的 处 理 代 码 见 源 程序 。 


3.8 调 房 登记 模块 设计 








3.8.1 调 房 登记 模块 概 


调 房 登记 模块 是 为 实现 客户 调 房 而 设计 的 ， 有 的 客户 可 能 在 住宿 期 间 要 求 调换 房间 ， 该 模块 可 以 
通过 选择 原 房间 号 码 和 目标 房间 号 码 实现 调 房 操作 ， 其 运行 界面 如 图 3.5 所 示 。 


3.8 ” 调 房 登记 模块 技术 分 析 


调 房 登记 模块 根据 所 选择 的 房间 号 ， 在 住宿 登记 表 中 查询 相关 记录 。 如 果 查 询 到 记录 ， 则 将 记录 
显示 在 窗 体 上 ， 然 后 输入 目标 房间 号 记录 ， 将 记录 保存 到 住宿 登记 表 中 。 根 据 房间 号 读 取 相关 的 住宿 
信息 的 主要 代码 如 下 : 

if(Im_pRecordset->BOF) IHR 是 否 在 数据 ”最 后 


m_pRecordset->MoveFirst(); 
else 





AfxMessageBox(" 表 内 数据 为 空 "); 
return; 


) 


/从 数据 表 中 读 取 客 房价 格 字段 
var = m_pRecordset->GetCollect(" 客 房价 格 "); 
if(var.vt != VT NULL) 
m changeroom roommoney = (LPCSTR) bstr t(var); 


3.8.8 调 房 登 记 模 块 实现 $E 


国 ” 本 模块 使 用 的 数据 表 : Checkinregtable 
(1) 选择 Insert 一 Resource 命令 ， 打 开 添 加 资源 界面 ， 选 择 Dialog 选项 ， 单 击 New 按钮 ， 插 入 新 


的 对 话 框 。 
(2) 利用 类 向 导 为 此 对 话 框 资源 设置 属性 。 在 Name 文本 框 中 输入 对 话 框 类 名 , 如 CChangeroomdlg， 


II 
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在 Base class 下 拉 列 表 框 中 选择 一 个 基 类 ， 这 里 为 CDialog， 单 击 OK 按钮 创建 对 话 框 。 
G) 在 工作 区 的 资源 视图 中 选择 新 创建 的 对 话 框 ， 向 对 话 框 中 添加 静态 文本 、 下 拉 列 表 框 、 编 辑 
框 和 按钮 等 资源 。 
各 个 控件 的 ID 和 属性 设置 如 表 3.6 所 示 。 
表 3.6 各 控件 的 ID 和 属性 设置 

















控件 ID | 对 应变 控件 ID | 对 应 变 
IDC COMBO destroom | m destroomctr IDC changeroom idnumber | m changeroom idnumber 
IDC COMBO sourceroom. | m sourceroometr IDC changeroom name | m changeroom name 
IDC COMBO sourceroom | m sourceroom IDC changeroom roommoney | m changeroom roommoney 
IDC COMBO destroom | m destroom IDC changeroomdlg regnumber | m changeroom regnumber 





IDC changeroom beizhu m changeroom beizhu 


IDC changeroom idkind m changeroom idkind 


IDC STATICshowuser m showuser 






(4) 在 对 应 类 的 头 文件 Changeroomdlg.h 中 声明 以 下 变量 : 





void enable(bool bEnabled); 
CString destroomlevel; 

. ConnectionPtr m pConnection; 
. CommandPtr m pCommand; 

. RecordsetPtr m pRecordset; 
..RecordsetPtr m pRecordsetout; 





该 对 话 框 类 的 初始 化 函数 如 下 : 





BOOL CChangeroomdlg::OninitDialog() 

{ 
CDialog::OnlnitDialog(); 
// 使 用 ADO 创建 数据 库 记 录 
m_pRecordset.Createlnstance(__uuidof(Recordset)); 


variant t var; 
CString strrnoomnumber; 
/在 ADO 操作 中 建议 语句 中 要 常用 try.…catch() 来 捕获 “” 误 信息 


try 
{ 
m_pRecordset->Open("SELECT * FROM checkinregtable"， ”// 查 询 表 中 所 有 字段 
theApp.m_pConnection.GetlnterfacePtr()， // 获 取 $&EERS IDispatch 指 
adOpenDynamic, 
adLockOptimistic, 
adCmdText); 
) 
catch( com error *e) /捕获 _ 接 数据 库 异 常 
í 
AfxMessageBox(e->ErrorMessage()); 
} 


e. 
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一 


ifm pRecordset--BOF) // 判 断 指 ”是否 在 数据 ”最 后 
m_pRecordset->MoveFirst(); 
else 


AfxMessageBox(" 表 内 数据 为 空 "); 
return false; 


) 


/从 数据 库 表 中 读 取 数 据 
while(Im_pRecordset->adoEOF) 
(RRE 号 
var = m_pRecordset->GetCollect(" 房 ”号 "); 
if(var.vt I VT NULL) 
Strroomnumber = (LPCSTR) bstr t(var); 
m. sourceroomctr.AddString(strroomnumber); 1/ 添加 到 列表 
m destroomctr.AddString(strroomnumber); 
m pRecordset-» MoveNext(); /移动 记录 指 
) 
catch(. com error *e) /捕获 异常 
{ 
AfxMessageBox(e->ErrorMessage()); 
) 


IA 记录 
m pRecordset-»Close(); 
m pRecordset = NULL; 


/获得 操作 员 ID 

m showuser-loguserid; 
/显示 更 新 
UpdateData(false); 
enable(0); 


return TRUE; 
) 


完成 调 房 登记 模块 的 “确定 ”按钮 的 处 理 函数 ， 代 码 如 下 : 
void CChangeroomdlg::OnOK() 
UpdateData(true); 
m pRecordsetout.Createlnstance( — uuidof(Recordset)); 
CString strsqlstore; 
strsglstore.Format("SELECT * FROM checkinregtable where 凭证 号 码 ='%s",m_changeroom_regnumber); 


/打开 数据 库 
a8) 


try 
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í 
m_pRecordsetout->Open(_variant_t(strsqlstore), // 查 询 表 中 所 有 字段 
/获取 ， 接 库 的 IDispatch 指 
theApp.m pConnection.GetInterfacePtr(), 
adOpenDynamic, 
adLockOptimistic, 
adCmdText); 
) 
catch( com error *e) 
{// 捕 获 打开 数据 库 时 的 异常 情况 ， 并 给 出 提示 
AfxMessageBox(e->ErrorMessage()); 
H 
try 
( 
// 往 数据 库 内 写 入 数据 
CString zhaiyao; 
zhaiyao.Format(" 从 原 房 ”%s 调换 到 目标 房 ”%s",m_sourceroom,m_destroom); 
m_pRecordsetout->PutCollect(" 房 ”号 ", variant t(m destroom)); 
// 写 入 数据 表 “ 房 ”号 ”字段 
m_pRecordsetout->PutCollect(" 摘 要 ", variant t(zhaiyao)); 
// 写 入 数据 表 “ 摘 要 ”字段 
m_pRecordsetout->PutCollect(" 客 房价 格 ", _variant_t(m_changeroom_roommoney)); 
// 写 入 数据 表 “ 客 房价 格 ”字段 
m_pRecordsetout->PutCollect(" 客 房 类 型 ", _variant_t(destroomlevel)); 
// 写 入 数据 表 “ 客 房 类 型 ”字段 
m_pRecordsetout->Update(); 
// 写 入 数据 完毕 ， 给 出 提示 
AfxMessageBox(" 调 换 成 功 "); 
WUpdateData(false); 


) 
catch( com error *e)// 捕 获 写 入 数据 时 的 异常 情况 ， 实 时 显示 


{ 
AfxMessageBox(e->ErrorMessage()); 


) 
//CDialog::OnOK(); 
) 


顾客 要 求 调 房 ， 就 需要 提供 证 件 等 有 效 信息 进行 查询 确认 ， 实 现 的 具体 代码 如 下 : 


void CChangeroomdlg::OnCloseupCOMBOsourceroom() 
{ 
_variant_t var; 
/使 用 ADO 创建 数据 库 记 录 
m_pRecordset.Createlnstance(_uuidof(Recordset)); 


/在 ADO 操作 中 建议 语句 中 要 常用 try...catch() 来 捕获 ” 误 信息 
/获取 MEAS 
UpdateData(true); 
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CString strsql; 
strsql.Format("SELECT * FROM checkinregtable where È$  €-'96s",m sourceroom); 
try 
切 打开 数据 库 
m pRecordset-»Open( variant t(strsql), /查询 表 中 所 有 字段 
theApp.m_pConnection.GetInterfacePtr(), /获取 HEH Dispatch 指 
adOpenDynamic, 
adLockOptimistic, 
adCmdText); 


z 

catch( com error *e) 

{// 捕 获 异常 
AfxMessageBox(e-»ErrorMessage()); 

H 


try 
{ 
ifim pRecordset--BOF) // 判 断 指 ”是 否 在 数据 ”最 后 
m_pRecordset->MoveFirst(); 
else 


AfxMessageBox(" 表 内 数据 为 空 "); 
return; 


} 


/从 数据 表 中 读 取 姓 名 字段 
var = m_pRecordset->GetCollect(" 姓 名 "); 
if(var.vt != VT. NULL) 
m changeroom name- (LPCSTR) bstr t(var); 


/从 数据 表 中 读 取 和 凭证 号 码 字段 
var = m_pRecordset->GetCollect(" 凭 证 号 码 "); 
if(var.vt {= VT. NULL) 
m changeroom regnumber- (LPCSTR) bstr t(var); 
/从 数据 表 中 读 取证 件 名 称 字段 
var = m_pRecordset->GetCollect(" 证 件 名 称 "); 
if(var.vt != VT. NULL) 
m changeroom idkind = (LPCSTR) bstr t(var); 
/从 数据 表 中 读 取证 件 号 码 字段 
var = m_pRecordset->GetCollect(" 证 件 号 码 "); 
if(var.vt = VT. NULL) 
m changeroom idnumber = (LPCSTR) bstr t(var); 


// 从 数据 表 中 读 取 备注 字段 
var = m_pRecordset->GetCollect(" 备 注 "); 
if(var.vt l= VT. NULL) 
m changeroom beizhu = (LPCSTR) bstr t(var); 





C++ 项 目 开发 全 程 实录 (第 2 版 ) 





UpdateData(false); 
/更 新 显示 


} 
catch( com error *e) /捕获 异常 
{ 

AfxMessageBox(e->ErrorMessage()); 


// 关 记录 
m_pRecordset->Close(); 
m_pRecordset = NULL; 
/更 新 显示 
UpdateData(false); 

} 





调 房 登 记 选 择 房间 类 型 等 相关 信息 ， 实 现 的 具体 代码 如 下 : 





void CChangeroomdlg::OnCloseupCOMBOdestroom() 

{ 
Variant t var; 
/使 用 ADO 创建 数据 库 记录 
m_pRecordset.Createlnstance(__uuidof(Recordset)); 


/在 ADO 操作 中 建议 语句 中 要 常用 try.….catch() 来 捕获 “_ 误 信息 


UpdateData(true); 


CString strsql; 
strsgl.Format(" SELECT * FROM checkinregtable where 房 ”号 ='%s",m_destroom); 
try// 打 开 数 据 库 
{ 
m_pRecordset->Open(_variant_t(strsql), /查询 表 中 所 有 字段 
theApp.m_pConnection.GetlnterfacePtr()， // 获 取 ” 接 库 的 IDispatch 指 
adOpenDynamic, 
adLockOptimistic, 
adCmdText); 
) 
catch( com error *e) 
{1/ 捕 获 打开 数据 库 时 可 能 发 生 的 异常 情况 
AfxMessageBox(e->ErrorMessage()); 
} 


try 
1 


[o 
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ifm pRecordset--BOF) IARE 是 否 在 数据 ”最 后 
m_pRecordset->MoveFirst(); 
else 


{ 
AfxMessageBox(" 表 内 数据 为 空 "); 
return; 


} 


// 从 数据 表 中 读 取 客房 价格 字段 
var = m_pRecordset->GetCollect(" 客 房价 格 "); 
if(var.vt {= VT NULL) 
m changeroom roommoney = (LPCSTR) bstr t(var); 
/从 数据 表 中 读 取 客 房 类 型 字段 
var = m_pRecordset->GetCollect(" 客 房 类 型 "); 
if(var.vt != VT. NULL) 
destroomlevel = (LPCSTR) bstr t(var); 


// 读 取 数 据 完毕 ， 然 后 更 新 显示 
UpdateData(false); 


/更 新 显示 完毕 


) 
catch( com error *e) /捕获 异常 


AfxMessageBox(e->ErrorMessage()); 
IA 记录 
m_pRecordset->Close(); 
m_pRecordset = NULL; 


UpdateData(false); // 更 新 显示 
} 


其 他 部 分 的 代码 见 源 程序 。 


39 客房 销售 报表 模块 设计 








3.9.1 客房 ” 售 报表 模块 概 


客房 销售 报表 模块 实现 客房 销售 报表 信息 的 管理 ， 可 以 按照 时 间 段 对 该 时 间 段 内 客房 销售 统计 报 
表 的 详细 信息 进行 精确 的 查询 。 运 行 界面 如 图 3.18 所 示 。 
© 
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图 3.18 “客房 销售 报表 ”界面 
392 客房 售 报表 模块 技术 分 析 


客房 销售 报表 能 根据 指定 的 时 间 进 行 查询 ， 查 询 的 结果 为 指定 时 间 内 的 数据 信息 。 这 是 根据 给 定 
时 间 构 造 时 间 对 象 ， 与 数据 表 中 的 时 间 进 行 比较 ， 符 合 条 件 的 就 添加 到 窗 体 列 表 中 ， 其 实现 关键 代码 
如 下 : 





CString outyear,outmonth,outday; 

outyear=m_checkoutdate.Mid(0,4); 

outmonthzm checkoutdate.Mid(5,m checkoutdate.Find("-',6)-5); 

outdayzm checkoutdate.Mid(m checkoutdate.ReverseFind('-)*1, 
m checkoutdate.GetLength()-m checkoutdate.ReverseFind('-)); 

I3 时 对 象 

CTime outtime(atoi(outyear),atoi(outmonth),atoi(outday),m rooms 
alebegintime.GetHour(),m roomsalebegintime.GetMinute(),m roomsalebegintime.GetSecond()); 

I3 时 对 象 

CTime begintime(m_roomsalebegindate.GetYear(),m_roomsale 
begindate.GetMonth(),m roomsalebegindate.GetDay(),m roomsalebegintime.GetHour(),m roomsalebegintime 
.GetMinute(),m. roomsalebegintime.GetSecond()); 

IS 时 对 象 

CTime endtime(m roomsaleenddate.GetYear(),m roomsaleenddate. 
GetMonth(),m roomsaleenddate.GetDay(),m roomsaleendtime.GetHour(),m roomsaleendtime.GetMinute(),m 
.roomsaleendtime.GetSecond()); 


3.9.3 ”客房 ” 售 报表 模块 实现 程 


国 ” 本 模块 使 用 的 数据 表 : checkoutregtable 
(1) 选择 Insert 一 Resource 命令 ， 打 开 添 加 资源 界面 ， 选 择 Dialog 选项 ， 单 击 New 按钮 ， 插 入 新 


的 对 话 框 。 
(2) 利用 类 向 导 为 此 对 话 框 资源 设置 属性 。 在 Name 文本 框 中 输入 对 话 框 类 名 , 如 CRoomsaledlg， 
在 Base class 下 拉 列 表 框 中 选择 一 个 基 类 ， 这 里 为 CDialog， 单 击 OK 按钮 创建 对 话 框 。 


e. 
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GO 在 工作 区 的 资源 视图 中 选择 新 创建 的 对 话 框 ， 向 对 话 框 中 添加 静态 文本 、 列 表 、 编 辑 框 、 按 


钮 和 时 间 日 期 选择 控件 等 资源 。 
界面 中 各 个 控件 的 ID 和 属性 设置 如 表 3.7 所 示 。 


R37 窗 体 控件 ID 和 属性 设置 











控件 ID 对 应 变 “/ 标 控件 ID 对 应 变 _/ 标 
IDC LIST roomsale m roomsale list IDC parkmoney m show parkmoney 
IDC DATETIMEPICKERroomsale endtime |m roomsaleendtime IDC pregetroommoney | m show pregetroommone 





IDC DATETIMEPICKERroomsale enddate  |m roomsaleenddate IDC shouldgetmoney 


m show shouldgetmoney 





IDC DATETIMEPICKERroomsale begintime | m roomsalebegintime 





IDC sumgetmoney 


m show sumgetmoney 





IDC DATETIMEPICKERroomsale begindate | m. zeomsalebegindne IDC telmoney 





m show telmoney 








IDC meetingmone: oney |IDC STATICshowuser 
IDC backroommone IDOK 

IDC mendmone IDCANCEL 

IDC mixmon 


(4) 在 该 对 话 框 类 对 应 的 头 文件 Roomsaledlg.h 中 声明 以 下 变量 : 





m showuser 


确定 
退出 





_ConnectionPtr m pConnection; 
. CommandPtr m pCommand; 
..RecordsetPtr m pRecordset; 

. RecordsetPtr m pRecordsetfind; 


CString m realmoney; 
CString m room money; 
CString m regnumber; 
CString m gustname; 
CString m gustaddr; 
CString m addr; 

CString m pre discount; 
CString m roomlevel; 
CString m zhengjian number; 
CString m checkinreg reason; 
CString m discount kind; 
CString m roomnumber; 
CString m zhengjian; 
CString m checkindate; 
CString m alarmdate; 
CString m alarmtime; 
CString m checkintime; 
CString m checkoutdate; 
CString m checkouttime; 
CString m checkdays; 
CString m discountnumber; 
CString m tel money; 
CString m park money; 
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CString m mix money; 

CString m mend money; 

CString m meeting money; 

CString m pre handinmoney; 

CString m reback money; 

float sum realmoney,sum pregetmoney; 





在 该 对 话 框 类 对 应 的 源 文件 Roomsaledlg.cpp 中 ， 关 键 代码 是 “确定 ”按钮 的 处 理 函数 。 单 击 “ 确 
定 ” 按 钮 可 以 统计 选 定时 间 段 内 的 客房 销售 的 详细 信息 ， 代 码 如 下 : 


void CRoomsaledlg::OnOK() 
{ 
UpdateData(true); 
m pRecordset.Createlnstance( — uuidof(Recordset)); 


. variant t var; 
m roomsale list.DeleteAllItems(); 
int i=0; 
/在 ADO 操作 中 建议 语句 中 要 常用 try.….catch() 来 捕获 ” 误 信息 


try 
{// 打 开 数 据 表 
m_pRecordset->Open("SELECT * FROM checkoutregtable", // 查 询 表 中 所 有 字段 
1/ 获取” 接 库 的 IDispatch 指 
theApp.m_pConnection.GetInterfacePtr(), 
adOpenDynamic, 
adLockOptimistic, 
adCmdText); 


y 
catch( com error *e) // 抛 出 异常 
í 
AfxMessageBox(e->ErrorMessage()); 
} 


try 
{// 判 断 指 ”是否 在 数据 ”最 后 
if(Im_pRecordset->BOF) 
m_pRecordset->MoveFirst(); 
else 
AfxMessageBox(" 表 内 数据 为 空 "); 
return; 


} 
// 从 数据 库 表 中 读 取 数据 
while(Im_pRecordset->adoEOF) 
( 
/循环 读 取 数 据 
var = m_pRecordset->GetCollect(” 房 日 期 "); 
if(var.vt != VT. NULL) 
m checkoutdate = (LPCSTR) bstr t(var); 
CString outyear,outmonth,outday; 
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outyear-m checkoutdate.Mid(0,4); 
outmonth-m checkoutdate.Mid(5,m checkoutdate.Find('-*,6)-5); 
outday-m checkoutdate.Mid(m checkoutdate.ReverseFind('-")*-1, 
m checkoutdate.Getl ength()-m | checkoutdate.ReverseFind(-')); 
IS 时 对 象 
CTime outtime(atoi(outyear),atoi(outmonth),atoi(outday), 
m_roomsalebegintime.GetHour(),m_roomsalebegintime.GetMinute(),m_roomsalebegintime.GetSecond()); 
IMS 时 对 象 
CTime begintime(m roomsalebegindate.GetYear(),m roomsalebegindate. 
GetMonth(),m roomsalebegindate.GetDay(),m roomsalebegintime.GetHour(),m roomsalebegintime.GetMinut 
e(),m roomsalebegintime.GetSecond()); 
I 时 对 象 
CTime endtime(m_roomsaleenddate.GetYear(),m_roomsaleenddate. 
GetMonth(),m_roomsaleenddate.GetDay(),m_roomsaleendtime.GetHour(),m_roomsaleendtime.GetMinute(),m 
_roomsaleendtime.GetSecond()); 
if((outtime«endtime)&&(outtime»begintime)) 
QR ”条件 的 数据 被 读 取 ， 并 在 列表 框 内 显示 
// 读 取 数据 表 中 “和 凭证 号 码 ”字段 数据 
var = m_pRecordset->GetCollect(" 凭 证 号 码 "); 
if(var.vt = VT. NULL) 
m regnumber = (LPCSTR) bstr t(var); 
// 在 列表 内 显示 该 字段 内 容 
m_roomsale_list.Insertltem(i,m_regnumber.GetBuffer(50)); 
// 读 取 数 据 表 中 “姓名 ”字段 数据 
var = m_pRecordset->GetCollect(" 姓 名 "); 
if(var.vt = VT. NULL) 
m gustname = (LPCSTR) bstr t(var); 
// 在 列表 内 显示 该 字段 内 容 
m_roomsale_list.SetltemText(i,1,m_gustname.GetBuffer(50)); 
// 读 取 数 据 表 中 “ 房 ” 号 ”字段 数据 
var = m_pRecordset->GetCollect(" 房 ”号 "); 
if(var.vt != VT NULL) 
m roomnumber = (LPCSTR) bstr t(var); 
/在 列表 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i, 2,m roomnumber.GetBuffer(50)); 
// 读 取 数 据 表 中 “客房 价格 ”字段 数据 
var = m_pRecordset->GetCollect(" 客 房价 格 "); 
if(var.vt {= VT. NULL) 
m room money = (LPCSTR) bstr t(var); 
// 在 列表 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i,3,m room money.GetBuffer(50)); 
// 读 取 数 据 表 中 “住宿 天 数 ” 字 段 数据 
var = m_pRecordset->GetCollect(" 住 宿 天 数 "); 
if(var.vt {= VT. NULL) 
m checkdays = (LPCSTR) bstr t(var); 
/在 列表 内 显示 该 字段 内 容 
m_roomsale_list.SetltemText(i,4,m_checkdays.GetBuffer(50)); 
// 读 取 数 据 表 中 “折扣 或 招待 ”字段 数据 
var = m_pRecordset->GetCollect(" 折 扣 或 招待 "); 
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if(var.vt (= VT. NULL) 
m discount kind = (LPCSTR) bstr t(var); 
/在 列表 内 显示 该 字段 内 容 
m_roomsale_list.SetltemText(i,5,m_discount_kind.GetBuffer(50)); 
// 读 取 数 据 表 中 “折扣 ”字段 数据 
var = m_pRecordset->GetCollect(" 折 扣 "); 
if(var.vt {= VT. NULL) 
m discountnumber = (LPCSTR) bstr t(var); 
/在 列表 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i,6,m discountnumber.GetBuffer(50)); 
// 读 取 数 据 表 中 “应 收 宿 费 ”字段 数据 
var = m_pRecordset->GetCollect(" 应 收 宿 费 "); 
if(var.vt Iz VT. NULL) 
m pre discount = (LPCSTR) bstr t(var); 
/在 列表 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i,7,m pre discount.GetBuffer(50)); 
m show shouldgetmoneyzm show shouldgetmoney-*atof(m pre discount); 
// 读 取 数据 表 中 “杂费 ”字段 数据 
var = m_pRecordset->GetCollect(" 杂 费 "); 
if(var.vt = VT. NULL) 
m mix money = (LPCSTR) bstr t(var); 
// 在 列表 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i,8,m mix money.GetBuffer(50)); 
m show mixmoneyzm show mixmoney-*atof(m mix money); 
// 读 取 数 据 表 中 “电话 费 ” 字 段 数据 
var = m_pRecordset->GetCollect(" 电 话费 "); 
if(var.vt != VT. NULL) 
m tel money = (LPCSTR) bstr t(var); 
/在 列表 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i,9,m tel money.GetBuffer(50)); 
m show telmoneyzm show telmoney-*atof(m tel money); 
// 读 取 数 据 表 中 “会 议 费 ”字段 数据 
var = m_pRecordset->GetCollect(" 会 议 费 "); 
if(var.vt != VT. NULL) 
m meeting money = (LPCSTR) bstr t(var); 
// 在 列表 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i,10,m meeting money.GetBuffer(50)); 
m show meetingmoneyzm show meetingmoney-*atof(m meeting money); 
// 读 取 数 据 表 中 “ 存 ” 费 ”字段 数据 
var = m_pRecordset->GetCollect(" 存 ” 费 "); 
if(var.vt {= VT. NULL) 
m park money = (LPCSTR) bstr t(var); 
/在 列表 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i,11,m park money.GetBuffer(50)); 
m show parkmoney-m show parkmoney-atof(m park money); 
// 读 取 数据 表 中 “赔偿 费 ” 字 段 数据 
var = m_pRecordset->GetCollect(" 赔 偿 费 "); 
if(var.vt {= VT. NULL) 
m mend money - (LPCSTR) bstr t(var); 





第 3 章 客房 管理 系统 (Visual C++ 6.0+SQL Server 2014 实现 ) 








/在 列表 内 显示 该 字段 内 容 
m_roomsale_list.SetltemText(i,12,m_mend_money.GetBuffer(50)); 
m_show_mendmoney=m_show_mendmoney+atof(m_mend_money); 
// 读 取 数 据 表 中 “ 总计” 字段 数据 
var = m_pRecordset->GetCollect(” ”总 计 "); 
if(var.vt {= VT. NULL) 
m realmoney = (LPCSTR) bstr t(var); 
// 在 列表 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i,13,m realmoney.GetBuffer(50)); 
m show sumgetmoney-m show sumgetmoney-*atof(m realmoney); 
// 读 取 数 据 表 中 “” 收 宿 费 ”字段 数据 
var m pRecordset-»GetCollect(" 收 宿 费 "); 
if(var.vt Iz VT. NULL) 
m pre handinmoney = (LPCSTR) bstr t(var); 
/在 列表 内 显示 该 字段 内 容 
m_roomsale_list.SetltemText(i,14,m_pre_handinmoney.GetBuffer(50)); 
m_show_pregetroommoney=m_show_pregetroommoney+atof(m_pre_handinmoney); 
// 读 取 数 据 表 中 “ 宿 费 ”字段 数据 
var = m pRecordset-»GetCollect" ” 1838"); 
if(var.vt = VT. NULL) 
m reback money - (LPCSTR) bstr t(var); 
// 在 列表 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i,15,m reback money.GetBuffer(50)); 
m show backroommoney-m show backroommoney-atof(m reback money); 


i++; BHRR E 到 下 一 条 记录 
m_pRecordset->MoveNext(); 


} 
else// 如 果 不 满 ”条 件 就 直接 。 此 记录 
{ 
m_pRecordset->MoveNext(); 
continue; 


} 
} 
catch( com error *e) /捕获 异常 
AfxMessageBox(e->ErrorMessage()); 
} 
IX 记录 
m_pRecordset->Close(); 
m_pRecordset = NULL; 
UpdateData(false); 
/CDialog::OnOK(); 
} 





在 Roomsaledlg.cpp 源 文件 中 ， 实 现 报表 信息 的 代码 如 下 : 
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BOOL CRoomsaledlg::OnlnitDialog() 


{ 


CDialog::OnlnitDialog(); 

CTime tTime; 

tTime-tTime.GetCurrentTime(); 

/设置 认 时 

m roomsaleenddate-tTime; 

I[TODO: Add extra initialization here 

// 设 置 列表 框 & 

m roomsale list.SetTextColor(RGB (0, 0, 0)); 
m roomsale list.SetTextBkColor(RGB (140, 180, 20)); 
// 初 始 化 列表 框 
m_roomsale_list.InsertColumn(1," 凭 证 号 码 "); 
m_roomsale_list.InsertColumn(2," 姓 名 "); 
m_roomsale_list.InsertColumn(3," 房 ”号 "); 
m_roomsale_list.InsertColumn(4," 房 价 "); 
m_roomsale_list.InsertColumn(5," 天 数 "); 
m_roomsale_list.InsertColumn(6," 结 款 方 式 "); 
m_roomsale_list.InsertColumn(7," 折 扣 "); 
m_roomsale_list.InsertColumn(8," 应 收 宿 费 "); 
m_roomsale_list.InsertColumn(9," 杂 费 "); 
m_roomsale_list.InsertColumn(10," 电 话费 "); 
m roomsale list.InsertColumn(11," jj 3"); 
m. roomsale list.InsertColumn(12,"7z — 3&"); 
m roomsale list.InsertColumn(13, "Ii 3"); 
m roomsale list.InsertColumn(14," Sc  "); 
m roomsale list.InsertColumn(15," KER"); 
m_roomsale_list.InsertColumn(16,” — 宿 费 "); 
RECT rect; 

m roomsale list.GetWindowRect(&rect); 

int wid-rect.right-rect.left; 

int i20; 

m roomsale list.SetColumnWidth(0,wid/16); 
m roomsale list.SetColumnWidth(1,wid/16); 
m roomsale list.SetColumnWidth(2,wid/16); 
m roomsale list.SetColumnWidth(3,wid/20); 
m roomsale list.SetColumnWidth(4,wid/20); 
m roomsale list.SetColumnWidth(5,wid/16); 
m roomsale list.SetColumnWidth(6,wid/16); 
m roomsale list.SetColumnWidth(7 ,wid/16); 
m roomsale list.SetColumnWidth(8,wid/16); 
m roomsale list.SetColumnWidth(9,wid/16); 
m roomsale list.SetColumnWidth(10,wid/16); 
m roomsale list.SetColumnWidth(11,wid/16); 
m roomsale list.SetColumnWidth(12,wid/16); 
m roomsale list.SetColumnWidth(13,wid/14); 
m roomsale list.SetColumnWidth(14,wid/14); 
m roomsale list.SetColumnWidth(15,wid/14); 
// 设 置 列表 框 d 
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m_roomsale_list.SetExtendedStyle(LVS_EX_FULLROWSELECT); 
/使 用 ADO 创建 数据 库 记录 
m pRecordset.Createlnstance( — uuidof(Recordset)); 


. variant t var; 


/在 ADO 操作 中 建议 语句 中 要 常用 try..catch 来 捕获 _ 误 信息 


try 
{1/ 打 开 数 据 表 
m_pRecordset->Open("SELECT * FROM checkoutregtable", /查询 表 中 所 有 字段 
theApp.m pConnection.GetInterfacePtr(), /获取 接 库 的 IDispatch 指 
adOpenDynamic, 
adLockOptimistic, 
adCmdrText); 


) 

catch( com error *e) 

VAER RER 
AfxMessageBox(e->ErrorMessage()); 


} 
try 
{ 
if(Im_pRecordset->BOF)// 判 断 指 ”是 否 在 数据 ”最 后 


m_pRecordset->MoveFirst(); 
else 


AfxMessageBox(" 表 内 数据 为 空 "); 
return false; 


} 


while(Im_pRecordset->adoEOF) 
{// 循 环 读 取 数 据 
// 读 取 数 据 表 中 “凭证 号 码 ” 字 段 数据 
var = m_pRecordset->GetCollect(" 凭 证 号 码 "); 
if(var.vt != VT. NULL) 
m regnumber = (LPCSTR) bstr t(var); 
/在 列表 框 内 显示 该 字段 内 容 
m_roomsale_list.Insertltem(i,m_regnumber.GetBuffer(50)); 


// 读 取 数 据 表 中 “姓名 ”字段 数据 
var = m_pRecordset->GetCollect(" 姓 名 "); 
if(var.vt l= VT. NULL) 
m gustname = (LPCSTR) bstr t(var); 
// 在 列表 框 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i,1om gustname.GetBuffer(50)); 


// 读 取 数 据 表 中 “ 房 ” 号 ”字段 数据 
var = m_pRecordset->GetCollect(" 房 ”号 "); 
if(var.vt l= VT. NULL) 

m roomnumber = (LPCSTR) bstr t(var); 
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/在 列表 框 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i,2,m roomnumber.GetBuffer(50)); 


// 读 取 数 据 表 中 “客房 价格 ”字段 数据 
Var = m_pRecordset->GetCollect(" 客 房价 格 "); 
if(var.vt != VT. NULL) 

m room money = (LPCSTR) bstr t(var); 
/在 列表 框 内 显示 该 字段 内 容 


m_roomsale_list.SetltemText(i,3,m_room_money.GetBuffer(50)); 


// 读 取 数 据 表 中 “住宿 天 数 ” 字 段 数据 
var = m_pRecordset->GetCollect(" 住 宿 天 数 "); 
if(var.vt != VT. NULL) 
m checkdays = (LPCSTR) bstr t(var); 
/在 列表 框 内 显示 该 字段 内 容 
m_roomsale_list.SetltemText(i,4,m_checkdays.GetBuffer(50)); 
// 读 取 数 据 表 中 “折扣 或 招待 ”字段 数据 
var = m_pRecordset->GetCollect(" 折 扣 或 招待 "); 
if(var.vt != VT. NULL) 
m discount kind = (LPCSTR) bstr t(var); 
/在 列表 框 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i,5,m discount kind.GetBuffer(50)); 


// 读 取 数 据 表 中 “折扣 ”字段 数据 
var = m_pRecordset->GetCollect(" 折 扣 "); 
if(var.vt != VT. NULL) 
m discountnumber = (LPCSTR) bstr t(var); 
/在 列表 框 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i,6om discountnumber.GetBuffer(50)); 
// 读 取 数 据 表 中 “应 收 宿 费 ”字段 数据 
var = m_pRecordset->GetCollect(" 应 收 宿 费 "); 
if(var.vt Iz VT. NULL) 
m pre discount = (LPCSTR) bstr t(var); 
/在 列表 框 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i,7,m pre discount.GetBuffer(50)); 
// 读 取 数 据 表 中 “杂费 ”字段 数据 
var = m_pRecordset->GetCollect(" 杂 费 "); 
if(var.vt Iz VT. NULL) 
m mix money = (LPCSTR) bstr t(var); 
/在 列表 框 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i,8,m mix money.GetBuffer(50)); 
// 读 取 数 据 表 中 “电话 费 ” 字 段 数据 
var = m_pRecordset->GetCollect(" 电 话费 "); 
if(var.vt Iz VT. NULL) 
m tel money = (LPCSTR) bstr t(var); 
// 在 列表 框 内 显示 该 字段 内 容 
m_roomsale_list.SetltemText(i,9,m_tel_money.GetBuffer(50)); 
// 读 取 数据 表 中 “会 议 费 ”字段 数据 
var = m_pRecordset->GetCollect(" 会 议 费 "); 
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if(var.vt Iz VT. NULL) 
m meeting money = (LPCSTR) bstr t(var); 
// 在 列表 框 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i,10,m meeting money.GetBuffer(50)); 
// 读 取 数 据 表 中 “ 存 ” 费 ”字段 数据 
var = m_pRecordset->GetCollect(" 存 ” 费 "); 
if(var.vt Iz VT. NULL) 
m park money = (LPCSTR) bstr t(var); 
/在 列表 框 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i,11,m park money.GetBuffer(50)); 
// 读 取 数 据 表 中 “赔偿 费 ” 字 段 数据 
var = m_pRecordset->GetCollect(" 赔 偿 费 "); 
if(var.vt Iz VT. NULL) 
m mend money = (LPCSTR) bstr t(var); 
/在 列表 框 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i,12,m mend money.GetBuffer(50)); 
// 读 取 数 据 表 中 “ 总计” 字段 数据 
var = m_pRecordset->GetCollect(" ”总 计 "); 
if(var.vt != VT. NULL) 
m realmoney = (LPCSTR), bstr t(var); 
/在 列表 框 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i,13,m realmoney.GetBuffer(50)); 


// 读 取 数 据 表 中 “” 收 宿 费 ” 字 段 数据 
var = m pRecordset-»GetCollect(" 收 宿 费 "); 
if(var.vt != VT. NULL) 
m pre handinmoney = (LPCSTR) bstr t(var); 
/在 列表 框 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i,14,m pre handinmoney.GetBuffer(50)); 
// 读 取 数 据 表 中 “ ”” 宿 费 ” 字 段 数据 
var = m_pRecordset->GetCollect(” ” 宿 费 "); 
if(var.vt != VT. NULL) 
m reback money = (LPCSTR) bstr t(var); 
/在 列表 框 内 显示 该 字段 内 容 
m roomsale list.SetltemText(i,15,m reback money.GetBuffer(50)); 


j++; 


m, | pRecordset-»MoveNext(); ll 记录 指 下 移 一 条 记录 


) 
catch( com error *e) // 抛 出 异常 情况 ， 提 示 用 户 
{ 


AfxMessageBox(e->ErrorMessage()); 
) 


// 关 记录 
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m_pRecordset->Close(); 
m_pRecordset = NULL; 
I WA 
m show, meetingmoney-0; 
m show backroommoney-0; 
m show mendmoney-0; 
m show mixmoney-0; 
m show, parkmoney-0; 
m show. pregetroommoney-0; 
m show, shouldgetmoney-0; 
m show sumgetmoney-0; 
m show telmoney-0; 


m showuser-loguserid; 
UpdateData(false); 
return TRUE; /如 果 想 要 将 焦点 设置 为 控件 就 [Sl TRUE 
// 另 外 ， 想 要 设置 为 OCX 控件 属性 就 El FALSE 





310 项目 文件 清单 


客房 管理 系统 项 目 文件 清单 如 表 3.8 所 示 。 
X38 客房 管理 系统 “ 目 文件 清单 





文件 名 称 文件 类 型 文件 描 
Myhotel.dsp 工程 文件 系统 工程 文件 
Myhotel.dsw 工作 区 文件 系统 工作 区 文件 
Myhotel.rc 资源 文件 系统 资源 文件 
Myhotel Dlg.cpp 源 文 件 主 对 话 框 
Myhotel.cpp 源 文件 系统 应 用 程序 
Addmoneydlg.cpp 源 文件 追加 押金 窗 体 
ButtonST.cpp 源 文件 按钮 设置 
Changerommdlg.cpp 源 文件 调 房 登记 窗 体 
Checkinregdlg.cpp 源 文件 住宿 登记 窗 体 
CheckinregSET.cpp 源 文件 住宿 登记 设置 
Checkoutdlg.cpp 源 文件 退 宿 结账 
Findcheckindlg.cpp 源 文件 住宿 查询 
Findcheckoutdlg.cpp 源 文件 退 宿 查询 
Findguazhangdlg.cpp 源 文件 挂账 查询 
Findprebookroomdlg.cpp 源 文件 客房 预订 查询 
Findroomdlg.cpp 源 文件 客房 查询 


@ 
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续 表 

文件 名 称 文件 类 型 文件 描 
Findroomstatedlg.cpp 源 文件 房 态 查看 
Guesthandmoneydlg.cpp 源 文件 客户 结 款 
LoginDlg.cpp 源 文件 用 户 登 录 
Reghandmoneydlg.cpp 源 文件 登记 预收 报表 
Repairpwdlg.cpp 源 文件 密码 设置 
Resetdatabase.cpp 源 文件 初始 化 设置 
Roominfoset.cpp. 源 文件 入 住 信息 设置 
Roommoneyalarmdlg.cpp 源 文件 宿 费 提醒 
Roomprebookdlg.cpp 客房 预订 
Roomsaledlg.cpp 客房 销售 报表 
Roomsalestaticdlg.cpp 客房 销售 统计 
Setroomdlg.cpp 客房 设置 
Setuserabilitydlg.cpp 权限 设置 
Setusemamepwdlg.cpp 操作 员 代号 和 密码 设置 





本 章 的 主要 内 容 是 根据 酒店 客房 管理 的 实际 情况 设计 一 个 管理 系统 。 通 过 本 章 的 学 习 ， 可 以 了 解 
一 个 酒店 客房 管理 系统 的 开发 流程 。 本 章 通过 详细 的 讲解 及 简洁 的 代码 能 使 读者 能 够 更 快 、 更 好 地 掌 
握 数据 库 管理 系统 的 开发 技术 ， 增 加 读者 的 实际 开发 能 力 和 项 目 经 验 。 


^^ I 


z5 E 
人 事 考勤 管理 系统 


( Visual C++ 6.0+SQL Server 2014 实现 ) 


对 于 一 个 小 的 企业 ， 由 于 其 员工 不 多 ， 员 工 的 出 勤 管理 可 能 不 是 
一 个 大 问题 。 但 随 着 企业 不 断 半 大 ， 员 工 不 断 增加 ， 员 工 的 出 勤 管理 
就 会 成 为 非常 大 的 问题 。 人 事 考勤 管理 系统 就 是 为 了 解决 这 个 问题 而 
产生 的 。 有 了 人 事 考勤 管理 系统 ， 就 可 以 轻易 地 训 担 每 个 员工 的 出 勤 
状况 。 

通过 学 习 本 章 ， 读 者 可 以 学 到 : 

» 了 解 如 何 使 用 ADO 连接 数据 库 

WI 掌握 如 何 利用 ADO 封装 类 进行 

数据 操作 

» 了解 数据 库 与 程序 间 日 期 类 型 数 

据 的 操作 配置 说 明 

» 掌握 如 何 使 用 SQL 查询 语句 进 

行 数据 胡 的 汇总 查询 
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41 开发 背景 














XX 公 司 随 着 其 业务 的 不 断 发 展 ， 公 司 的 员工 数量 不 断 增加 ， 人 事 考 勤 方面 的 管 
理 已 成 为 公司 管理 中 的 重要 部 分 。 传 统 的 人 事 考勤 制度 已 不 能 有 效 地 管理 员工 的 出 勤 状况 ， 所 以 人 事 
考勤 系统 就 成 为 了 人 事 考勤 管理 的 有 效 工具 。 


42 需求 分 析 


在 使 用 人 事 考勤 管理 系统 时 ， 用 户 需 要 输入 用 户 名 和 密码 进入 人 事 考勤 管理 系统 ， 从 而 对 人 事 考 
勤 管理 系统 的 部 门 、 员 工 的 基本 信息 进行 维护 和 管理 。 在 考勤 管理 模块 中 录入 员工 当天 的 考勤 信息 
同时 可 对 年 、 月 和 员工 信息 进行 查询 ， 还 可 通过 考勤 汇总 查询 功能 对 员工 某 月 的 考勤 记录 进行 汇总 ， 
计算 出 员工 月 工作 天 数 和 早退 、 迟 到 的 天 数 等 。 通 过 对 人 事 考勤 管理 过 程 的 研究 和 分 析 ， 要 求 本 系统 
应 该 具有 以 下 功能 。 

用 户 登 录 。 

部 门 信息 录入 。 
人 员 信 息 管理 。 
考勤 信息 录入 。 
考勤 信息 汇总 。 

















ARAARA 


43 系统 设计 


4.3.1 系统 目标 


人 事 考勤 管理 系统 以 实现 员工 日 常 出 勤 信息 管理 为 设计 目标 ， 加 以 强大 的 数据 库 管理 功能 ， 便 于 
对 考勤 信息 进行 管理 ， 大 大 提高 人 事 部 门 的 日 常 工作 效率 。 本 系统 在 设计 时 应 该 满足 以 下 几 点 。 
采用 人 机 对 话 的 操作 方式 ， 信 息 查询 灵活 、 方 便 、 快 捷 、 准 确 ， 数 据 存储 安全 可 靠 。 
对 考勤 信息 的 操作 简单 ， 可 以 方便 地 进行 添加 、 修 改 和 删除 。 
可 以 录入 员工 信息 和 部 门 信息 。 
对 员工 的 考勤 信息 可 按 月 进行 汇总 计算 。 
对 用 户 输入 的 数据 ， 系 统 进行 严格 的 数据 检验 ， 尽 可 能 排除 人 为 的 错误 。 
系统 最 大 限度 地 实现 了 易 维护 性 和 易 操作 性 。 
系统 运行 稳定 ， 安 全 可 靠 。 


ARARARA 
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人 事 考 勤 管理 系统 
43.2 ”系统 功能 结构 
É Ec 图 4. ZR. 

人 事 考勤 管理 系统 的 功能 结构 图 如 图 4.1 所 示 w| [X x 
433 系统 预览 * |m| le mr 
管 息 息 管 总 
人 事 考勤 管理 系统 由 多 个 功能 模块 组 成 ， 下 面 仅 列 出 几 个 典 ”| 理 | | 管 | | 管 | | 理 | | 查 
型 的 功能 模块 ， 其 他 模块 的 实现 请 参见 资源 包 中 的 源 程序 。 EP m " 





人 事 考勤 管理 系统 的 部 门 信息 管理 模块 如 图 4.2 所 示 , 该 模块 Bal 系统 功能 结构 图 
用 于 管理 各 部 门 之 间 的 结构 信息 。 人 员 信 息 管理 模块 如 图 4.3 所 
示 ， 该 模块 用 于 维护 员工 的 基本 信息 。 

















部门 信息 
a ESTE 
“网 络 开发 








DELPHI 
vc 











[3m ][ wx | [we | (C xi | 





图 4.2 部 门 管理 模块 图 4.3 人 员 信息 管理 模块 


考勤 管理 模块 如 图 4.4 所 示 ， 该 模块 用 于 记录 人 事 考勤 的 信息 情况 。 考 勤 汇总 查询 模块 如 图 4.5 所 
示 ， 该 模块 用 于 对 员工 的 考勤 信息 进行 汇总 统计 。 






























































克 显示 全 部 Gi [2013 -] mf c] ar [Gm 可 pue zA: 后 -| AT: CE] 
ARER Ind THU HADNA [DTHEBHH [HEB jeas —rraxm Lsxazs [eS DA exR I 
地 四 8:00:00 17:00:00. 8:00:00 17:60:00 无 m 
小 刘 8:00:00 17:30:00 8:00:00 15:30:00 无 
张 三 8:00:00 17:00:00 10: 10:00. 16:50:00 无 
添加 gk | wi | [ s |] 
图 4.4 考勤 管理 模块 图 4.5 考勤 汇总 查询 模块 


4.3.4 业务 流程 图 
人 事 考勤 管理 系统 的 业务 流程 图 如 图 4.6 所 示 。 
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图 4.6 人 事 考勤 管理 系统 的 业务 流程 图 


4.3.5 数据 库 设计 


4. 数据 库 分 析 
在 人 事 考勤 管理 系统 中 使 用 了 SQL Server 2014 数据 库 来 满足 系统 的 一 一 一 
需求 , 数据库 名 称 为 tb_person, 在 数据 库 中 创建 4 张 表 用 于 存储 不 同 信息 ， ee 
如 图 4.7 所 示 。 EEE 
3$ 国 dbo.tab_Check 
2. 数据 库 概念 设计 d-bem nem 
根据 前 面 介绍 的 需求 分 析 和 系统 设计 规划 出 本 系统 中 使 用 的 数据 库 实 — 





体 对 象 ， 分 别 为 管理 员 实 体 、 部 门 实体 、 员 工 实体 和 考勤 实体 。 下 面 将 给 图 4.7 数据 库 中 的 表 
出 以 上 实体 的 E-R 图 。 

COD 管理 员 实体 

管理 员 实 体 包括 编号 、 管 理 员 姓名 和 密码 信息 。 管 理 员 实体 E-R 图 如 图 4.8 所 示 。 

(2) 部 门 实体 

部 门 实体 包括 部 门 编号 、 部 门 名 称 、 备 注 信息 和 上 级 部 门 编号 。 部 门 实体 E-R 图 如 图 4.9 所 示 。 


CD (ean Cen) Gee 
姓名 
Cni) — 部 门 实体 LCase 


图 4.8 管理 员 实体 E-R 图 图 49 部 门 实体 E-R 图 


G) 员工 实体 
员工 实体 包括 自动 编号 、 员 工 编 号 、 员 工 姓 名 、 照 片 、 性 别 和 生日 等 信息 。 员 工 实 体 E-R 图 如 
图 4.10 所 示 。 











管理 员 
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(4) 考勤 实体 
考勤 实体 包括 人 员 姓 名 、 考 勤 日 期 、 上 班 时 间 、 下 班 时 间 、 上 班 考勤 时 间 和 下 班 考勤 时 间 等 信息 。 
考勤 实体 E-R 图 如 图 4.11 所 示 。 


上 班 考 
dol 下 班 考勤 
GD - a 


图 4.10 员工 实体 E-R 图 图 4.11 考勤 实体 E-R 图 
3. 数据 库 逻 辑 结构 设计 
本 例 使 用 的 是 SQL Server 2014 数据 库 , 根据 实体 E-R 图 创 























MRWXKAMRWXKtb p..n - dbo.tab User 





建 各 数据 表 ， 下 面 给 出 人 事 考勤 管理 系统 数据 库 中 主要 表 的 表 Bisa feikna fi 
结构 。 w— B 
(D) tab User (管理 员 信息 表 ) em B 
管理 员 信息 表 用 于 保存 管理 员 的 信息 ， 如 图 4.12 所 示 。 
(2) tab_Dept( 部 门 信息 表 ) MRWXIAMRWXK tb pn - dbo tab Dept 
部 门 信息 表 用 于 记录 部 门 的 信息 情况 ， 如 图 4.13 所 示 。 — iti 
(3) tab Employees〈 员 工 信 息 表 ) Mu 
员工 信息 表 用 于 保存 公司 员工 的 信息 ， 如 图 4.14 所 示 。 





(4) tab Check (考勤 信息 表 ) 图 4.13 tab Dept (部 门 信息 表 ) 
考勤 信息 表 用 于 记录 员工 每 天 的 考勤 信息 , 如 图 4.15 所 示 。 























MRWXKAMRWXK.tb ..bo.tab Employees: 
到 名 数据 类 型 允许 Nd 值 

bp AutolD int E] 

8 Emp Id Yarchar(50) E 
Emp. NAME varchar(50) El 
Photo ie g 
Sex char(2) vi 
Nationality varchar(40) gm MRWXKXMRWXK:tb ... - dbo tab Check. 
Birth varchar(20) 图 列 名 mim ftit Na (fl 
Political Party varchar(40) g » mmm it [ 
Culture Level varchar(40) gi $ name varchar(S0) 
Marital Condition. varchar(20) gm 9 ocheddate datetime 
Family Place. varchar(é0) g ondutytme datetime 
ld Card varchar(20) E] offdutytime datetime B 
Office phone. varchar(30) g ontime datetime [ 
Mobile varchar(30) A offtime datetime n 
Files Keep Org varchar(100) g leave varchar(S0) [4] 
Hou varcr(100) g oniesve datetime [ 
HreDate varchrzo) 回 afeave datetime B 
Dept int m latetime datetime n 
Duty varchar(40) g leaveearhy datetime 
Memo varchar(200) E] memo varchar(200) Eg 

4.14 tab Employees〈 员 工 信 息 表 ) 图 4.15 tab Check (考勤 信息 表 ) 
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4.4 公共 模块 设计 














本 系统 是 使 用 ADO 连接 数据 库 的， 为 了 能 便于 在 程序 中 使 用 ADO 建立 数据 库 连 
接 与 数据 表 的 操作 , 在 公共 类 中 对 系统 中 所 使 用 的 ADO 操作 进行 了 封装 。 在 该 系统 中 建立 了 ADO 的 两 个 
公共 类 CADOConnection 和 CADODataSet， 这 两 个 类 定义 在 ADO.h 头 文件 中 ， 实 现在 ADO.cpp 文件 中 。 
CADOConnection 类 是 用 来 连接 数据 库 的， 实现 了 对 _Connection 接口 的 封装 。CADOConneciton 
类 在 头 文件 中 的 定义 如 下 : 


// 载 入 msado15dll， 这 样 在 工程 中 就 不 必 再 载 入 了 
#import "msado15.dll" no namespace rename("EOF","adoEOF") 


class CADOConnection 

( 

private: 
static void InitADO(); /初始 化 ADO 
static void UnlnitADO(); 

protected: 
. ConnectionPtr m. Connection; /接口 指针 

public: 
BOOL IsOpen(); ITI Re ES HR E E 
. ConnectionPtr GetConnection(); // 获 取 连 接 接口 
CString GetSQLConStr(CString IP,CString DBName); // 获 取 SQL 连接 字符 串 
BOOL Open(CString ConStr); // 建 立 数据 库 连接 
CADOConnection(); 


virtual ~CADOConnection(); 


上 
CADOConnection * GetConnection(); // 获 取 全 局 连接 类 的 函数 


定义 两 个 全 局 变量 ConCount 和 g_Connection，ConCount 变量 是 一 个 整 型 变量 ， 用 来 记录 在 工程 
中 所 创建 的 CADOConnection 类 的 实例 个 数 。 在 构造 方法 中 ， 当 此 变量 为 0 时 调用 CoInitialize 函数 实 
现 OLE 的 初始 化 。 在 析 构 方法 中 ， 当 此 变量 为 0 时 调用 CoUninitialize 方法 取消 OLE 的 初始 化 。 


int ConCount = 0; 
CADOConnection g_Connection; // 全 局 数据 库 连接 对 象 


GetConnection 函数 是 一 个 全 局 函数 ， 用 于 返回 全 局 数据 库 连接 对 象 的 指针 ， 实 现代 码 如 下 : 


CADOConnection * GetConnection() 


{ 
return &g_Connection; 
) 


CADOConnection 方法 是 构造 函数 ， 用 于 初始 化 OLE 和 创建 _ Connection 接口 的 指针 实例 ， 实 现代 
码 如 下 : 
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CADOConnection::CADOConnection() 


InitADO(); 
m_Connection.Createlnstance("ADODB.Connection ); 
) 





-CADOConnection 方法 是 析 构 函数 ， 用 于 取消 OLE 的 初始 化 和 放 入 _Connection 接口 指针 ， 实 现 
代码 如 下 : 


CADOConnection::~CADOConnection() 


if (lsOpen() 
m Connection-»Close(); 
m Connection = NULL; 
UninitADO(); 
) 


InitADO 方法 是 一 个 静态 方法 ， 用 于 初始 化 OLE， 实 现代 码 如 下 : 


void CADOConnection::InitADO() 
{ 
if (ConCounte* == 0) 
Colnitialize(NULL); 
E 





UnInitADO 方法 是 一 个 静态 方法 ， 用 于 取消 OLE 的 初始 化 ， 实 现代 码 如 下 : 





void CADOConnection::UnlnitADO() 
{ 
if (--ConCount == 0) 
CoUninitialize(); 
X 


Open 方法 通过 指定 的 数据 库 连 接 字 符 串 与 SQL 数据 库 建 立 连 接 ， 实 现代 码 如 下 : 
BOOL CADOConnection::Open(CString ConStr) 


if (lsOpen() 
m Connection-»Close(); 
m Connection-»Open(( bstr. t)ConStr,""," adModeUnknown); 
return IsOpen(); 
} 


GetSQLConStr 方法 用 来 生成 与 数据 库 连接 所 需要 的 连接 字符 串 ， 实 现代 码 如 下 : 





CString CADOConnection::GetSQLConStr(CString IP, CString DBName) 
{ 

CString Str; 

Str.Format("Provider=SQLOLEDB.1;Persist Security Info=False;\ 
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User ID-sa;lnitial Catalog=%s;Data Source=%s",DBName, IP); 
return Str; 
) 





GetConnection 方法 用 于 返回 _Connection 接口 指针 ， 实 现代 码 如 下 : 


_ConnectionPtr CADOConnection::GetConnection() 
{ 
return m Connection; 


) 
IsOpen 方法 用 来 判断 当前 数据 库 连 接 对 象 与 数据 库 的 连接 状态 ， 实 现代 码 如 下 : 


BOOL CADOConnection::IsOpen() 
{ 
long State; 
m Connection-»get State(&State); 
if (State == adStateOpen) 
return true; 
return false; 


l 





CADODataSet 类 用 来 存储 数据 的 数据 集 类 ， 该 类 实现 了 _Recordset 接口 的 实例 。 该 类 在 头 文件 中 
的 定义 如 下 : 





class CADODataSet 
{ 
protected: 
. RecordsetPtr m DataSet; /数据 集 接口 指针 
CADOConnection *m_Connection; /数据 库 连 接 类 对 象 
public: 
void Delete(); // 记 录 删 除 
int GetRecordNo(); /获取 记录 集 行 号 
void move(int nIndex); /移动 记录 指针 
void Save(); /保存 对 记录 集 的 修改 
void SetFieldValue(CString FieldName, variant t Value); IREF 
void AddNew(); /添加 新 记录 
BOOL Next(); /记录 集 指针 指向 下 一 条 记录 
FieldsPtr GetFields(); // 获 取 记 录 集 字段 集合 
int GetRecordCount(); // 获 取 记 录 集 中 记录 数量 
void SetConnection(CADOConnection *pCon); // 设 置 记 录 集 的 数据 库 连接 对 象 
BOOL Open(CString SQLStr); /打开 记录 集 
CADODataSet(); 
virtual - CADODataSet(); 
private: 
BOOL IsOpen(); // 判 断 记 录 集 是 否 打 开 
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CADODataSet 方法 为 记录 集 实 现 类 的 构造 方法 ， 在 该 方法 中 实现 记录 集 接口 对 象 的 创建 ， 实 现代 
码 如 下 : 
CADODataSet::CADODataSet() 


m DataSet.Createlnstance("ADODB.Recordset"); 
) 


CADODataSet 类 为 记录 集 实现 类 的 析 构 方法 ， 在 该 方法 中 实现 记录 集 的 关闭 与 接口 的 释放 ， 实 现 
代码 如 下 : 


CADODataSet::~CADODataSet() 


if (IsOpen()) 
m_DataSet->Close(); 
m_DataSet = NULL; 
m Connection = NULL; 
) 


SetConnection 方法 用 来 设置 记录 集 所 连接 的 数据 库 连 接 类 的 对 象 ， 实 现代 码 如 下 : 


void CADODataSet::SetConnection(CADOConnection *pCon) 
{ 








m_Connection = pCon; 


} 
GetRecordCount 方法 用 来 获取 记录 集中 数据 的 数量 ， 实 现代 码 如 下 : 


int CADODataSet::GetRecordCount() 








if (IsOpen()) 

return m DataSet-»GetRecordCount(); 
else 

return 0; 


J 
Open 方法 通过 SQL 查询 语句 打开 数据 集 ， 实 现代 码 如 下 : 


BOOL CADODataSet::Open(CString SQLStr) 





if (IsOpen()) 
m_DataSet->Close(); 
m DataSet-»Open( bstr t(SQLStr), 
. variant t((IDispatch*)g Connection.GetConnection(), true), 
adOpenKeyset, adLockUnspecified, adCmdText); 
return IsOpen(); 
) 


IsOpen 方法 用 来 判断 数据 集 是 否 处 于 打开 状态 ， 实 现代 码 如 下 : 





118 


第 4 章 人 事 考 勤 管理 系统 (Visual C++ 6.0-SQL Server 2014 实现 ) 





BOOL CADODataSet::IsOpen() 
( 
long State; 
m DataSet-»get State(&State); 
if (State == adStateOpen) 
return true; 


return false; 


) 
GetFields 方法 用 来 获取 记录 集中 字段 的 集合 ， 实 现代 码 如 下 : 


FieldsPtr CADODataSet::GetFields() 


t 
return m DataSet-»GetFields(); 


) 
Next 方法 将 记录 集 指针 下 移 一 位 ， 实 现代 码 如 下 : 
BOOL CADODataSet::Next() 


if (m DataSet-»adoEOF) 
return false; 
m DataSet-»MoveNext(); 
return true; 
) 





AddNew 方法 用 于 向 记录 集中 添加 一 个 新 行 ， 实 现代 码 如 下 : 


void CADODataSet::AddNew() 


t 
m DataSet-»AddNew(); 


) 
SetFieldValue 方法 用 来 向 记录 集中 指定 的 字段 赋值 ， 实 现代 码 如 下 : 
void CADODataSet::SetFieldValue(CString FieldName, variant t Value) 
{ 
m_DataSet->PutCollect((_bstr_t)FieldName,Value); 
} 


Save 方法 用 来 保存 对 记录 集中 数据 所 做 的 更 改 ， 实 现代 码 如 下 : 





void CADODataSet::Save() 
{ 

m DataSet-»Update(); 
) 





Move 方法 将 记录 集 的 当前 指针 移动 到 指定 的 索引 位 置 ， 实 现代 码 如 下 : 
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void CADODataSet::move(int nIndex) 
{ 
m_DataSet->MoveFirst(); 
m_DataSet->Move(nIndex); 
) 





GetRecordNo 方法 用 来 获取 记录 集中 的 当前 行 号 ， 实 现代 码 如 下 : 


int CADODataSet::GetRecordNo() 


£ 
return m_DataSet->AbsolutePosition; 


) 
Delete 方法 用 来 删除 记录 集中 的 当前 行 ， 实 现代 码 如 下 : 
void CADODataSet::Delete() 


m DataSet-»Delete(adAffectCurrent); 


45 主 窗 体 设 计 





人 事 考勤 管理 系统 主 窗 体 由 菜单 和 客户 区 域 组 成 ， 其 中 ， 客 户 区 域 显示 了 一 幅 位 图 ， 主 窗 体 效 果 
如 图 4.16 所 示 。 





图 4.16 人 事 考勤 管理 系统 的 主 窗 体 


主 窗 体 设计 步骤 如 下 : 
(1) 启动 Visual C++ 6.0， 选 择 File 一 New 命令 ， 打 开 New 对 话 框 。 在 New 对 话 框 左 侧 的 列表 视图 中 


(m, 
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选择 MFC AppWizard[exe] 选 项 ， 在 Project name 文本 框 中 输入 工程 名 称 ， 在 Location 文本 框 中 设置 工 
程 保存 的 路 径 ， 如 图 4.17 所 示 。 


New 





Files Projects | Workspaces | Other Documents 








[3 ATL COM AppWizard Project name: 
Cluster Resource Type Wizard Besn o 
Custom AppWizard 
Database Project 
DevSrudio Add-in Wizard Lae 
Extended Stored Proc Wizard FADOMEMPerson ac] 
ISAPI Extension Wizard 
Maketile. 
MFC ActiveX ControlWizard. 
MEC AppWizard [dil] Create new workspace. 
MFC AppWizard {oc} C Add to current workspace 
ee F Dependency of 
ft1 Utility Project 
Win32 Application [Person — i 
win32 Console Application. 
|Win32 DynamicLink Library 
5| Win3? Static Library 


Platforms: 


Wina? 






































图 4.17 New 对 话 框 


(2) 单 击 OK 按钮 ， 进 入 MFC AppWizard-Stepl 对 话 框 ， 选 中 Dialog based 单 选 按钮 ， 如 图 4.18 
所 示 。 

G) 单 击 Finish 按钮 完成 工程 的 创建 。 

(4). 在 工作 区 窗口 的 ResourceView 视图 中 的 节点 处 右 击 ， 在 弹出 的 快捷 菜单 中 选择 Insert 命令 ， 
弹出 Insert Resource 对 话 框 ， 如 图 4.19 所 示 。 
MFC AppWizard - Step 1 EN 
sd What type of application would you like to create? 


C Single document 
d C Multiple documents. AM 
l peeo HEN 
G Dialog based 


pu T UNI E DocumentView archltecture support? 


Exc | 
ea] 








F 
E 





E Bitmap Import... 





D P = E Dialog Custom... 
What language would you like your resources in? HTML 





Cancel 








中 文 [简体 ， 中 国 ] APPWZCHS.DLU = Ei Menu 


iis String Table 
33 Toolbar 
£3 Version 















































< Back Enish | Cancel 





4.18 MFC AppWizard-Stepl 对 话 框 4.19. Insert Resource 对 话 框 


(5) 选择 Menu 选项 ， 单 击 New 按钮 创建 菜单 资源 ， 在 ResourceView 视图 中 双击 新 创建 的 菜单 
资源 ， 编 辑 菜单 资源 ， 代 码 如 下 : 
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IDR_MAINMENU MENU DISCARDABLE 
BEGIN 
POPUP "系统 设置 " 
BEGIN 
MENUITEM "用 户 管理 ", ID_MENUUSER 
MENUITEM "修改 密码 ", ID_MENUPASSWORD 
MENUITEM SEPARATOR 
MENUITEM "系统 退出 " ID_MENUEXIT 


END 
POPUP "基本 信息 管理 " 
BEGIN 
MENUITEM "部 门 管理 ", ID MENUDEPT 
MENUITEM "人 员 信 息 管理 ", ID MENUPERSON 
END 
POPUP "员工 考勤 管理 " 
BEGIN 
MENUITEM "考勤 管理 ", ID_MENUCHECK 
MENUITEM "考勤 汇总 查询 ", ID_MENUCHECKSUM 
END 
END 








4.6 用 户 登 录 模 块 设计 


KL M 
4.6.1 用 户 登录 模块 概述 


用 户 登 录 模 块 是 所 有 管理 系统 所 应 具备 的 基础 模块 之 一 ， 该 模块 实现 了 用 户 登录 系统 时 的 检验 功 


能 , 使 没有 权限 的 用 户 不 能 使 用 该 系统 , 增加 了 系统 的 安全 性 。“ 登 
录 ” 界 面 如 图 4.20 所 示 。 


4.6.2 用 户 登 录 模 块 技术 分 析 


用 户 登 录 窗 体 是 整个 系统 中 创建 并 显示 的 第 一 个 窗 体 , 所 以 该 
窗 体 应 在 主 窗 体 创建 前 创建 并 显示 。 在 用 户 登 录 窗 体 创建 的 同时 应 图 420 “登录 ”界面 
该 创建 数据 库 连 接 。 这 些 操作 都 应 在 应 用 程序 类 的 初始 化 方法 中 实 
现 ， 该 方法 名 为 InitInstance， 代 码 如 下 : 


BOOL CPersonApp::InitInstance() 














AfxEnableControlContainer(); 
#ifdef AFXDLL 
Enable3dControls(); 
#else 
Enable3dControlsStatic(); 


(m 
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#endif 
LoadSkin(); 
/创建 全 局 数据 库 连接 
BOOL bCon = GetConnection()->Open(GetConnection()->GetSQLConStr("127.0.0.1","tb_person")); 
CLoginDialog logindlg; /定义 登录 窗 体 对 象 
if (logindlg.DoModal() = IDOK) /显示 登录 窗 体 
return false; 
CPersonDlg dig; /定义 应 用 程序 主 窗 体 
m pMainWnd = &dlg; 
int nResponse = dlg.DoModal(); /显示 主 窗 体 


if (nResponse == IDOK) 

t 

) 

else if (nResponse == IDCANCEL) 
{ 


) 
return FALSE; 





4.6.3 用 户 登 录 模 块 实现 过 程 


国 本 模块 使 用 的 数据 表 : tab User 


COD 创建 一 个 对 话 框 ， 打 开 对 话 框 属性 窗口 ， 将 对 话 框 的 ID 改 为 IDD_DLGLOGIN, 将 对 话 框 标 


题 改 为 “登录 ”。 


(2) 向 对 话 框 中 添加 两 个 静态 文本 控件 、 一 个 编辑 框 控件 、 一 个 下 拉 列 表 框 控件 和 两 个 按钮 控件 。 


分 别 设置 两 个 静态 文本 控件 的 Caption 属性 为 “用 户 名 : ”和 “密码 : ”， 设 置 编 辑 框 控件 的 类 型 为 
password， 分 别 设 置 两 个 按钮 控件 的 Caption 属性 为 “确定 ”和 “取消 ”。 


(3) 在 窗 体 的 初始 化 方法 中 创建 用 户 表 的 数据 集 ， 并 将 用 户 名 添加 到 下 拉 列表 框 控件 中 ， 代 码 如 下 ; 





BOOL CLoginDialog::OnlnitDialog() 


( 


} 


CDialog::OnlnitDialog(); 


m DataSet.SetConnection(GetConnection()); // 设 置 数 据 集 连 接 的 数据 库 连 接 对 象 
m_DataSet.Open("Select * From Tab, User"); /打开 用 户 表 

int count = m. DataSet.GetRecordCount(); // 获 取 用 户 数量 

for (int i = 0; i< count'i++) 

// 将 用 户 名 添加 到 下 拉 列 表 框 控件 中 
m_UserList.AddString((_bstr_t)m_DataSet.GetFields()->ltem[L"UserName"]->Value); 
m_DataSet.Next(); /记录 下 移 

} 
m_UserList.SetCurSel(0); /设置 第 一 个 用 户 为 当前 用 户 


return TRUE; 





(4) 在 “确定 ”按钮 的 事件 中 实现 用 户 名 和 密码 的 验证 ， 代 码 如 下 : 
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void CLoginDialog::OnLogin() 
CString sql,user,pass; 


m UserList.GetWindowText(user); /获取 用 户 名 
m_PassWord.GetWindowText(pass); /获取 密码 
@sql.Format("Select * From tab User Where UserName = '%s' and PassWord = '%s", 

user,pass); /生成 SQL 查询 语句 
m DataSet.Open(sql); /打开 数据 库 


if (m DataSet.GetRecordCount() == 1) 


z:SetUserName(user); /设置 当前 用 户 
€  this--OnOK(); 
) 


else 
AfxMessageBox(" 用 户 名 或 密码 不 正确 ! "); 
ENDE: 


«M ean 
O Format 方法 : 用 于 格式 化 字符 囊 。 
@ OnOK 方法 : 用 于 关闭 当前 窗口 。 





4.7 用 户 管理 模块 设计 


47.4 ”用户 管 理 模块 概述 


用 户 管理 模块 实现 了 对 系统 登录 用 户 的 添加 、 修 改 和 删 
除 操作 ， 运 行 效果 如 图 4.21 所 示 。 


47.2 用 户 管理 模块 技术 分 析 


在 用 户 管理 模块 中 使 用 CListctrl 控件 显示 用 户 信息 , 当 
对 某 一 记录 进行 编辑 或 删除 操作 时 必须 获取 一 个 与 记录 对 应 
的 标识 ， 所 以 在 对 用 户 列 表 进行 添加 时 利用 列表 视图 控件 的 
SetltemData 方法 将 记录 集 对 应 的 行 号 添加 到 每 一 行 对 应 的 图 421 用 户 管理 模块 的 运行 效果 
数据 中 。 当 对 记录 进行 修改 时 就 可 以 通过 获取 对 应 的 行 号 对 
数据 集中 的 数据 进行 修改 。 获 取 数 据 时 使 用 列表 视图 控件 中 的 GetttemData 方法 。 

(1) SetttemData 方法 用 于 设置 与 指定 项 相关 的 32 位 应 用 指定 的 值 ， 语 法 如 下 : 


BOOL SetltemData(int nltem,DWORD dwData) 


E] ntem: 要 设 定数 据 的 列表 项 的 索引 。 
加 ”dwData: 与 指定 项 相关 联 的 32 位 值 。 
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(2) GetItemData 方法 用 于 获取 与 指定 项 相关 的 32 位 应 用 指定 的 值 ， 语 法 如 下 : 
DWORD GetltemData(int nltem) const 


回 ntem: 要 获取 数据 的 列表 项 的 索引 值 。 
4.7.3 用 户 管理 模块 实现 过 程 


E] 本 模块 使 用 的 数据 表 : tab User 


(1) 创建 一 个 对 话 框 ， 打 开 对 话 框 属 性 窗口 ， 将 对 话 框 的 ID 改 为 IDD_DLGUSER， 将 对 话 框 标 
题 改 为 “用 户 管理 ”。 


(2) 向 对 话 框 中 添加 一 个 列表 控件 和 4 个 按钮 控件 ， 各 控件 的 属性 设置 如 表 4.1 所 示 。 


表 4.1 控件 资源 设置 
控件 D 对 应 变量 
IDC LISTGRID ClisiCtd m grid 
IDC APPEND X 
IDC EDIT X 
IDC DELETE X 
IDCANCEL X 





(3) 定义 UpdateGrid 方法 ， 用 来 更 新 列表 中 显示 的 用 户 信息 ， 实 现代 码 如 下 ， 
void CUserManage::UpdateGrid() 








m DataSet.Open('Select * From tab User"); /打开 用 户 表 
€ m gridDeleteAllltems(); /清空 列表 中 的 全 部 记录 
for (inti = 0; i < m_DataSet.GetRecordCount();i++) // 循 环 记 录 集 
{ 
/向 列表 视图 中 插入 用 户 信息 
e m grid.Insertltem(i,( bstr t)m DataSet.GetFields()-»Item[L"UserName"]-» Value); 
int no = m DataSet.GetRecordNo(); // 获 取 当 前 记录 集 行 号 
m grid.SetltemData(i,no); /存储 列表 中 的 项 对 应 的 行 号 
m  DataSet.Next(); // 行 下 移 
) 
) 
Mru 


@ DeleteAllItems 方法 : 用 于 删除 当前 列表 控件 中 所 有 的 列表 项 。 
@ InsertItem 方法 : 用 于 向 列表 控件 中 插入 列表 项 。 


(4) 向 对 话 框 中 添加 OnInitDialog 方法 ， 在 对 话 框 的 初始 化 方法 中 添加 列表 控件 应 显示 的 列 头 ， 
并 向 列表 控件 中 添加 数据 ， 代 码 如 下 : 


BOOL CUserManage::OnlnitDialog() 
{ 
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CDialog::OnlnitDialog(); 
m  grid.SetExtendedStyle(LVS. EX FULLROWSELECT|LVS EX GRIDLINES); /列表 控件 样式 


m grid.InsertColumn(0,"FB P$"); D 3 

m grid.SetColumnWidth(0, 150); IRENE 
m_DataSet.SetConnection(::GetConnection()); // 设 置 数据 集 的 数据 库 连 接 对 象 
UpdateGrid(); // 向 列表 控件 中 添加 数据 

return TRUE; 


} 


(5) 在 “添加 ”按钮 的 事件 中 弹出 “用 户 编辑 ” 窗 体 ， 输 入 用 户 名 后 单 击 “确定 ”按钮 ， 实 现 对 
用 户 的 添加 ， 代 码 如 下 : 


void CUserManage::OnAppend() 


CUserEdit useredit; /定义 “用 户 编辑 ” 窗 体 
if (useredit.DoModal() == IDOK) /显示 “用 户 编辑 ” 窗 体 
{ 
m_DataSet.AddNew(); /数据 集 添加 行 
m DataSet SetFieldValue("UserName",( bstr tJusereditname); /设置 用 户 名 字段 的 值 为 新 用 户 
m DataSet .Save(); /保存 数据 集 
UpdateGrid(); // 更 新 列表 控件 中 的 数据 


} 


(6) 在 “修改 ”按钮 的 事件 中 弹出 “用 户 编辑 ” 窗 体 ， 输 入 用 户 名 后 单 击 “ 确 定 ” 按 钮 ， 实 现 对 
用 户 的 修改 ， 代 码 如 下 : 


void CUserManage::OnEdit() 
{ 








CUserEdit useredit; I| “用 户 编辑 ” 窗 体 
int no = m grid.GetltemData(m grid.GetSelectionMark()); // 获 取 当 前 行 记录 行 号 
m DataSet.move(no-1); /记录 集 指 向 指定 行 
useredit.name = (char *)( bstr t)m DataSet.GetFields()-»Item[L"UserName"]-» Value;//2& BA FB P354 
if (useredit DoModal() == IDOK) /显示 “用 户 编辑 ” 窗 体 
m DataSet.SetFieldValue("UserName",( bstr tJusereditname); /设置 新 的 用 户 名 
m DataSet.Save(); /保存 数据 
UpdateGrid(); /更 新 列表 


) 
CD 在 “删除 ”按钮 的 单 击 事件 中 获取 当前 记录 进行 删除 操作 ， 代 码 如 下 : 


void CUserManage::OnDelete() 


{ 
if (MessageBox(" 是 否 删 除 此 记录 !"," 提 示 "， 
MB_YESNOIMB_ICONWARNING) == IDYES) 
{ 


(m 
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int no = m grid.GetltemData(m grid.GetSelectionMark()); /获取 记录 集 行 号 


m DataSet.move(no-1); // 移 到 指定 行 
m_DataSet.Delete(); /删除 

m DataSet.Save(); /保存 
UpdateGrid(); /更 新 列表 





474 单元 测试 


在 测试 用 户 管理 模块 时 ， 曾 出 现 这 样 的 问题 : 用 户 在 操作 中 不 小 心 将 所 有 的 用 户 全 部 删除 了 ， 却 
没有 创建 新 的 用 户 ， 导 致 在 下 次 登录 时 无 法 登录 ， 下 面 来 看 一 下 原始 的 删除 代码 。 


void CUserManage::OnDelete() 
( 
if (MessageBox(" 是 否 删除 此 记录 ! "," 提 示 "， 
MB YESNO|MB ICONWARNING) == IDYES) /弹出 消息 提示 
{ 
/删除 用 户 所 选中 的 用 户 信息 
int no = m grid.GetltemData(m grid.GetSelectionMark()); 
m DataSet.move(no-1); 
m DataSet Delete(); 
m DataSet.Save(); 
UpdateGrid(); 


} 


为 了 解决 上 述 问题 ， 可 以 设置 一 个 超级 用 户 ， 用 户 名 为 mr， 当 要 删除 该 用 户 时 ， 提 示 不 能 删除 ， 
代码 如 下 : 


void CUserManage::OnDelete() 
{ 





int pos = m_grid.GetSelectionMark(); // 获 得 当前 选中 项 索引 
if (pos != -1) 
( 

CString name = m grid.GetltemText(pos,0); // 获 得 当前 选中 项 文本 


if (name != "mr") 


if (MessageBox(" 是 否 删除 此 记录 !"," 提 示 "， 
MB_YESNOIMB_ICONWARNING) == IDYES) 

{ 
int no = m grid.GetltemData(m grid.GetSelectionMark()); 
m DataSet.move(no-1); 
m DataSet.Delete(); 
m DataSet.Save(); 
UpdateGrid(); 
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else 


MessageBox(" 该 用 户 不 能 删除 ! "); 


return; 





48 部 门 管理 模块 设计 


RATIS 
4.8.1. 部 门 管理 模块 概述 


部 门 管理 模块 记录 了 部 门 间 的 层次 结构 和 部 门 信息 ， 所 以 通常 部 门 管理 窗 体 中 对 于 部 门 信息 是 使 
用 树 列表 显示 的 。 部 门 管理 模块 的 运行 效果 如 图 4.2 所 示 。 


4.8.2 ”部 门 管理 模块 技术 分 析 


由 于 部 门 通常 都 是 存在 层次 级 别 的 ， 所 以 在 设计 数据 表 结构 时 应 至 少 创建 3 个 字段 : “编号 ”“ 父 
编号 ”“ 名 称 ”。 而 在 程序 中 显示 部 门 信息 时 ， 也 是 根据 “ 父 编号 ”作为 查询 条 件 不 断 查找 下 一 级 部 
门 的 。 

在 本 系统 中 ， 由 于 部 门 信息 通常 不 会 太 多 ， 所 以 可 以 用 嵌 套 的 方式 将 部 门 信息 一 次 性 读 入 树 列表 
视图 控件 中 ， 实 现代 码 如 下 


void CDeptManage::GetNode(HTREEITEM pNode,int nPid) 
{ 





HTREEITEM node; 

CADODataSet DataSet; /定义 记录 集 
DataSet.SetConnection(::GetConnection()); /设置 数据 库 连 接 对 象 
CString str; 

str.Format("Select * From tab Dept where pid = %d",nPid); /查询 语句 
DataSet.Open(str); // 打 开 记录 集 

int count = DataSet.GetRecordCount(); // 获 取 记 录 数 量 

int ID; 


variant t value; 
for (int i = 0;i<count;i++) 
t 
node = m tree.Insertltem(( bstr. t)DataSet GetFields()--Item['DeptName"]-»Value,pNode); // 部 门 名 称 
value = ( variant t)DataSet.GetFields()-^Item['ID"]-» Value; — // 编 号 
ID = value.intVal; 
m tree.SetltemData(node,ID); // 与 节点 关联 
GetNode(node,ID); /获取 子 节点 





e. 
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DataSet.Next(); /记录 下 移 





4.8.3 部 门 管理 模块 实现 过 程 


E] 本 模块 使 用 的 数据 表 : tab Dept 
(1) 创建 一 个 对 话 框 ， 打 开 对 话 框 属 性 窗口 ， 将 对 话 框 的 ID 改 为 IDD_DLGDEPT， 将 对 话 框 标 
题 改 为 “部 门 管理 ”。 
(2) 向 对 话 框 中 添加 一 个 树 形 视图 控件 和 4 个 按钮 控件 ， 各 控件 的 属性 设置 如 表 4.2 所 示 。 


表 4.2 控件 资源 设置 
控件 吕 对 应 变量 
IDC TREEDEPT CTreeCul m tee 
IDC APPEND x 
IDC EDIT X 
IDC DELETE x 





IDCANCEL Caption: 关闭 无 


(3) 定义 GetNode 方法 用 来 按 层 级 关系 获取 部 门 表 中 的 所 有 数据 ， 并 添加 到 树 形 视图 控件 中 。 该 
方法 由 UpdateDept 方法 进行 调用 ， 代 码 如 下 : 


void CDeptManage::UpdateDept() 
€ 





m_tree.DeleteAllltems(); /清空 树 列表 中 的 所 有 数据 
GetNode(TVI ROOT,0); /| 生成 树 列表 


} 


void CDeptManage::GetNode(HTREEITEM pNode,int nPid) 
{ 


HTREEITEM node; 

CADODataSet DataSet; /定义 记录 集 
DataSet.SetConnection(::GetConnection()); IRR FE EE SR 
CString str; 

str.Format("Select * From tab Dept where pid = 96d",nPid); /查询 语句 
DataSet.Open(str); /打开 记录 集 

int count = DataSet.GetRecordCount(); /获取 记录 数量 

int ID; 


variant t value; 

for (int i = 0;i<count'i++) 

t 
node = m tree.Insertltem(( bstr t)DataSet.GetFields()--Item['DeptName"]-» Value, pNode);//88j TAER 
value = (. variant, t)DataSet.GetFields()-^Item['ID"I-» Value; ” // 编 号 
ID = value.intVal; 
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m tree.SetltemData(node,ID); 
GetNode(node,ID); 
DataSet.Next(); 


} 


// 与 节点 关联 
// 获 取 子 节点 
/记录 下 移 





(4) 当 单 击 “ 添 加 ”按钮 时 将 弹出 “部 门 编辑 ” 窗 体 ， 输 入 部 门 信息 后 单 击 “ 确 定 ”按钮 将 添加 


一 个 新 的 部 门 ， 代 码 如 下 : 
void CDeptManage::OnAdd() 


CDeptEdit deptedit; 
if (deptedit.DoModal() == IDOK) 
f 


HTREEITEM pNode = m_tree.GetSelectedltem(); 


int pID; 
if (deptedit.isroot) 

pID = 0; 
else 

pID = m tree.GetltemData(pNode); 
CADODataSet dataset; 
dataset.SetConnection(::GetConnection()); 


dataset .Open("Select top 1 * From tab Dept"); 


dataset.AddNew(); 


dataset.SetFieldValue("DeptName",( variant t)deptedit.name); 
dataset.SetFieldValue("memo",( variant t)deptedit.memo); 


dataset.SetFieldValue("PID",(long)pID); 
dataset.Save(); 
UpdateDept(); 


) 


1| “部 门 编辑 ” 窗 体 
/显示 “部 门 编辑 ” 窗 体 


// 获 取 选 中 节点 
// 根 节点 


// 子 节点 

/定义 记录 集 

// 设 置 数据 库 连 接 对 象 
/打开 记 录 集 
/添加 新 记录 

// 部 门 名 称 

// 备 注 

// 父 编号 

/保存 

// 更 新 树 列表 





G) 当 单 击 “ 修 改 ” 按 钮 时 将 弹出 “部 门 编辑 ” 窗 体 ， 输 入 部 门 信息 后 单 击 “ 确 定 ”按钮 将 添加 


一 个 新 的 部 门 ， 代 码 如 下 : 


void CDeptManage::OnEdit() 


{ 
CDeptEdit deptedit; 
deptedit.visible = false; 


HTREEITEM pNode = m tree.GetSelectedltem(); 


if (pNode == 0) 
return; 

int plD = m tree.GetltemData(pNode); 

CADODataSet dataset; 

dataset.SetConnection(::GetConnection()); 

CString str; 


str.Format("Select * From tab Dept where id = 96d", pID); 


dataset.Open(str); 
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/ “部 门 编辑 ” 窗 体 
/获取 选中 节点 
/获取 节点 对 应 的 编号 
/定义 记录 集 

/设置 数据 库 连 接 


/生成 查询 语句 
/打开 记录 集 
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deptedit.name = (char *)(_bstr_t)dataset.GetFields()->ltem[L"DeptName"]->Value; ”// 部 门 名 称 
deptedit.memo = (char *)(_bstr_t)dataset.GetFields()->ltem["memo"]->Value; /备注 


if (deptedit.DoModal() == IDOK) // 显 示 “ 部 门 编辑 ” 窗 体 
{ 
dataset.SetFieldValue("DeptName",(_variant_t)deptedit.name); /| 部门 名 称 
dataset.SetFieldValue("memo",(_variant_t)deptedit.memo); /备注 
dataset.Save(); /保存 
UpdateDept(); /更 新 树 列表 


) 
(6) 当 单 击 “ 删 除 ”按钮 时 将 删除 当前 选中 的 节点 ， 代 码 如 下 : 
void CDeptManage::OnDelete() 


HTREEITEM pNode = m_tree.GetSelectedltem(); // 获 取 选 中 节点 
if (pNode == 0) 
return; 
if (MessageBox(" 是 否 删 除 此 记录 !"," 提 示 "， 
MB_YESNOIMB_ICONWARNING) == IDYES) 
{ 


int plD = m_tree.GetltemData(pNode); // 获 取 节 点 对 应 编号 
CADODataSet dataset; // 定 义 记录 集 
dataset.SetConnection(::GetConnection()); // 设 置 数据 库 连 接 
CString str; 

str.Format("Select * From tab Dept where id = 96d" pID); // 生 成 查询 语句 
dataset.Open(str); // 打 开 记 录 集 
dataset.Delete(); /删除 记录 
dataset.Save(); IRE 
UpdateDept(); // 更 新 树 列表 





49 ”人员 信 息 管理 模块 设计 





49.1 人 员 信 息 管理 模块 概述 


人 员 信息 管理 模块 根据 部 门 信息 分 类 显示 ， 同 时 可 对 人 员 信 息 进行 维护 ， 人 员 信 息 管理 模块 的 运 
行 效果 如 图 4.3 所 示 。 


492 ”人 员 信 息 管理 模块 技术 分 析 


在 “人 员 信 息 管理 ”界面 中 可 以 看 到 ， 窗 体 的 左 侧 是 部 门 信息 ， 右 侧 是 人 员 信 息 。 当 选中 某 一 部 
门 信息 分 类 时 ， 右 侧 的 人 员 信息 会 根据 选中 的 部 门 进行 人 员 信息 的 分 类 显示 。 这 一 操作 主要 是 通过 树 
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形 视图 控件 中 的 OnSelchanged 事件 完成 的 ， 当 树 列表 中 的 选中 节点 发 生 改变 时 就 会 触发 该 事件 ， 代 码 
如 下 : 


void CPersonManage::OnSelchangedTreedept(NMHDR* pNMHDR, LRESULT* pResult) 
{ 


NM TREEVIEW* pNMTreeView = (NM_TREEVIEW*)pNMHDR; 1/ 获 取 树 列表 结构 信息 
m DeptlD = m_tree.GetltemData(pNMTreeView->itemNew.hltem); // 获 取 部 门 编号 
UpdatePerson(); /更 新 人 员 信 息 
*pResult = 0; 


493 人员 信 息 管理 模块 实现 过 程 


国 ” 本 模块 使 用 的 数据 表 : tab Dept. tab Employees 
COD 创建 一 个 对 话 框 ， 打 开 对 话 框 属性 窗口 ， 将 对 话 框 的 ID 改 为 DD_DLGPERSON， 标题 改 为 
“人 员 信 息 管理 ”。 
(2) 向 对 话 框 中 添加 两 个 群 组 控件 、 一 个 树 形 视图 控件 、 一 个 列表 控件 和 4 个 按钮 控件 ， 各 控件 
的 属性 设置 如 表 4.3 所 示 。 


X43 ”控件 资源 设置 


控件 ID 对 应 变量 
IDC_LISTPERSON ClistCtl m list 
IDC TREEDEPT ClreCm| m tee 
IDC APPEND 无 
IDC EDIT 无 
IDC DELETE 无 
IDCANCEL 无 


(3 ) 添 加 GetNode 方法 获取 部 门 表 中 的 数据 信息 , 并 添加 到 树 形 视图 控件 中 。 该 方法 由 UpdateDept 
方法 调用 ， 代 码 如 下 : 


void CDeptManage::UpdateDept() 
t 





m tree.DeleteAllltems(); // 清 空 树 列表 中 的 所 有 数据 
GetNode(TVI ROOT,0); /生成 树 列表 
} 


void CDeptManage::GetNode(HTREEITEM pNode,int nPid) 
{ 


HTREEITEM node; 

CADODataSet DataSet; /定义 记录 集 
DataSet.SetConnection(::GetConnection()); // 设 置 数据 库 连 接 对 象 
CString str; 

str.Format("Select * From tab Dept where pid = %d",nPid); /查询 语句 
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DataSet. Open(str); /打开 记录 集 
int count = DataSet.GetRecordCount(); /获取 记录 数量 
int ID; 


variant, t value; 
for (int i = 0;i<count;i++) 


t 
node = m tree.Insertitem(( bstr t)DataSet GetFields()-»Item['DeptName"]-» Value,pNode);//&Bi JFR 
value = ( variant t)DataSet.GetFields()-»Item['ID"]-7 Value; /编号 
ID = value.intVal; 
m tree.SetltemData(node,ID); /与 节点 关联 
GetNode(node,ID); ITHRBUTAS ja 
DataSet.Next(); /记录 下 移 

) 


(4). 定义 UpdatePerson 方法 用 来 更 新 人 员 信息 ， 将 其 显示 在 列表 控件 中 ， 代 码 如 下 : 





void CPersonManage::UpdatePerson() 


{ 


m list.DeleteAllitems(); /清空 列表 中 的 数据 
CADODataSet DataSet; /定义 记录 集 
DataSet.SetConnection(::GetConnection()); // 设 置 数 据 库 连接 对 象 
CString str; 
if (m, DeptlD == -1) 
str.Format("Select * From tab Employees"); /显示 所 有 人 员 信息 
else 
str.Format("Select * From tab. Employees where Dept = %d",m_DeptID);// 显 示 指定 部 门 的 人 员 信 息 
DataSet.Open(str); // 打 开 记录 集 
int count = DataSet.GetRecordCount(); // 获 取 记 录 集 记录 数量 
intn=0; 
_variant_t value; 
for (int i = 0;i<count'i++) /循环 记录 集 
{ 
int index = 1; 
m list.Insertltem(n,( bstr t)DataSet.GetFields()-»Item['Emp. Id"]-»Value);// A RRS 
value = DataSet.GetFields()-»Item["AutoID"]-» Value; IARRAS 
m list.SetltemData(n,value.IVal); // 将 自动 编号 与 列表 中 的 项 关联 
m_list.SetltemText(n,index++,(_bstr_t)DataSet.GetFields()->ltem["Emp_NAME"->Value);// 名 称 
m_list.SetltemText(n,index++,(_bstr_t)DataSet.GetFields()->ltem["Sex"]->Value); INERI 


m_list.SetltemText(n,index++,(_bstr_t)DataSet.GetFields()->ltem["Nationality"]->Value); 
m_list.SetltemText(n,index++,(_bstr_t)DataSet.GetFields()->ltem["Birth"]->Value); 
m_list.SetltemText(n,index++,(_bstr_t)DataSet.GetFields()->ltem["Political_Party"]->Value); 
m_list.SetltemText(n,index++,(_bstr_t)DataSet.GetFields()->ltem["Culture_Leve!l"]->Value); 
m_list.SetltemText(n,index++,(_bstr_t)DataSet.GetFields()->ltem["Marital_Condition"]->Value); 
m_list.SetltemText(n,index++,(_bstr_t)DataSet.GetFields()->ltem["ld_Card"]->Value); 
m_list.SetltemText(n,index++,(_bstr_t)DataSet.GetFields()->ltem["Office_phone"]->Value); 
m_list.SetltemText(n,index++,(_bstr_t)DataSet.GetFields()->ltem["Mobile"]->Value); 
m_list.SetltemText(n,index++,(_bstr_t)DataSet.GetFields()->ltem["HireDate"]->Value); 
m_list.SetltemText(n,index++,(_bstr_t)DataSet.GetFields()->ltem["Duty"]->Value); 
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m_list.SetltemText(n,index++,(_bstr_t)DataSet.GetFields()->ltem["Memo"]->Value); 
m_list.SetltemText(n,index++,(_bstr_t)DataSet.GetFields()->ltem["Files_Keep_Org"]->Value); 
m_list.SetltemText(n,index++,(_bstr_t)DataSet.GetFields()->ltem["Hukou"]->Value); 
m_list.SetltemText(n,index++,(_bstr_t)DataSet.GetFields()->ltem["Family_Place"]->Value); 


ntt 


DataSet.Next(); /记录 下 移 


C5) 添加 OnInitDialog 方法 ， 用 于 初始 化 “人 员 信息 管理 ”对 话 框 中 的 数据 。 在 该 方法 中 显示 部 
门 信息 和 人 员 信息 ， 代 码 如 下 : 


BOOL CPersonManage::OnlnitDialog() 


{ 


CDialog::OnlnitDialog(); 
m_DeptID = -1; 

UpdateDept(); 

inti 0; 

m list.InsertColumn(i," A RRS"); 
m list.SetColumnWidth(i**,80); 

m list.InsertColumn(i," A RFR"); 
m list.SetColumnWidth(i, 100); 
m list.InsertColumn(i," t5"); 

m list.SetColumnWidth(i*,50); 

m list.InsertColumn(i," Cl"); 

m list.SetColumnWidth(i--*,50); 
m_list.InsertColumn(i," 出 生日 期 "); 
m_list.SetColumnWidth(i++,100); 
m_list.InsertColumn(i," 政 治 面貌 "); 
m_list.SetColumnWidth(i++,100); 
m_list.InsertColumn(i," 文 化 程度 "); 
m_list.SetColumnWidth(i++,100); 
m_list.InsertColumn(i," 婚 姻 状 况 "); 
m_list.SetColumnWidth(i++,100); 
m_list.InsertColumn(i," 身 份 证 号 "); 
m_list.SetColumnWidth(i++,100); 
m_list.InsertColumn(i," 办 公 电 话 "); 
m_list.SetColumnWidth(i++,100); 
m_list.InsertColumn(i," 手 机 电话 "); 
m_list.SetColumnWidth(i++,100); 
m_list.InsertColumn(i," 到 岗 日 期 "); 
m_list.SetColumnWidth(i++,100); 
m_list.InsertColumn(i," 职 务 "); 
m_list.SetColumnWidth(i++,100); 
m_list.InsertColumn(i," 备 注 "); 
m_list.SetColumnWidth(i++,100); 
m_list.InsertColumn(i," 家 庭 住 址 "); 
m_list.SetColumnWidth(i++,100); 
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m list.InsertColumn(i, "i Fir Ze b"); 

m list.SetColumnWidth(i, 100); 

m list.InsertColumn(i," A D FREH"); 

m_list.SetColumnWidth(i++,100); 

m list.SetExtendedStyle(L VS EX FULLROWSELECTILVS. EX, GRIDLINES); 


UpdatePerson(); 
return TRUE; 
) 
«M ana 


9 InsertColumn 方法 : 用 于 向 当前 列表 控件 中 插入 列 标题 。 
@ SetColumnWidth 方法 : 用 于 设置 列表 控件 的 扩展 风格 。 


(6) 单 击 “ 添 加 ”按钮 ， 弹 出 “人 员 编辑 ” 窗 体 ， 输 入 人 员 信息 后 单 击 “保存 ”按钮 实现 人 员 信 
息 的 添加 ， 代 码 如 下 : 


void CPersonManage::OnAdd() 
{ 





CPersonEdit personedit; 

personedit.m DeptData = m DeptlD; 

if (personedit.DoModal() == IDOK) 

{ 
CADODataSet dataset; 
dataset.SetConnection(::GetConnection()); 
CString str = "select top 1 * from tab Employees"; 
dataset.Open(str); 
dataset. AddNew(); 
dataset.SetFieldValue("Emp. Id",( bstr t)personedit.m id); 
dataset.SetFieldValue("Emp NAME'",( bstr t)personedit.m name); 
dataset.SetFieldValue("Sex",( bstr t)personedit.m sex); 
dataset.SetFieldValue("Nationality",( bstr t)personedit.m nationality); 
dataset.SetFieldValue("Birth",( bstr t)personedit.m birth.Format("96Y-96m-96d")); 
dataset.SetFieldValue("Political Party",( bstr t)personedit.m farty); 
dataset.SetFieldValue("Culture Level",( bstr t)personedit.m culture); 
dataset.SetFieldValue("Marital Condition",( bstr t)personedit.m marital); 
dataset.SetFieldValue("ld Card",( bstr t)personedit.m card); 
dataset.SetFieldValue("Office phone",( bstr t)personedit.m office); 
dataset.SetFieldValue("Mobile",( bstr t)personedit.m mobile); 
dataset.SetFieldValue("HireDate",( bstr t)personedit.m hire.Format("96Y-96m-96d")); 
dataset.SetFieldValue("Duty",( bstr t)personedit.m duty); 
dataset .SetFieldValue("Memo",( bstr t)personedit.m memo); 
dataset.SetFieldValue("Files Keep Org",( bstr t)personedit.m files); 
dataset.SetFieldValue("Hukou",( bstr t)personedit.m hukou); 
dataset.SetFieldValue("Family Place",( bstr t)personedit.m family); 
dataset.SetFieldValue("dept" personedit.m DeptData); 
dataset.Save(); 
UpdatePerson(); 
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CD 单 击 “修改 ”按钮 ， 弹 出 “人 员 编 辑 ” 窗 体 ， 输 入 人 员 信 息 后 单 击 “ 保 存 ” 按 钮 实现 人 员 信 
息 的 修改 ， 代 码 如 下 : 


void CPersonManage::OnEdit() 
{ 

if (m list.GetSelectionMark() == -1) 

return; 
int id = m list.GetltemData(m list.GetSelectionMark()); 
CPersonEdit personedit; 
CADODataSet dataset; 
dataset.SetConnection(::GetConnection()); 
CString str; 
str.Format("select * from tab Employees where autoid = 96d" id); 
dataset .Open(str); 
personedit.m id = (char *)( bstr t)dataset.GetFields()-^Item['Emp Id"]-» Value; 
personedit.m name = (char *)( bstr t)dataset.GetFields()-»Item["Emp NAME"]-» Value; 
personedit.m sex = (char *)( bstr t)dataset.GetFields()-»Item["Sex"]-» Value; 
personedit.m nationality = (char *)( bstr t)dataset.GetFields()-»Item["Nationality"]-» Value; 
CString birth = (char *)( bstr t)dataset.GetFields()-2Item["Birth"]-» Value; 
if (Ibirth.IsEmpty()) 
{ 

/设置 日 期 数据 

int yy-atoi(birth.Left(4)); 

int mmzatoi(birth.Mid(6,2)); 

int dd-atoi(birth.Mid(9,2)); 

CTime tbirth(yy,mm,dd,0,0,0); 

personedit.m birth = tbirth; 
) 
personedit.m farty = (char *)( bstr t)dataset.GetFields()-2Item["Political Party"]-» Value; 
personedit.m culture = (char *)( bstr t)dataset.GetFields()-»Item["Culture Level"]-» Value; 
personedit.m marital = (char *)( bstr t)dataset.GetFields()-»Item[" Marital Condition"]-^ Value; 
personedit.m card = (char *)( bstr t)dataset.GetFields()-2Item['ld Card"]-» Value; 
personedit.m office = (char *)( bstr t)dataset.GetFields()-»Item["Office phone"]-» Value; 
personedit.m mobile = (char *)( bstr t)dataset.GetFields()-»Item["Mobile"]-» Value; 
CString hire = (char *)( bstr t)dataset.GetFields()-»Item["HireDate"]-» Value; 
if (Ihire.IsEmpty()) 
t 

// 设 置 日 期 数据 

int yy-atoi(hire.Left(4)); 

int mmzatoi(hire.Mid(6,2)); 

int dd-atoi(hire.Mid(9,2)); 

CTime thire(yy,mm,dd,0,0,0); 

personedit.m hire = thire; 
} 
personedit.m duty = (char *)(_bstr_t)dataset.GetFields()->ltem["Duty"]->Value; 
personedit.m memo = (char *)( bstr t)dataset.GetFields()-»Item['Memo"]-» Value; 
personedit.m files = (char *)( bstr t)dataset.GetFields()-»Item["Files Keep Org"]-» Value; 
personedit.m hukou = (char *)( bstr t)dataset.GetFields()-»Item["Hukou"]-» Value; 
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personedit.m family = (char *)(_bstr_t)dataset.GetFields()->ltem["Family_Place"]->Value; 

personedit.m DeptData = dataset.GetFields()-»Item["Dept"]-» Value; 

if (personedit.DoModal() == IDOK) 

t 
dataset.SetFieldValue("Emp Id",( bstr t)personedit.m id); 
dataset.SetFieldValue("Emp NAME'",( bstr t)personedit.m name); 
dataset.SetFieldValue("Sex",( bstr t)personedit.m sex); 
dataset.SetFieldValue("Nationality",( bstr t)personedit.m nationality); 
dataset.SetFieldValue("Birth",( bstr t)personedit.m birth.Format("96Y-96m-96d")); 
dataset.SetFieldValue("Political Party",( bstr t)personedit.m farty); 
dataset.SetFieldValue("Culture Level",( bstr t)personedit.m culture); 
dataset.SetFieldValue("Marital Condition",( bstr t)personedit.m marital); 
dataset.SetFieldValue("Id Card",( bstr t)personedit.m card); 
dataset.SetFieldValue("Office phone",( bstr t)personedit.m office); 
dataset.SetFieldValue("Mobile",( bstr t)personedit.m mobile); 
dataset.SetFieldValue("HireDate",( bstr t)personedit.m hire.Format("96Y-96m-96d")); 
dataset.SetFieldValue("Duty",( bstr t)personedit.m duty); 
dataset.SetFieldValue("Memo",( bstr t)personedit.m memo); 
dataset.SetFieldValue("Files Keep Org",( bstr t)personedit.m files); 
dataset.SetFieldValue("Hukou",( bstr t)personedit.m hukou); 
dataset.SetFieldValue("Family Place",( bstr t)personedit.m family); 
dataset.SetFieldValue("dept",personedit.m DeptData); 
dataset.Save(); 
UpdatePerson(); 





(8) 单 击 “删除 ”按钮 ， 实 现 删除 当前 选中 的 人 员 信 息 记 录 的 操作 ， 代 码 如 下 ; 





void CPersonManage::OnDelete() 


if (MessageBox(" 是 否 删 除 此 记录 !"," 提 示 ", 
MB_YESNOIMB_ICONWARNING) == IDYES) 
{ 
if (m list.GetSelectionMark() == -1) 
return; 
int id = m list.GetltemData(m list.GetSelectionMark()); 
CADODataSet dataset; 
dataset.SetConnection(::GetConnection()); 
CString str; 
str.Format("select * from tab Employees where autoid = 96d" id); 
dataset.Open(str); /打开 表 
dataset.Delete(); /删除 记录 
dataset.Save(); /保存 操作 
UpdatePerson(); 
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4.10 考勤 管理 模块 设计 


考勤 管理 模块 概述 


在 考勤 管理 模块 中 可 录入 所 有 人 员 当 天 的 考勤 信息 ， 并 且 可 以 根据 年 、 月 和 人 员 信 息 对 已 录入 的 
考勤 记录 进行 查询 。 考 勤 管理 模块 的 运行 效果 如 图 4.4 所 示 。 


4.10.2 ”考勤 管理 模块 技术 分 析 


在 进行 程序 设计 时 ， 日 期 型 数据 可 以 使 用 字符 串 的 形式 存 入 日 期 类 型 的 数据 库 字 段 中 , 但 相反 的 ， 
字符 串 类 型 的 日 期 数据 要 想 转换 成 日 期 类 型 的 数据 ， 就 必须 自己 实现 其 转换 功能 。 该 模块 实现 了 将 字 
符 串 形式 的 日 期 和 时 间 分 别 转换 成 日 期 类 型 的 数据 。 

GetTimeForStr 方法 用 来 将 字符 串 形式 的 时 间 转 换 成 日 期 类 型 ， 实 现代 码 如 下 ;: 


CTime CCheckManage::GetTimeForStr(CString timestr) 


4.10.1 





{ 
int h,m,s; 
if (timestr.GetLength() < 8) /不 足 8 位 补 0 
timestr = "0"+timestr' 
h = atoi(timestr.Left(2)); // 获 取 小 时 
m = atoi(timestr.Mid(3,2)); /获取 分 
s = atoi(timestr.Right(2)); /获取 秒 
CTime result(2000,1,1,h,m,s); /| 生成 日 期 
return result; 


} 





GetDateForStr 方法 用 来 将 字符 串 类 型 的 日 期 值 转换 成 日 期 类 型 的 数据 ， 实 现代 码 如 下 : 


CTime CCheckManage::GetDateForStr(CString datestr) 





{ 
int ym,d; 
y = atoi(datestr.Left(4)); /年 
m = atoi(datestr.Mid(5,2)); IIR 
d = abs(atoi(datestr.Right(2))); iR 
CTime result(y,m,d,8,0,0); /生成 日 期 
return result; 


) 





在 该 模块 中 还 实现 了 一 个 时 间 相 减 的 方法 ， 在 这 个 方法 中 实现 的 时 间 相 减 都 是 转换 成 秒 后 进行 减 
法 计算 的 ， 然 后 再 将 秒 转换 成 对 应 的 时 间 类 型 数据 ， 实 现代 码 如 下 


CTime CCheckManage::DecTime(CTime one, CTime two) 
{ 


e. 
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int yy,mm,dd,h,s,m,onetemp,twotemp; 
yy = 2000;//one.GetYear();//- two.GetYear(); 


mmz1; 
dd-1; 


onetemp = one.GetSecond() + one.GetMinute() * 60 + one.GetHour() * 60 * 60; /总 秒 数 
twotemp = two.GetSecond() + two.GetMinute() * 60 + two.GetHour() * 60 * 60; 
if ((onetemp - twotemp) « 0) 


{ 


h=m=s=0; 


) 


else 


h = (onetemp - twotemp) / 60 / 60; 
m = ((onetemp - twotemp) - h * 60 * 60) / 60; 
S = ((onetemp - twotemp) - h * 60 * 60) - m * 60; 


) 


CTime time (yy,mm,dd,h,m,s); 


return time; 


/小 时 
/分 钟 
Ing» 


/生成 时 间 数据 





4.10.3 ”考勤 管理 模块 实现 过 程 


E] 。 本 模块 使 用 的 数据 表 : tab Check 
(1) 创建 一 个 对 话 框 ， 打 开 对 话 框 属 性 窗口 ， 将 对 话 框 的 ID 改 为 IDD_DLGCHECK， 标 题 改 为 


“考勤 管理 ”。 


(2) 向 对 话 框 中 添加 一 个 复 选 框 控 件 、3 个 静态 文本 框 控 件 、3 个 下 拉 列 表 框 控 件 、4 个 按钮 控件 
和 一 个 列表 控件 ， 各 控件 的 属性 设置 如 表 4.4 所 示 。 


控件 ID 
IDC CHECKI 


IDC COMBOYY 


IDC COMBOMM 


表 4.4 控件 资源 设置 


控件 属性 


Type: Drop List 


Type: Drop List 


对 应 变量 
BOOL m check 
CComboBox m cyy 
CString m yy 
CComboBox m cmm 
CString m mm 





IDC COMBOEMP 


Type: Drop List 


CComboBox m cemp 

















CString m emp 
IDC LISTPERSON View: Icon. Single selection ClistCtrl m list 
IDC APPEND Caption: 添加 X 
IDC EDIT Caption: 修改 无 
IDC DELETE Caption: 删除 x 
IDCANCEL Caption: 退出 无 





139 


C++ 项 目 开发 全 程 实录 (第 2 版 ) 





(3) 添加 UpdateList 方 法， 用 于 显示 人 员 考 勤 信息 ， 实 现代 码 如 下 : 


void CCheck Manage::UpdateList() 
t 
this-» UpdateData(); 
CString str; 
if (m check) 
str.Format("Select * From tab Check"); /显示 所 有 员工 的 考勤 信息 
else 
CString Starttime, EndTime; 
Starttime = m yy + "-" + m mm + "-1"; 
EndTime.Format("DATEADD(month, 1,'26s")",Starttime); 
if (m emp == "(全 部 )") /显示 指定 时 间 内 的 所 有 员工 考勤 信息 
str.Format("Select * From tab Check where checkdate between '96s' and %s",Starttime, 
EndTime); 
else /显示 指定 时 间 内 的 某 个 员工 考勤 信息 
str.Format("Select * From tab Check where name = '%s' and Y 
checkdate between '%s' and 96s",m emp,Starttime,EndTime); 


) 
CADODataSet dataset; /定义 记录 集 
dataset.SetConnection(::GetConnection()); // 设 置 数据 库 连 接 对 象 
dataset.Open(str); // 打 开 记录 集 
m list.DeleteAllltems(); // 清 空 列 表 控 件 中 的 所 有 数据 
for (int i = 0; i < dataset.GetRecordCount(); i++) 
{ 
intn = 0; 
long data = dataset.GetFields()-»Item['autoid"]-» Value; 
m list.Insertltem(i,"'); 
m list.SetltemData(i,data); 
m list.SetltemText(i,n**,( bstr t)dataset.GetFields()-»Item["name"]-» Value); 
m list.SetltemText(i,n**,( bstr t)dataset.GetFields()-»Item['ondutytime"]-» Value); 
m list.SetltemText(i,n**,( bstr t)dataset.GetFields()-»Item["offdutytime"]-» Value); 
m list.SetltemText(i,n**,( bstr t)dataset.GetFields()-»Item['ontime"]-» Value); 
m list.SetltemText(i,n-*,( bstr t)dataset.GetFields()-»Item['offtime"]-» Value); 
m list.SetltemText(i,n**,( bstr t)dataset.GetFields()-2Item["leave"]-» Value); 
m list.SetltemText(i,n**,( bstr t)dataset.GetFields()-»Item['onleave"]-» Value); 
m list.SetltemText(i,n**,( bstr t)dataset.GetFields()-»Item['offleave"]-» Value); 
m list.SetltemText(i,n**,( bstr t)dataset. GetFields()-»Item['latetime"]-» Value); 
m list.SetltemText(i,n**,( bstr t)dataset.GetFields()-»Item["leaveearly"]-» Value); 
m list.SetltemText(i,n**,( bstr t)dataset.GetFields()-»Item["memo"]-^ Value); 
m list.SetltemText(i,n**,( bstr t)dataset.GetFields()-»Item["checkdate"]-» Value); 
dataset.Next(); // 记 录 下 移 





(4) 向 对 话 框 中 添加 OnInitDialog 方法 ， 在 对 话 框 初始 化 时 设置 列表 控件 的 表 头 和 列 宽度 以 及 查 
询 条 件 选择 控件 ， 实 现代 码 如 下 : 
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BOOL CCheckManage::OnlnitDialog() 


{ 


CDialog::OnlnitDialog(); 

inti = 0; 

m list.InsertColumn(i," A 534"); 
m list.SetColumnWidth(i, 100); 
m list.InsertColumn(i," EIERTIB]"); 
m list.SetColumnWidth(i-, 100); 
m list.InsertColumn(i, T  EERST[B]"); 
m list.SetColumnWidth(i--, 100); 


m_listInsertColumn(i," 上 班 考勤 时 间 "); 


m list.SetColumnWidth(i**, 100); 


m_list.InsertColumn(i," 下 班 考勤 时 间 "); 


m_list.SetColumnWidth(i++,100); 
m_list.InsertColumn(i," 请 假 类 别 "); 
m_list.SetColumnWidth(i++,100); 


m_list.InsertColumn(i," 请 假 起 始 时 间 "); 


m_list.SetColumnWidth(i++,100); 


m_list.InsertColumn(i," 请 假 结束 时 间 "); 


m_list.SetColumnWidth(i++,100); 
m_list.InsertColumn(i," 迟 到 时 间 "); 
m_list.SetColumnWidth(i++,100); 
m_list.InsertColumn(i," 早 退 时 间 "); 
m_list.SetColumnWidth(i++,100); 
m list.InsertColumn(i," & 3€"); 

m list.SetColumnWidth(i-,100); 
m list.InsertColumn(i, "7E 3f A #4"); 
m list.SetColumnWidth(i, 130); 


m list.SetExtendedStyle(LVS. EX FULLROWSELECT|LVS EX GRIDLINES); 


m check - true; 
this-»UpdateData(false); 
int curyear,curmonth; 


CTime time(CTime::GetCurrentTime()); 


curyear - time.GetYear(); 
curmonth = time.GetMonth(); 
char value[10]; 

for (int y = 2000; y < 2100;y++) 
{ 


itoa(y,value,10); 


m cyy.InsertString(y-2000, value); 


) 
m cyy.SetCurSel(curyear-2000); 
for (int n = 1; n<=12;n++) 
( 
itoa(n,value,10); 
m cmm.InsertString(n-1, value); 
) 
m cmm.SetCurSel(curmonth-1); 
CADODataSet dataset; 


// 当 前年、 月 


/当前 年 
// 当 前 月 


// 向 “年 ”下 拉 列 表 框 中 添加 数值 


/向 “月 ”下 拉 列 表 框 中 添加 数值 
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dataset.SetConnection(::GetConnection()); 
dataset.Open("Select * From tab Employees"); /打开 员工 信息 表 
m cemp.InsertString(0,"($88)"); 
for (int index = 1; index < dataset.GetRecordCount(); indexe*) ”// 向 “员工 ”下 拉 列 表 框 中 添加 员工 信息 
{ 
m_cemp.InsertString(index,(_bstr_t)dataset.GetFields()->ltem["emp_name"]->Value); 
dataset. Next(); 
} 
m_cemp.SetCurSel(0); 
UpdateList(); // 更 新 考勤 信息 列表 
return TRUE; 


Mana 
9 GetCurrentTime 方法 : 用 于 获取 当前 系统 时 间 。 
@ GetYear 方法 : 用 于 获取 CTime 对 象 中 的 年 数据 。 


(5) 添加 OnAdd 方法 ， 用 于 向 考勤 信息 表 中 添加 员工 的 日 考勤 数据 ， 实 现代 码 如 下 : 





void CCheckManage::OnAdd() 


CCheckEdit checkedit; // 员 工 考 勤 编辑 窗 体 
if (checkedit.DoModal() == IDOK) // 显 示 员工 考勤 编辑 窗 体 
{ 
CString time; 
CString str = "Select top 1 * From tab Check"; 
CADODataSet dataset; 
dataset.SetConnection(::GetConnection()); 
dataset.Open(str); /打开 员工 考勤 表 
dataset.AddNew(); [E E mE 


dataset.SetFieldValue("name",( bstr t)checkedit.m name); 
dataset.SetFieldValue("checkdate",( bstr t)checkedit.m datecheck.Format("96Y-96m-96d")); 
dataset.SetFieldValue("ondutytime",( bstr t)checkedit.m timeonduty.Format("96H:96M:96S")); 
dataset.SetFieldValue("offdutytime",( bstr t)checkedit.m timeoffduty.Format("96H:96M:96S")); 
dataset.SetFieldValue("ontime",( bstr t)checkedit.m timeon.Format("96H:90M:96S")); 
dataset.SetFieldValue("offtime",( bstr t)checkedit.m timeoff.Format("96H:90M:96S")); 
dataset.SetFieldValue("leave",( bstr t)checkedit.m leave); 
dataset.SetFieldValue("onleave",( bstr t)checkedit.m timeonleave.Format("6H:96M:96S")); 
dataset.SetFieldValue("offleave",( bstr t)checkedit.m timeoffleave.Format(")6H:96M:96S")); 
dataset.SetFieldValue("memo",( bstr t)checkedit.m memo); 

CTime latetime = DecTime(checkedit.m timeon,checkedit.m timeonduty);//F- B] HR 
time.Format("96d:96d:96d" latetime.GetHour(),latetime.GetMinute(),latetime.GetSecond()); 
dataset.SetFieldValue("latetime",( bstr t)time); 

CTime leaveearly = DecTime(checkedit.m timeoff,checkedit.m timeoffduty); 
time.Format("96d:96d:96d" leaveearly.GetHour(),leaveearly.GetMinute(),leaveearly. GetSecond()); 
dataset.SetFieldValue("leaveearly",( bstr t)time); 

dataset.Save(); /保存 记录 

UpdateList(); /更 新 考勤 信息 列表 
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(6) 添加 OnEdit 方法 ， 用 于 编辑 考勤 信息 表 中 员工 的 日 考勤 数据 ， 实 现代 码 如 下 : 


void CCheckManage::OnEdit() 
{ 

if (m_list.GetSelectionMark() == -1) // 判 断 是 否 存 在 选中 记录 
return; 

int id = m list.GetltemData(m list.GetSelectionMark()); /获取 记录 唯一 标识 

CCheckEdit checkedit; /考勤 信息 编辑 窗 体 

CString str; 

str.Format("Select * From tab Check where autoid = 96d" id); 

CADODataSet dataset; 

dataset.SetConnection(::GetConnection()); 

dataset. Open(str); /打开 记录 集 

checkedit.m name = (char *)( bstr t)dataset.GetFields()-»Item["name"]-» Value; 

checkedit.m timeonduty = GetTimeForStr((char *)( bstr t)dataset.GetFields()-»Item['ondutytime"-» Value); 

checkedit.m timeoffduty = GetTimeForStr((char *)( bstr t)dataset.GetFields()-»Item["ofídutytime"]-» Value); 

checkedit.m timeon = GetTimeForStr((char *)( bstr t)dataset.GetFields()-»Item['ontime"]-» Value); 

checkedit.m timeoff = GetTimeForStr((char *)( bstr t)dataset.GetFields()-»Item["offtime"]-» Value); 

checkedit.m leave = (char *)( bstr t)dataset.GetFields()-»Item["leave"]-» Value; 

checkedit.m timeonleave = GetTimeForStr((char *)( bstr t)dataset.GetFields()-»Item["onleave"]-» Value); 

checkedit.m timeoffleave = GetTimeForStr((char *)( bstr t)dataset.GetFields()-»Item["offleave"]-» Value); 

checkedit.m memo = (char *)( bstr t)dataset.GetFields()-»Item["memo"]-» Value; 

checkedit.m datecheck = GetDateForStr((char *)( bstr t)dataset.GetFields()-»Item["checkdate"]-» Value); 

if (checkedit.DoModal() == IDOK) /显示 考勤 信息 编辑 窗 体 

{ 
CString time; 
dataset.SetFieldValue("name",( bstr t)checkedit.m name); 
dataset.SetFieldValue("checkdate",( bstr t)checkedit.m datecheck.Format("96Y-96m-96d")); 
dataset.SetFieldValue("ondutytime",( bstr t)checkedit.m timeonduty.Format("96H:96M:96S")); 
dataset.SetFieldValue("offdutytime",( bstr t)checkedit.m timeoffduty.Format("96H:96M:96S")); 
dataset.SetFieldValue("ontime",( bstr t)checkedit.m timeon.Format("96H:960M:96S")); 
dataset.SetFieldValue("offtime",( bstr t)checkedit.m timeoff.Format("96H:96M:96S")); 
dataset.SetFieldValue("leave",( bstr t)checkedit.m leave); 
dataset.SetFieldValue("onleave",( bstr t)checkedit.m timeonleave.Format("96H:96M:96S")); 
dataset.SetFieldValue("offleave",( bstr t)checkedit.m timeoffleave.Format("96H:96M:96S")); 
dataset.SetFieldValue("memo",( bstr t)checkedit.m memo); 
CTime latetime = DecTime(checkedit.m timeon,checkedit.m timeonduty); 
time.Format("96d:96d:96d" latetime.GetHour(),latetime.GetMinute(),latetime.GetSecond()); 
dataset.SetFieldValue("latetime",( bstr t)time); 
CTime leaveearly = DecTime(checkedit.m timeoffduty,checkedit.m timeoff); 
time.Format("96d:96d:96d" leaveearly.GetHour(),leaveearly.GetMinute(),leaveearly.GetSecond()); 
dataset.SetFieldValue("leaveearly",( bstr t)time); 
dataset.Save(); /保存 记录 集 修 改 
UpdateList(); /更 新 考勤 信息 列表 





143 


C++ 项 目 开发 全 程 实录 (第 2 版 ) 


(7) 添加 OnDelete 方法 ， 用 于 删除 当前 选择 的 考勤 记录 ， 实 现代 码 如 下 : 


void CCheckManage::OnDelete() 


if (MessageBox(" 是 否 删 除 此 记录 !"," 提 示 ", 
MB_YESNOIMB_ICONWARNING) == IDYES) 
t 
if (m list.GetSelectionMark() == -1) 
return; 
int id = m list.GetltemData(m list.GetSelectionMark()); 
CADODataSet dataset; 
dataset.SetConnection(::GetConnection()); 
CString str; 
str.Format("select * from tab Check where autoid = 96d" id); 
dataset. Open(str); 
dataset.Delete(); 
dataset.Save(); 
UpdateList(); 





4.11 考勤 汇总 查询 模块 设计 





视频 讲解 


4.11.1 考勤 汇总 查询 模块 概述 


考勤 汇总 查询 模块 用 于 将 日 常 录入 的 员工 考勤 信息 根据 时 间 范 围 和 人 员 进 行 汇总 查询 ， 并 显示 员 
工 的 月 出 勤 天 数 、 迟 到 天 数 和 请 假 天 数 等 。 考 勤 汇总 查询 模块 如 图 4.5 所 示 。 


4.11.2 ”考勤 汇总 查询 模块 技术 分 析 


在 该 模块 中 ， 汇 总 查询 是 通过 SQL 语句 实现 的 ， 这 个 汇总 查询 主要 通过 一 些 SQL 子 句 组 成 一 个 
SQL 汇总 查询 语句 ， 这 些 子 句 分 别 用 来 获取 员工 工作 总 天 数 、 迟 到 总 天 数 、 早 退 总 天 数 、 病 假 总 天 数 
和 事假 总 天 数 。 

在 进行 天 数 计算 时 是 将 天 转换 成 秒 ， 先 计算 所 使 用 的 总 秒 数 ， 最 后 再 根据 总 秒 数 计 算出 天 数 。 考 
勤 汇总 查询 的 SQL 语句 如 下 : 


CString str,temp,where,datestr, StartDate,EndDate; 

StartDate = m_yy + "-" + m_mm + "-1"; 
EndDate.Format("DATEADD(month,1,'%s')",StartDate); 

datestr.Format(" between '%s' and %s",StartDate,EndDate); 

temp += "select emp.emp name, ROUND(isnull(works.workday,0),2)"; 

temp +=" workday,ROUND(isnull(lates.lateday,0),2) lateday,"; 

temp += " ROUND(isnull(leaveearlys.leaveearlyday,0),2) leaveearlyday,"; 

temp += " ROUND(isnull(bjdays.bjday,0),2) bjday, ROUND(isnull(sjdays.sjday,0),2) sjday"; 


e. 
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temp += "from tab Employees emp "; 


temp +=" left join"; 
temp += " (select sum(DATEDIFF(second,ontime,offtime)) / 60.0 / 60.0 / 8.0"; 


temp +=" as workday,name From tab Check where checkdate 96s group by name)"; 
temp += " works on emp.emp, name = works.name"; 


temp +=" left join"; 
temp += " (select (sum(DATEPART (Hour,latetime)) * 60 * 60 + "; 


temp +=" sum(DATEPART (minute,latetime)) * 60 + sum(DATEPART(second,latetime)))"; 


temp += " /60.0 /60.0 /8.0 as lateday,name From tab Check where checkdate"; 
temp +=" 96s group by name) lates on emp.emp. name = lates.name"; 

temp +=" left join"; 

temp +=" (select (sum(DATEPART(Hour,leaveearly)) * 60 * 60 + "; 


temp +=" sum(DATEPART (minute,leaveearly)) * 60 + sum(DATEPART(second,leaveearly)))"; 


temp += " /60.0 /60.0 /8.0 as leaveearlyday,name From tab Check where "; 
temp +=" checkdate 96s group by name) leaveearlys on emp.emp name"; 


temp +=" = leaveearlys.name"; 


temp +=" left join"; 

temp +=" (select isnull(sum(DATEDIFF(second,onleave,offleave))"; 
temp +=" / 60.0 / 60.0 / 8.0,0) as bjday,name From tab Check where"; 
temp +=" leave = ' 病 假 ' and checkdate %s group by name) "; 


temp +=" bjdays on emp.emp name - bjdays.name"; 


temp +=" left join"; 

temp +=" (select isnullsum(DATEDIFF(second,onleave,offleave)) "; 
temp +=" / 60.0 / 60.0 / 8.0,0) as sjday/name From tab Check where "; 
temp +=" leave = ' 事 假 ' and checkdate %s group by name) "; 


temp +=" sjdays on emp.emp_name = sjdays.name"; 


temp +=" 96s"; 





4.11.3 ”考勤 汇总 查询 模块 实现 过 程 


LE] 本 模块 使 用 的 数据 表 : tab Employees. tab Check 
(1) 创建 一 个 对 话 框 ， 打 开 对 话 框 属 性 窗口 ， 将 对 话 框 的 ID 改 为 IDD_DLGCHECKSUM， 将 对 
话 框 标题 改 为 “考勤 汇总 查询 ”。 
(2) 向 对 话 框 中 添加 3 个 静态 文本 框 控件 、3 个 下 拉 列 表 框 控件 、 一 个 按钮 控件 和 一 个 列表 控件 ， 

各 控件 的 属性 设置 如 表 4.5 所 示 。 


表 4.5 控件 属性 设置 














控件 ID 控件 属性 对 应 变量 
CComboB' 
IDC CYY Type: Drop List opidi 
T CString m yy 
$ CComboB.: mm 
IDC CMM Type: Drop List hostes 
Ex CString m mm 
i CComboB 
IDC CEMP Type: Drop List EE À 
i CString m emp 
IDCANCEL IDCANCEL Caption: 退出 
IDC LISTEMP View: Icon. Single selection CListCtrl m list 
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(3) 添加 UpdateList 方法 ， 用 于 更 新 考勤 汇总 查询 的 数据 ， 实 现代 码 如 下 : 


void CCheckSum::UpdateList() 


f 


m_list.DeleteAllltems(); 

this->UpdateData(); 

CADODataSet dataset; 

dataset.SetConnection(::GetConnection()); 

CString str,temp,where,datestr,StartDate, EndDate; 

StartDate = m yy + "-" + m mm + "-1"; 

EndDate.Format("DATEADD(month,1,'26s")" StartDate); 

datestr.Format(" between '%s' and 96s",StartDate,EndDate); 

temp += "select emp.emp name,ROUND(isnull(works.workday,0),2)"; 

temp += " workday,ROUND(isnull(lates.lateday,0),2) lateday,"; 

temp += " ROUND(isnull(leaveearlys.leaveearlyday,0),2) leaveearlyday,"; 

temp +=" ROUND(isnull(bjdays.bjday,0),2) bjday,ROUND(isnull(sjdays.sjday,0),2) sjday"; 
temp += " from tab Employees emp "; 

temp +=" left join"; 

temp += " (select sum(DATEDIFF(second,ontime,offtime)) / 60.0 / 60.0 / 8.0"; 

temp +=" as workday,name From tab Check where checkdate 96s group by name)"; 
temp += " works on emp.emp name = works.name"; 

temp +=" left join"; 

temp +=" (select (sum(DATEPART(Hour,latetime)) * 60 * 60 + "; 

temp += " sum(DATEPART (minute,latetime)) * 60 + sum(DATEPART (second,latetime)))"; 
temp += " /60.0 /60.0 /8.0 as lateday,name From tab Check where checkdate"; 

temp += " 96s group by name) lates on emp.emp. name = lates.name"; 

temp +=" left join"; 

temp +=" (select (s.um(DATEPART(Hour,leaveearly)) * 60 * 60 + "; 


temp += " sum(DATEPART (minute leaveearly)) * 60 + sum(DATEPART (second,leaveearly)))"; 


temp += " /60.0 /60.0 /8.0 as leaveearlyday,name From tab Check where "; 
temp += " checkdate 96s group by name) leaveearlys on emp.emp, name"; 
temp +=" = leaveearlys.name"; 
temp +=" left join"; 
temp +=" (select isnull(sum(DATEDIFF(second,onleave,offleave))"; 
temp *- "/60.0/60.0/8.0,0) as bjday,name From tab Check where"; 
temp +=" leave = ' 病 假 ' and checkdate 96s group by name) "; 
temp +=" bjdays on emp.emp, name = bjdays.name"; 
temp +=" left join"; 
temp +=" (select isnull(sum(DATEDIFF(second,onleave,offleave)) "; 
temp +=" / 60.0 / 60.0 / 8.0,0) as sjday,name From tab Check where "; 
temp +=" leave = 事假 ' and checkdate %s group by name) "; 
temp += " sjdays on emp.emp. name = sjdays.name"; 
temp +=" 96s"; 
where.Format(" where emp.emp name = ')6s",m emp); 
if(m emp == "(全 部 )") 
str.Format(temp,datestr,datestr,datestr,datestr,datestr,""); 
else 
str.Format(temp,datestr,datestr,datestr,datestr,datestr, where); 
dataset.Open(str,adLockUnspecified); 
for (int i = 0; i < dataset. GetRecordCount(); i++) 
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m list.Insertltem(i. 
m list.SetltemText(i,n*-*,( bstr t)dataset.GetFields()-»Item['emp name"]-» Value); 

m list.SetltemText(i,n*,( bstr t)dataset.GetFields()-»Item["workday"]-» Value); 

m list.SetltemText(i,n**,( bstr t)dataset.GetFields()-»Item["lateday"]-» Value); 

m list.SetltemText(i,n**,( bstr t)dataset.GetFields()-7Item['leaveearlyday"]-» Value); 
m list.SetltemText(i,n**,( bstr t)dataset.GetFields()-»Item['bjday"]-» Value); 

m list.SetltemText(i,n**,( bstr t)dataset. GetFields()-»Item["sjday"]-» Value); 
dataset.Next(); 


(4). 向 对 话 框 中 添加 OnInitDialog 方法 ， 在 对 话 框 初始 化 时 设置 列表 控件 的 表 头 和 列 宽 度 ， 以 及 


汇总 查询 条 件 选 择 控件 ， 实 现代 码 如 下 : 





BOOL CCheckSum::OnlnitDialog() 


{ 


CDialog::OnlnitDialog(); 

inti 0; 

m list.InsertColumn(i," A R34"); 

m list.SetColumnWidth(i--,100); 

m list.InsertColumn(i," T fE & X 38"); 
m list.SetColumnWidth(i*, 100); 

m list.InsertColumn(i, 3 8 & R"); 
m list.SetColumnWidth(i--*,100); 

m list.InsertColumn(i," FRA RX"); 
m list.SetColumnWidth(i, 100); 

m list.InsertColumn(i, JE && X 38"); 
m list.SetColumnWidth(i--*,100); 

m list.InsertColumn(i, "SB & X 38"); 
m list.SetColumnWidth(i*-,100); 

m list.SetExtendedStyle(L VS. EX FULLROWSELECT|LVS EX, GRIDLINES); 
int curyear,curmonth; 

CTime time(CTime::GetCurrentTime()); 
curyear - time.GetYear(); 

curmonth = time.GetMonth(); 

char value[10]; 

for (int y = 2000; y < 2100;y++) 

{ 


e itoa(y, value, 10); 


m cyy.InsertString(y-2000, value); 
} 


@ m cyy.SetCurSel(curyear-2000); 


for (int n = 1; n<=12;n++) 
{ 
_itoa(n,value,10); 
m_cmm.InsertString(n-1,value); 
) 
m cmm.SetCurSel(curmonth-1); 
CADODataSet dataset; 
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dataset.SetConnection(::GetConnection()); 

dataset.Open("Select * From tab Employees"); 

m cemp.InsertString(0,"($88)"); 

for (int index = 1; index < dataset.GetRecordCount(); index) 

{ 
m_cemp.InsertString(index,(_bstr_t)dataset.GetFields()->ltem["emp_name"]->Value); 
dataset. Next(); 

} 

m_cemp.SetCurSel(0); 

UpdateList(); 

return TRUE; 

) 


«M un 
O itoa 函数 : 用 于 将 整 型 数据 转换 为 字符 串 类 型 。 
© SetCurSel 方法 : 用 于 设置 组 合 框 中 的 选中 项 。 


410 ”开发 技巧 与 难点 分 析 


4.12.1 ”调用 动态 链接 库 设 计 界 面 


为 了 使 人 事 考勤 管理 系统 在 界面 上 更 加 美观 ， 笔 者 重 绘 了 程序 界面 ， 并 且 将 其 封装 成 了 动态 链接 
库 ， 使 读者 可 以 方便 地 使 用 。 下 面 就 来 看 一 下 如 何 调用 动态 链接 库 美化 界面 ， 步 又 如 下 : 

COD 将 资源 包 中 提供 的 SkinHookh、 
SkinLib.dll 和 SkinLib.lib 文件 复制 到 程序 











QS» Hm » amma co » T ru» mem n 





根 目录 下 ， 如 图 422 所 示 。 EE 
(2) 在 工作 区 窗口 选择 FileView 3k aee l hj 
项 卡 ,在 Header Files 节点 处 右 击 , 在 弹出 。 | ar a MEE 
视频 


的 快捷 菜单 中 选择 Add Files to Folder 命 a è = ea h| le] h|] e] h| 
令 ， 在 弹出 的 对 话 框 中 找到 SkinHookh 3c Re Eee 


<a h appo — nageai 


件 并 导入 。 | m 

















mmn | k | | & 3 | ie] f 
(3) 在 Personcpp 文件 中 引用 ci epi Pardos A Skiri ooi sak. | Shirina | skini d Stdabcpp 
SkinHookh 文件 ， 并 在 InitInstance 方法 中 MS hl b h) c h] 
调用 动态 链接 库 中 的 LoadSkin 函数 进行 界 immo Ska veas uei aee vein 
面 的 绘制 o 司 CARES 38 "n Feed 1742 - 20.. 8HEHER: 2013/1/9 13:01 
4.22 Xx EDIBSA IE 422 复制 动态 链接 库 文件 


在 开发 本 系统 的 主 窗口 时 ， 为 了 使 程序 看 起 来 更 加 美观 ， 在 程序 的 背景 部 分 绘制 了 一 幅 位 图 ， 但 
是 在 程序 进行 最 大 化 时 ， 却 出 现 了 问题 ， 程 序 的 背景 位 图 没有 被 重 绘 ， 导 致 左上 角 的 部 分 显示 一 个 小 


(m, 
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图 ， 这 该 如 何 解 决 呢 ? 
可 以 先 捕获 最 大 化 消息 ， 然 后 调用 Invalidate 函数 进行 刷新 。 可 以 在 主 窗口 的 OnSize 消息 处 理 函 
数 中 捕获 最 大 化 消息 ， 代 码 如 下 : 


void CPersonDlg::OnSize(UINT nType, int cx, int cy) 
( 


CDialog::OnSize(nType, cx, cy); 


if (nType == SIZE MAXIMIZED) /捕获 最 大 化 消息 
Invalidate(); /刷新 

bse if (nType == SIZE_RESTORED) /| 捕获 还 原 消息 
Invalidate(); /刷新 


) 
通过 上 述 代码 就 可 以 解决 调整 主 窗口 大 小 时 背景 位 图 显示 不 正确 的 问题 。 





4.13 项 目 文件 清单 


人 事 考勤 管理 系统 项 目 文件 清单 如 表 4.6 所 示 。 
表 4.6 项 目 文件 清单 


文件 类 型 文件 描述 
分 类 列表 控制 
系统 资源 文件 


人 事 资源 杠 


用 管理 | | 














本 章 通过 使 用 SQL Server 2014 数据 库 介 绍 了 如 何 开发 人 事 考勤 管理 系统 。 通 过 本 章 的 学 习 ， 读 者 
可 以 更 好 地 掌握 SQL Server 2014 数据 库 开 发 技术 ， 增 强 对 数据 库 管理 系统 开发 流程 的 了 解 ， 可 以 向 独 
立 开发 软件 的 目标 迈 出 一 大 步 。 


^^ I 


z E 
商品 采购 管理 系统 


( Visual C++ 6.0+SQL Server 2014 实现 ) 


全 球 经 济 一 体 化 步伐 的 加 快 ， 要 求 企 业 快 速 、 全 面 发 展 ， 以 适应 
整个 市 场 的 发 展 变化 。 要 使 企业 全 面 发 展 ， 不 仅 要 求 企 业 不 断 地 改善 
经 营 状况 ， 更 重要 的 是 要 不 断 地 提高 企业 生产 经 营 活动 中 “ 供 、 销 、 
存 ” 各 个 环节 的 管理 水 平 ， 因 此 商品 和 采购 管 理 水 平 的 提高 在 整个 管理 
过 程 中 交 得 日 益 重 要 。 

通过 学 习 本 章 ， 读 者 可 以 学 到 : 

» 使 用 SQL Server 2014 数据 库 

» 通过 SQL 语句 对 数据 库 进 行 操 作 

WI 备份 和 还 原 数据 库 

» 数据库 封 装 类 
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51 3 & WX 


通过 商品 采购 管理 系统 对 企业 的 商品 采购 进行 管理 ， 满 足 了 企业 对 商品 采购 及 时 、 采 购 数量 预算 
准确 、 采 购 商 品质 量 有 保障 等 要 求 ， 为 企业 的 经 营 生产 做 好 前 提 准 备 工作 ， 从 而 提高 了 企业 “ 供 、 销 、 
存 ” 管 理 的 整体 水 平 。 


52 需求 分 析 


商品 采购 管理 系统 根据 工业 企业 和 商品 流通 企业 采购 业务 管理 及 采购 成 本 核算 的 实际 需要 ， 对 采 
购 订单 、 采 购 到 货 处 理 及 入 库 状况 进行 全 程 管理 ， 为 采购 部 门 和 财务 部 门 提供 准确 、 及 时 的 信息 ， 并 
辅助 管理 决策 。 

本 系统 完成 后 ， 能 够 输入 或 修改 商品 和 供应 商 的 基本 资料 ， 能 方便 对 采购 业务 和 交 货 信息 进行 维 
护 ， 能 对 商品 采购 信息 进行 查询 、 交 货 追 踪 和 统计 。 


53 系统 设计 





53.1 系统 目标 


商品 采购 管理 系统 将 实现 如 下 目标 。 

回 ”减少 前 台 服 务 人 员 的 数量 ， 减 少 经 营 者 的 人 员 开销 。 
回 ”提高 操作 速度 ， 提 高 顾客 的 满意 程度 。 

回 ”使 经 营 者 能 够 查询 一 些 历史 数据 。 


5.3.2 ”系统 功能 结构 





商品 采购 管理 系统 的 功能 结构 如 下 。 
回 ”基础 信息 管理 :在 基础 信息 管理 模块 中 需要 实现 对 部 门 信息 、 员 工 信 息 、 系 统 功能 、 角 色 、 操 
作 员 、 商 品 信息 和 库存 信息 的 管理 功能 。 ak 




















回 ”采购 管理 : 在 采购 管理 模块 中 需要 实现 采 
购 申 请 、 采 购 入 库 和 入 库 退 货 功能 。 

Ep Gn: 在 采购 查询 模块 中 需要 实现 对 
采购 申请 信息 、 采 购 入 库 信 息 和 入 库 退货 
信息 的 查询 功能 。 

系统 结构 图 如 图 5.1 所 示 。 
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图 5.1 采购 管理 系统 结构 图 
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5.3.3 系统 览 

商品 采购 管理 系统 主要 由 采购 申请 模块 组 成 ， 模 块 效果 预览 图 如 图 5.2 所 示 。 
5.3.4 业务 流程 图 

商品 采购 管理 系统 业务 流程 图 如 图 5.3 所 示 。 
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基本 信息 管理 [E 
图 5.2 采购 申请 模块 的 运行 效果 图 5.3 商品 采购 系统 业务 流程 图 
5.8.5 数据库 设 计 
1. 数据库 概要 说 明 


在 商品 采购 管理 系统 中 ， 采 用 的 是 SQL Server 2014 
数据 库 ， 用 来 存储 供应 商 信息 、 员 工 信 息 、 角 色 信 息 、 角 
色 功 能 、 部 门 信息 、 系 统 功能 信息 、 操 作 员 信息 、 采 购 申 
请 、 采 购 申请 明细 、 订 单 信息 、 采 购 入 库 、 商 品 信息 、 商 
品 库存 、 库 存 信息 、 入 库 退 货主 和 入 库存 退货 明细 等 。 这 
里 将 数据 库 命名 为 StockManage， 其 中 包含 了 16 张 数 据 
表 ， 用 于 存储 不 同 的 信息 ， 如 图 5.4 所 示 。 


2. 数据 库 ”结构 设计 - à. 


采购 管理 系统 共 使 用 了 16 张 数据 表 ， 分 别 为 供应 商 图 5.4 “采购 管理 系统 ”数据 库 结构 
信息 表 (tb providerinfo) 、 员 工 信 息 表 (tb_Employee)、 
角色 信息 表 (tb_roleinfo) 、 角 色 功 能 表 (tb rolefunction) 、 部 门 信息 表 (tb department) 、 系 统 功 能 
信息 表 (tb_Sysfunctionlnfo) 、 操 作 员 信 息 表 (tb_operator) 、 采 购 申 请 主 表 (tb StockApply main) ~ 
采购 申请 明细 表 (tb_stockApp_sub)、 订 单 信息 表 Ctb. orderform) 、 采 购 入 库 表 (tb. intostorage main) ~ 
商品 信息 表 (tb_machandiseinfo) 、 商 品 库存 表 (tb merchandisestorage) 、 库 存 信息 表 (tb storageinfo) 
和 入 库 退 货主 表 (tb cancelin main) 和 入 库存 退货 明细 表 (tb cancelln sub) 。 由 于 篇 幅 关 系 ， 在 此 只 列 


(m 
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出 使 用 较 多 的 数据 表 结 构 ， 如 表 5$.1 一 表 5.6 所 示 ， 其 他 表 的 结构 请 参考 资源 包 。 
表 5.1 商品 信息 表 (tb_machandiseinfo) 






























字段 名 称 

ID | 

name | 名 称 
spec 是 | 规格 
shortmane | 助 记 码 
defaultprice | 默认 价格 
Imanufacturer | 





memo 


395.2 AF 货主 表 (tb cancelin main) 





字段 名 称 字段 类 型 x 外 是 否 为 空 描 
CancelID Varchar 是 退货 单 号 
ProviderID Varchar | | | | 供应 商 编号 
Operator varchar | |]. | 操作 员 
principal vaa | | | 负责 人 
Rebate float [E 折扣 
SumTotal mone | owl :| 总 计 
Paymone mone | | 应 返 余额 
Factmone mone [| 实 返 余额 
CancelTime Datetime | — [| | 返 货 时 间 











表 5.3 — 购 申 请 主 表 (tb StockApply main) 








Varchar 





billmaker varchar 





memo varchar 
AppDate datetime 








354 订单 信息 表 (tb_orderform) 



































billmaker Varchar 制 单 人 
ordertime datetime 日 期 
InStored smallint 是 否 入 库 
providerID varchar 供应 商 
sumtotal money 总 计 
Tebate money 折扣 














应 付 余额 
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表 5.5 供应 商 信息 表 (tb_providerinfo) 



































字段 名 称 字段 类 型 主 外 是 否 为 空 描 

供应 商 编 号 varchar 是 供应 商 编 号 
供应 商 名 称 Varchar 供应 商 名 称 
法 人 Varchar 法 人 

负责 人 Varchar 是 负责 人 
联系 电话 Varchar 是 联系 电话 
详细 地 址 Varchar 是 详细 地 址 
网 址 Varchar 是 网 址 

邮箱 Varchar 是 邮箱 

3k5.6 ” 购 申 请 明细 表 (tb stockApp sub) 

字段 名 称 | 字段 类 型 是 否 为 空 | s 
appID vahr | | 申请 单 号 
merchandiseID. varchar | | | 1j 商品 编号 
unitprice mone 是 单价 

[sum] float | | 数量 
Paymoney money | | —  —— || 是 余额 
Rebate float pl pl — 是 折扣 
BestTime datetime Its 是 建议 采购 日 期 
purpose varchar | 是 用 途 
providerid varchar | | | 是 供应 商 
orderform Varchar l| Ia 是 订单 号 
StockName char | | | 是 库存 名 称 





5.4.1 


5.4 数据 库 封装 类 说 明 


数据 库 封 装 类 概 


商品 采购 管理 系统 采用 ADO 技术 操作 数据 库 。 为 了 方便 ， 笔 者 将 程序 中 需要 用 到 的 ADO 对 象 进 


行 了 封装 。 


5.4.2 ”数据 库 封 装 类 步 


(1) 在 工作 





区 的 类 视图 的 MerchandiseSell classes 节点 上 右 击 , 在 弹出 的 快捷 菜单 中 选择 New Class 


命令 , 将 弹出 New Class 对 话 框 。 在 该 对 话 框 的 Class type 下 拉 列 表 框 中 选择 Generic Class 选项 , 在 Name 
文本 框 中 输入 “CDatabase”， 如 图 5.5 所 示 。 
(2) 单 击 OK 按钮 ， 生 成 自 定义 类 CDatabase， 如 图 5.6 所 示 。 


(m 
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G) 选择 此 类 ， 右 击 ， 在 弹出 的 快捷 菜单 中 ，Add Member Function 命令 用 于 添加 成 员 函 数 ，Add 
Member Variable 命令 用 于 添加 成 员 变量 ， 如 图 5.7 所 示 。 


= BiMerchandiseStere clas: 
^ BCMenu 
ws CHenuData 
ws BEHenuHenD 

























































































a lerchandiseStore classes i MS BCHenuToo1Bar- 
3 wa Phboutplg 
= *:BCMenuData. = me CButtonsT 
S Zi BCMenuMemDC CETT 
e NENNEN S SL, Add Member Variable- 
Clasa ype [Generic Class E] oK PE 
$ m Lil Derived cheees 
Class information Cancel a ma CM Base Classes.. 
Name: [CDatahase aest Add to Gallery 
E aa F a "etel 
Fle name:  Databacet.epp sre 
rm ssp Grup by Access 
Bose doss(es] = a zt v seo 
| Te 
pl a "e CIS EEO 
* ** CDIgSysFunctionlnfo: * mg CFre&oto 
= ** CMenulteminfo. 由 ** CPreParent 
m ** CMerchandiscStorcApp a mS CPreview 
= ** CMerchandiseStoreDlg 9 ** CToolBarbata 
= mS CPreGoto 由 S PRNINFO. 
| 让 ** CPreParent. * @ Globals 
| * MS CPreView. 
= ** CToolBarData 
由 ”3 PRNINFO 
= Œ Globalo —— E G 
PS Class.. | SS Resov...| 2) FileVicw) class… |$ Reso... 四 Pilev | || 
图 5.5 New Class 对 话 框 5.6 ”生成 自 定义 类 CDatabase — 图 5.7 添加 成 员 函 数 


(4) 添加 数据 库 操作 句柄 为 私有 变量 ， 如 图 5.8 所 示 。 
(5) 添加 数据 库 初 始 化 函数 ， 如 图 5.9 所 示 。 


Add Member Variable — CHUTE 


que = 
Function Declaration: Cancel. 








Variable Type: 
[.ConnectionPtr 










































































Variable Name: | 
im. Connection zm 
Access 一 C Pubie — r pcded — 6 Pd | 
C Public — C Protected — € Private. T CERA | 
图 5.8 添加 数据 库 操作 句柄 5.9 ”添加 数据 库 初始 化 函数 


和 注意 所 有 加 玫 汪 加 以 此 类推 


54.33 ”数据 库 封装 类 实现 程 


InitData 成 员 函 数 用 于 初始 化 数据 库 连接 ， 返 回 1 为 连接 成 功 ， 返 回 0 为 失败 。 
int CDatabase::InitData() 
{ 


char m_szConnect[512]; 
char m szTmp[1024]-""; 
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char m szHost[20], m_szUser[20], m_szPwd[20], m szDef[20]; 
GetPrivateProfileString( $u Fe", "主机 名 ", NULL, m szHost, sizeof(m szHost), IniFile); 
GetPrivateProfileString( 38 FE", "用 户 名 ", NULL, m. szUser, sizeof(m szUser), IniFile); 
GetPrivateProfileString(" 438 Fe", "密码 " NULL, m szPwd, sizeof(m szPwd), IniFile); 
GetPrivateProfileString(" S38 EE", " 认 库 ", NULL, m. szDef, sizeof(m  szDef), IniFile); 
try{ // 接 XdData 
HRESULT hr = m_Connection.Createlnstance(_uuidof(Connection)); 
sprintf(m szConnect,"provider = sqloledb;server-?6s;database-96s;", m szHost, m szDef); 
hrem Connection-»Open( bstr t(m szConnect), bstr t(m szUser), bstr t(m szPwd),-1); 
sprintf(m szTmp, 数据库 FERD"); 
) 
catch( com error & e) 
$ 
sprintf(m_szTmp, "数据 库 打 开 失 败 ，” 误 原因 : 9esin" LPCTSTR(e.Description())); 
return 0; 
) 
return 1; 


) 





IsVerifyUser 成 员 函 数 用 于 登录 校 验 管理 员 身份 。 





int CDatabase::IsVerifyUser(char *m szUser, char *m_szPwd, char *m szLevel) 


{ 
variant t v(OL); 
..RecordsetPtr m Rsp; 
char m szSql[512]; 
sprintf(m szSgl, "select * from tb operator where name = '%s' and password = '96s", m szUser, 
m szPwd); 
try 
m Rsp- m Connection-»Execute( bstr t(m szSgl), &v, adCmdText); 
ifm Rsp-»GetadoEOF()) 
{ 
v = m_Rsp->GetCollect("level"); 
if(atoi( bstr t(v)) == 0) 
t 
strcpy(m szLevel, "系统 管理 员 "); /系统 
) 
else 
t 
strcpy(m szLevel, " 普 £385". Ini 
} 
return 1; 
} 
} 
catch( com error & e) 
t 


char m szTmp[1024]; 
sprintf(m szTmp, "执行 ==>%s<==, 数据 库 操作 失败 ， 误 原 因 : %s\n",m_szSql, LPCTSTR(e.Description())); 
return -1; 
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return 0; 


} 
DeleteDataWhere 成 员 函 数 用 于 根据 条 件 删除 数据 库 中 的 记录 。 


void CDatabase::DeleteDataWhere(int m_nlndex, char *Fond) 
( 





char m szSql[512]; 
variant t v(OL); 
Switch(m nIndex) 


{ 
case OPT: 
{ 
sprintf(m szSql, "delete from tb operator where name = '%s", Fond); 
break; 
) 
case SPXXT: 
{ 
sprintf(m_szSql, "delete from tb merchandiseinfo where id = '?96s", Fond); 
break; 
) 
case GYSXX: 
{ 
sprintf(m szSql, "delete from tb_providerinfo where provider = '%s", Fond); 
break; 
) 
case KHXX: 
{ 
sprintf(m szSqgl, "delete from tb customerinfo where name = '%s", Fond); 
break; 
) 
case KCGL: 
{ 
sprintf(m_szSql, "delete from tb merchandisestorage where merchandiselD = '%s", Fond); 
break; 
) 
case SPRK: 
{ 
sprintf(m_szSql, "delete from tb instore main where ID = '?6s", Fond); 
break; 
) 
case RKTH: 
{ 
sprintf(m_szSql, "delete from tb cancelinstock main where CancellD = '%s", Fond); 
break; 
) 
case XSTH: 
1 
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sprintf(m szSgl, "delete from tb cancelsell main where CancellD = '%s", Fond); 





break; 
} 
case SPXS: 
{ 
sprintf(m szSgl, "delete from tb sell main where CancellD = '%s", Fond); 
break; 
) 
case GYSJK: 
{ 
sprintf(m szSgl, "delete from tb providerpay where PayID = '?6s", Fond); 
break; 
) 
case KHJK: 
{ 
sprintf(m_szSql, "delete from tb_customerpay where PaylD = '%s", Fond); 
break; 
) 
) 
try 
if(m_nIndex==SPRK) 
t 
m Connection-»Execute( bstr t(m szSql), &v, adCmdText); 
sprintf(m szSql, "delete from tb instock sub where instockid = '%s", Fond); 
) 
else if(m nIndex--RKTH) 
{ 
m_Connection->Execute(_bstr_t(m_szSql), &v, adCmdText); 
sprintf(m szSql, "delete from tb_cancelinstock_sub where CancellD = '96s", Fond); 
) 
else if(m nIndex--XSTH) 
{ 
m Connection-»Execute( bstr t(m szSql), &v, adCmdText); 
sprintf(m szSql, "delete from tb cancelsell sub where CancellD = '96s", Fond); 
) 
else if(m nIndex--SPXS) 
{ 
m Connection-»Execute( bstr t(m szSql), &v, adCmdText); 
sprintf(m szSgl, "delete from tb sell sub where CancellD = '%s", Fond); 
) 
m Connection-»Execute( bstr t(m szSql), &v, adCmdText); 
) 
catch( com error & e) 
( 
char m szTmp[1024]; 
sprintf(m szTmp, "执行 ==>%s<==， 数 据 库 操作 失败 ，” 误 原因 : 96s" m szSql, LPCTSTR(e.Description())); 
} 
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下 面 的 代码 用 于 将 所 需 数据 显示 在 LIST 列表 中 ， 与 名 为 List...ToCtr 的 函数 用 途 相同 ， 不 同 之 处 
在 于 操作 的 数据 表 不 同 。 


void CDatabase::ListCancellnStockToCtrl(CListCtrl *m hListCtrl) 
t 
m hListCtrl-»DeleteAllltems(); 
variant t v(OL); 
. RecordsetPtr m Rsp; 
char m szSql[512]; 
sprintf(m szSql, "select * from tb cancelinstock main a, tb cancelinstock sub b where a.CancellD = 
b.CancellD"); 
try 
m Rsp-m Connection-»Execute( bstr t(m szSgl), &v, adCmdText); 
while(Im Rsp-»GetadoEOF()) 
{ 
m_hListCtrl->Insertltem(0, ™"); 
v = m_Rsp->GetCollect("CancellD"); 
m_hListCtrl->SetltemText(0, 0, _bstr_t(v)); 
v = m_Rsp->GetCollect("Provider"); 
m_hListCtrl->SetltemText(0, 1, _bstr_t(v)); 
v = m_Rsp->GetCollect("operator"); 
m_hListCtrl->SetltemText(0, 2, _bstr_t(v)); 
v = m_Rsp->GetCollect("rebate"); 
m_hListCtrl->SetltemText(0, 3, _bstr_t(v)); 
v = m_Rsp->GetCollect("sumtotal"); 
m_hListCtrl->SetltemText(0, 4, _bstr_t(v)); 
v = m_Rsp->GetCollect("paymoney"); 
m_hListCtrl->SetltemText(0, 5, _bstr_t(v)); 
v = m_Rsp->GetCollect("factmoney"); 
m hListCtri-»SetltemText(0, 6, _bstr_t(v)); 
v = m_Rsp->GetCollect("stockname"); 
m_hListCtrl->SetltemText(0, 7, _bstr_t(v)); 
v = m_Rsp->GetCollect("merchandiselD"); 
m hListCtri-»SetltemText(0, 8, _bstr_t(v)); 
v = m_Rsp->GetCollect("unitPrice"); 
m_hListCtrl->SetltemText(0, 9, _bstr_t(v)); 
v = m_Rsp->GetCollect("numbers"); 
m_hListCtrl->SetltemText(0, 10, _bstr_t(v)); 
v = m_Rsp->GetCollect("paymoney"); 
m_hListCtrl->SetltemText(0, 11, _bstr_t(v)); 
v = m_Rsp->GetCollect("intime"); 
m_hListCtrl->SetltemText(0, 12, bstr t(v)); 
m Rsp-»MoveNext(); 
} 
) 
catch( com error & e) 
{ 
char m szTmp[1024]; 
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sprintfm_szTmp, "执行 ==>%s<==， 数 据 库 操作 失败 ， ” 误 原 因 : %s\n",m_szSql, LPCTSTR(e.Description())); 
} 


下 面 的 代码 用 于 将 所 需 数据 显示 在 对 应 的 编辑 框 中 ， 与 名 为 Edit..….ToCtrl 的 函数 用 途 相 同 ， 不 同 
之 处 在 于 操作 的 数据 表 不 同 。 


void CDatabase::EditCancellnStockToCtrl(char *CancellD, CEdit *m hEditCancellD, CEdit *m hEditUnitPrice, 
CEdit *m hEditSumTotal, CEdit *m hEditStockName, CEdit *n hEditRebate, CEdit *m hEditPayMoney, CEdit 
*m hEditOperator, CEdit *m hEditNumbers, CEdit *m hEditMerchandiselD, CEdit *m hEditFactMoney, CEdit 
*m hEditProvider) 
i 
variant t v(OL); 
.RecordsetPtr m Rsp, m Rsp1; 
char m szSql[512]; 
sprintf(m szSql, "select * from tb cancelinstock main where CancellD = '96s", CancellD); 
try 
m Rsp-m Connection-»Execute( bstr t(m szSql), &v, adCmdText); 
while(!Im Rsp-»GetadoEOF()) 
{ 
v = m_Rsp->GetCollect("CancellD"); 
m_hEditCancellD->SetWindowText(_bstr_t(v)); 
v = m_Rsp->GetCollect("Provider"); 
m_hEditProvider->SetWindowText(_bstr_t(v)); 
v = m_Rsp->GetCollect("operator"); 
m_hEditOperator->SetWindowText(_bstr_t(v)); 
v = m_Rsp->GetCollect("rebate"); 
m_hEditRebate->SetWindowText(_bstr_t(v)); 
v = m_Rsp->GetCollect("sumtotal"); 
m_hEditSumTotal->SetWindowText(_bstr_t(v)); 
v = m_Rsp->GetCollect("paymoney"); 
m_hEditPayMoney->SetWindowText(_bstr_t(v)); 
v = m_Rsp->GetCollect("factmoney"); 
m_hEditFactMoney->SetWindowText(_bstr_t(v)); 
sprintf(m_szSql, "select * from tb cancelinstock sub where SelllD = '%s", CancellD); 
m Rsp1 m Connection--Execute( bstr t(m szSgl), &v, adCmdText); 
if(Im Rsp1-»GetadoEOF()) 
t 
v = m Rsp1-»GetCollect("merchandiselD"); 
m hEditMerchandiselD-»SetWindowText( bstr t(v)); 
v-m Rsp1-»GetCollect("unitPrice"); 
m hkEditUnitPrice-»SetWindowText( bstr t(v)); 
v2m Rsp1-»GetCollect("numbers"); 
m hEditNumbers-»SetWindowText( bstr t(v)); 
v = m Rsp1-»GetCollect("stockname"); 
m hEditStockName-»SetWindowText( bstr t(v)); 
H 
m Rsp-»MoveNext(); 
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) 
catch( com error & e) 
( 
char m szTmp[1024]; 
sprintf(m szTmp, "执行 ==>%s<==, 数据 库 操作 失败 ， 误 原 因 : %s\n",m_szSql, LPCTSTR(e.Description())); 
) 


} 


下 面 的 代码 用 于 将 所 需 数据 更 新 ， 与 名 为 Update...ToCtrl 的 函数 用 途 相同 ， 不 同 之 处 在 于 操作 的 
数据 表 不 同 。 如 果 查 询 数据 存在 则 更 新 数据 ， 不 存在 则 插入 数据 。 


void CDatabase::UpdateKhxxData(char *name, char *principal, char *phone, char *addr, char *web, char *e mail) 
{ 





char m_szSql[512]; 
variant t v(OL); 
sprintf(m szSql, "select * from tb customerinfo where name = '%s", name); 
..RecordsetPtr m Rsp; 
try 
m Rsp-m Connection-»Execute( bstr t(m szSql), &v, adCmdText); 
if(im Rsp-»GetadoEOF()) 
{// 存 在 数据 ， 更 新 
sprintf(m szSql, "update th_customerinfo set principal = '%s', phone = '%s', addr = 96s, web = '%s', 
e mail = '%s' Where name = '%s", principal, phone, addr, web, e mail, name); 
m Connection-»Execute( bstr t(m szSql), &v, adCmdText); 
) 
else 
{// 不 存在 数据 ， 增 加 
sprintf(m szSql, "insert into tb_customerinfo (principal, phone, addr, web, e mail, name) Y 
values ('96s', '9os', '9os', '9os', 96s, '%s')" , principal, phone, addr, web, e mail, name); 
m Connection-»Execute( bstr t(m szSgql), &v, adCmdText); 


} 
} 
catch( com error & e) 
{ 
char m szTmp[1024]; 
sprintfm szTmp, "执行 ==>%s<==, 数据 库 操作 失败 ， 误 原因 : %s\n",m_szSql, LPCTSTR(e.Description())); 
) 


} 
ListDepartmentToCtrl 函数 的 代码 如 下 : 


void CDatabase::ListDepartmentToCtrl(CListCtrl *m hListCtrl) 


( 
m hListCtrl-2DeleteAllItems(); 


variant t v(OL); 

..RecordsetPtr m. Rsp; 

char m szSql[512]; 

sprintf(m szSgl, "select * from tb department"); 
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try 
m Rsp = m Connection-»Execute( bstr t(m szSgl), &v, adCmdText); 
while(Im. Rsp-»GetadoEOF()) 
( 
m hListCtrl-»Insertltem(0, ""); 
v-m Rsp--GetCollect("departmentname"); 
m hListCtri-^SetltemText(0, 0, bstr t(v)); 
m Rsp-»MoveNext(); 
) 
) 


catch( com error & e) 
( 
char m szTmp[1024]; 
sprint(m szTmp, "iAír--»96s«--, 数据库 操作 失败 ， RAA: %s\n",m_szSql, LPCTSTR 
(e.Description())); 
) 


H 
UpdateDepartmentData 函数 的 代码 如 下 : 








void CDatabase::UpdateDepartmentData(char *m_szName) 
{ 
char m_szSql[512]; 
_variant_t v(OL); 
try 
sprintf(m szSql, "insert into tb department (departmentname) values ('%s')", m szName); 
m Connection-»Execute( bstr t(m szSql), &v, adCmdText); 
) 
catch( com error & e) 
{ 
char m_szTmp[1024]; 
sprintf(m_szTmp, "执行 ==>%s<==， 数 据 库 操作 失败 ， RAA: %s\n",m_szSql, LPCTSTR 
(e.Description())); 
) 
H 


UpdateStockApplyData 函数 的 代码 如 下 : 


void CDatabase::UpdateStockApplyData(char *Department, char *unitprice,char *sum,char *StockName,char 
*Rebate,char *Purpose,char *providerid,char *orderform,char *proposer,char *Paymoney,char *merchandiselD, 
char *memo,char *Billmaker,char *Appid) 
{ 

char m_szSql[512]; 

. variant t v(OL); 
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try 
sprintf(m szSgl, "select * from tb StockApply main where appid = '%s", Appid); 
 .RecordsetPtr m. Rsp; 
m Rsp = m Connection-»Execute( bstr t(m szSgl), &v, adCmdText); 
ifm Rsp-»GetadoEOF()) 
{存在 ， 更 新 
sprintf(m szSgl, "update tb StockApply main set Department = '96s', V 
proposer = '%s', billmaker = '%s', memo = '%s' where appid='%s", 
Department, proposer,Billmaker,memo,Appid); 
m Connection-»Execute( bstr t(m szSql), &v, adCmdText); 
) 
else 
{// 不 存在 数据 ， 增 加 
sprintf(m_szSql, "insert into tb_StockApply_main (ApplD,Department, proposer,billmaker,memo, 
AppDate) Y 
values ('96s','96s','96s' "96s" ,'96s',GetDate())", Appid,Department, proposer,Billmaker, 
memo); 
m Connection-»Execute( bstr t(m szSql), &v, adCmdText); 
) 
sprintf(m szSql, "select * from tb orderform where orderiD = '%s", orderform); 
m Rsp-m Connection-»Execute( bstr t(m szSql), &v, adCmdText); 
ifm Rsp-»GetadoEOF()) 
UFE, EH 
sprintf(m_szSql, "update tb orderform set billmaker = '%s', V 
InStored = 96s, providerlD = '%s', sumtotal = 96s, rebate = '%s', paymoney = 96s Y 
where orderiD-'96s", 
Billmaker, O,providerid,sum,Rebate,Paymoney,orderform); 
) 
else 
{// 不 存在 数据 ， 增 加 
sprintf(m_szSql, "insert into tb_orderform (billmaker, InStored,providerlD,sumtotal,V 
rebate,paymoney,orderiD,ordertime) values ('96s',96d,' 96s", 96s,96s,96s,'96s',GetDate())", 
Billmaker, O,providerid,sum,Rebate,Paymoney,orderform); 
m Connection-»Execute( bstr t(m szSql), &v, adCmdText); 
H 
sprintf(m szSql, "select * from tb stockApp sub where appid = '"%s", Appid); 
m Rsp-m Connection-»Execute( bstr t(m szSgl), &v, adCmdText); 
ifm Rsp-»GetadoEOF()) 
{存在 ,更 新 
sprintf(m_szSql, "update tb stockApp sub set merchandiselD = '%s', V 
unitprice = %f [sum] = 96s, Rebate = 96s, purpose = '%s', providerid = '%s', orderform = 
"9os', StockName = '96s',Paymoney-"96s' where appid='%s"", 
merchandiselD, 
unitprice,sum,Rebate,Purpose,providerid,orderform,StockName,Paymoney,Appid); 
) 
else 
{不 存在 数据 ， 增 加 
sprintf(m_szSql, "insert into tb stockApp sub (merchandiselD, unitprice,sum,Rebate,Purpose, 
providerid,orderform,StockName,Appid,Paymoney,BestTime) V 
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values ('96s',96s,96s,96s,'96s' "6s" ,9%s',%s' ,9%s',%s,GetDate()) 
merchandiselD, 
unitprice,sum,Rebate,Purpose,providerid,orderform,StockName,Appid,Paymoney); 
m Connection-»Execute( bstr t(m szSqgl), &v, adCmdText); 
) 


catch( com error & e) 
t 
char m szTmp[1024]; 
sprint(m szTmp, "iAír--»96s«--, 数据库 操作 失败 ， RAA: 9osin"m szSql, LPCTSTR 
(e.Description())); 








55 主 窗 体 设计 


55.1 主 窗 体 概 


菜单 是 应 用 程序 经 常 使 用 的 界面 元 素 ， 对 应 应 用 程序 的 一 项 功能 ， 选 择 菜单 项 将 会 执行 已 定义 的 
操作 。 主 窗 体 运 行 效果 如 图 5.10 所 示 。 
ET HM CL 
【基础 信息 等 理 】 【条 则 管理 】 (FOA) 




















5.5.2 ” 主 窗 体 实现 程 


背景 画面 使 用 Control 工具 箱 中 的 Picture 控件 实现 , 该 控件 支持 BMP 位 图 模式 。 设 计 背 景 画 面 的 步 
又 如 下 : 


e. 
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(1) 在 Control 工具 箱 中 选择 Picture 控件 ， 在 窗 体 上 添加 一 个 Picture 控件 。 

(2) 在 Picture 控件 上 右 击 ， 在 弹出 的 快捷 菜单 中 选择 Properties 命令 ， 打 开 Picture Properties 对 
话 框 ， 在 该 对 话 框 中 选择 General 选项 卡 ， 如 图 5.11 所 示 。 

G) 在 Type 下 拉 列 表 框 中 选择 Bitmap 选项 ， 在 Image 下 拉 列 表 框 中 选择 IDB_BITMAP1 选项 ， 


如 图 5.12 所 示 。 


(4) 在 主 窗 口中 ， 所 有 菜单 都 是 通过 消息 映射 机 制 完成 的 ， 可 通过 类 向 导 菜 单 来 完成 映射 ， 如 



















































































5.13 所 示 。 
[repe c. g [— VE NENNEN E 2 
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图 5.11 General 选项 卡 
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图 5.12 设置 Picture 控件 背景 图 5.13 设置 消息 映射 机 


映射 代码 及 相关 函数 如 下 : 


ON_COMMAND(IDM_JCXXGL_BMXXGL, OnJcxxglBmxxgl) 
ON_COMMAND(IDM_JCXXGL_YGXXGL, OnJcxxglYgxxgl) 
ON COMMAND(IDM JCXXGL. XTGNGL, OnJcxxglXtgngl) 
ON. COMMAND(IDM JCXXGL, JSGL, OnJcxxglJsgl) 

ON COMMAND(IDM JCXXGL. CZYGL, OnJcxxglCzygl) 
ON. COMMAND(IDM JCXXGL. SPXXGL, OnJcxxglSpxxgl) 
ON. COMMAND(IDM JCXXGL. KCXXGL, OnJcxxglKcxxgl) 
ON COMMAND(IDM CGGL CGSQ, OnCgglCgsq) 

ON COMMAND(IDM CGGL CGRK, OnCgglCgrk) 

ON. COMMAND(IDM CGGL RKTH, OnCgglRkth) 

ON COMMAND(IDM CGCX CGSQCX, OnCgexCgsqcx) 
ON. COMMAND(IDM CGCX CGRKCX, OnCgcxCgrkcx) 
ON COMMAND(IDM CGCX RKTHCX, OnCgcxRkthcx) 
ON. COMMAND(IDM. WLZGL, GYSJK, OnWlzglGysik) 

void CMerchandiseStoreDlg::OnJcxxglBmxxgl() 





{ 
CDIgDepartment m hDlg; 
m hDlg.DoModal(); 
) 
void CMerchandiseStoreDlg::OnJcxxglY gxxgl() 
{ 
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CDIgEmployee m hDlg; 

m hDlg.DoModal(); 
) 
void CMerchandiseStoreDlg::OnJcxxglXtgngl() 
( 

CDIgSysFunctionInfo m hDlg; 

m hDlg.DoModal(); 


) 
void CMerchandiseStoreDlg::OnJcxxglJsgl() 
{ 
CDlgRoleinfo m hDlg; 
m hDlg.DoModal(); 
) 
void CMerchandiseStoreDlg::OnJcxxglCzygl() 
{ 
CDlgOperator m hDlg; 
m hDlg.DoModal(); 
) 
void CMerchandiseStoreDlg::OnJcxxglSpxxgl() 
{ 
CDlgSpxxgl m hDlg; 
m hDlg.DoModal(); 
) 
void CMerchandiseStoreDlg::OnJcxxglKcxxgl() 
t 
CDlgKcgl m hDlg; 
m hDlg.DoModal(); 
) 
void CMerchandiseStoreDlg::OnCgglCgsq() 
{ 
CDlgStockApply m hDlg; 
m hDlg.DoModal(); 
) 
void CMerchandiseStoreDlg::OnCgglCgrk() 
{ 


CDlgIntostorage m hDlg; 

m hDlg.DoModal(); 
) 
void CMerchandiseStoreDlg::OnCgglRkth() 
t 

CDlIgCancelin m hDlg; 

m hDlg.DoModal(); 
} 
void CMerchandiseStoreDIg::OnCgcxCgsqcx() 
{ 

m_nCxSelected = 1; 

CDlgPrint m hDlg; 

m hDlg.DoModal(); 


@ 
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) 
void CMerchandiseStoreDlg::OnCgcxCgrkcx() 
( 
m nCxSelected = 2; 
CDIgPrint m hDlg; 
m hDlg.DoModal(); 
) 
void CMerchandiseStoreDlg::OnCgcxRkthex() 
{ 
m nCxSelected = 3; 
CDlgPrint m hDlg; 
m hDlg.DoModal(); 
) 


在 MerchandiseStoreDlg.h 头 文件 中 加 入 如 下 代码 : 


class CMerchandiseStoreDlg : public CDialog 
{ 
public: 
CMerchandiseStoreDIg(CWnd* pParent = NULL); 
enum ( IDD = IDD MERCHANDISESTORE DIALOG }; 
protected: 
virtual void DoDataExchange(CDataExchange* pDX); 
protected: 
HICON m hicon; 


I((AFX MSG(CMerchandiseStoreDlg) 

virtual BOOL OnlnitDialog(); 

afx msg void OnSysCommand(UINT nID, LPARAM IParam); 

afx msg void OnPaint(); 

afx msg HCURSOR OnQueryDraglcon(); 

afx msg void OnJcxxglBmxxgl(); 

afx msg void OnJcxxglYgxxgl(); 

afx msg void OnJcxxglXtgngl(); 

afx msg void OnJcxxglJsgl(); 

afx msg void OnJcxxglCzygl(); 

afx msg void OnJcxxglSpxxgl(); 

afx msg void OnJcxxglKcxxgl(); 

afx msg void OnCgglCgsq(); 

afx msg void OnCgglCgrk(); 

afx msg void OnCgglRkth(); 

afx msg void OnCgcxCgsqcx(); 

afx msg void OnCgcxCgrkcx(); 

afx msg void OnCgcxRkthcx(); 

Il) AFX. MSG 

DECLARE, MESSAGE, MAP() 
k 
#endif 
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5.5.3 菜单 实现 程 


BCMenu 函数 实现 代码 如 下 : 


BCMenu::BCMenu() 

{ 
m_bDynlcons = FALSE; 
disable old style-FALSE; 
m iconX - 16; 
m iconY = 15; 
m selectcheck - -1; 
m unselectcheck = -1; 
checkmaps-NULL; 
checkmapsshare-FALSE; 
m bitmapBackground- RGB(192, 192,192); 
m bitmapBackgroundFlag-FALSE; 
GetCPInfo(CP. ACP,&CPInfo); 
m loadmenu-FALSE; 





BCMenu::-BCMenu() 
{ 

DestroyMenu(); 
) 


BOOL BCMenu::IsNewShell () 
( 

return (g. Shell»2Win95); 
) 


BOOL BCMenu::IsWinXPLuna() 
{ 
if(g_Shell==WinXPX 
if(IsWindowsClassicTheme())return(FALSE); 
else return(TRUE); 
) 
return(FALSE); 
} 


BOOL BCMenu::IsLunaMenuStyle() 
{ 
if(IsWinXPLuna()( 
if(xp. drawmodez-BCMENU. DRAWMODE. XPreturn(TRUE); 
) 
else( 
if(original drawmode--BCMENU DRAWMODE XP)jreturn(TRUE); 
3 





@ 
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return(FALSE); 
) 
BCMenuData::-BCMenuData() 
{ 

if(bitmap) 

delete(bitmap); 

delete[] m szMenuText; 
) 
功能 实现 代码 如 下 : 


void BCMenuData::SetWideString(const wchar_t *szWideString) 
{ 


delete[] m szMenuText; 


if (s?eWideString) 
( 
m szMenuText = new wchar, t[sizeof(wchar t)*(wcslen(szWideString)*1)]; 
if (m szMenuText) 
wcscpy(m szMenuText,szWideString); 


} 
else 
m_szMenuText=NULL; 
} 
BOOL BCMenu::IsMenu(CMenu *submenu) 
t 
int m; 
int numSubMenus = m AllSubMenus.GetUpperBound(); 
for(m=0;m<=numSubMenus;++m){ 
if(submenu->m_hMenu==m_AllSubMenus[m])return(TRUE); 
} 
return(FALSE); 
) 
BOOL BCMenu::IsMenu(HMENU submenu) 
t 
int m; 
int numSubMenus = m AllSubMenus.GetUpperBound(); 
for(m=0;m<=numSubMenus;++m){ 
if(submenu==m_AllSubMenus[m])return(TRUE); 
} 
return(FALSE); 
} 


BOOL BCMenu::DestroyMenu() 
{ 
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int m,n; 
int numAllSubMenus = m AllSubMenus.GetUpperBound(); 
for(n = numAllSubMenus; n>= 0; n--( 
ifím AllSubMenus[n]--this-»m hMenu)m AllSubMenus.RemoveAt(n); 
} 
int numSubMenus = m_SubMenus.GetUpperBound(); 
for(m = numSubMenus; m >= 0; m-( 
numAllSubMenus = m AllSubMenus.GetUpperBound(); 
for(n = numAllSubMenus; n»- 0; n--)( 
ifílm AllSubMenus[n]--m SubMenus[m])m AllSubMenus.RemoveAt(n); 
) 
CMenu *ptr-FromHandle(m SubMenus[m]); 
BOOL flag-ptr-»IsKindOf(RUNTIME CLASS(BCMenu)) 
if(flag)delete((BCMenu *)ptr); 
) 
m SubMenus.RemoveAIl(); 
int numltems = m MenuList.GetUpperBound(); 
for(m = 0; m <= numltems; m*-*)delete(m MenuList[m]); 
m MenuList.RemoveAIll(); 
if(checkmaps&&lcheckmapsshare)( 


delete checkmaps; 
checkmaps-NULL; 
) 
return(CMenu::DestroyMenu()); 
k 
int BCMenu::GetMenuDrawMode(void) 
{ 
if(ISWinXPLuna())return(xp. drawmode); 
return(original drawmode); 
k 
BOOL BCMenu::GetSelectDisableMode(void) 
{ 
if(IsLunaMenuStyle())return(xp_select_disabled); 
return(original_select_disabled); 
) 
void CDlIgIntostorage::OnBtnAdd() 
{ 
Switch(m hTablntostorage.GetCurSel()) 
t 
case 0: 
{ 
break; 
case 1: 
TabCtriOfSelect(0); 


break; 
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} 


} 

m_hEditID.SetWindowText(""); 

m hEditOperatorlD.SetWindowText("); 
m hEditOrderform.SetWindowText(""); 


m hEditlD.SetFocus(); 
m hBtnSave.EnableWindow(); 


5.66 采购 管理 模块 及 按键 设计 


采购 管理 模块 主要 包含 商品 采购 申请 、 采 购 入 库 和 入 库 退 货 功能 ， 涉 及 商品 采购 信息 的 添加 、 修 


改 、 删除 和 保存 等 操作 。 下 面 以 商品 采购 申请 模块 为 
例 ， 介 绍 采购 管理 程序 的 设计 方法 。 


5.6.1  ” 购 申 请 模块 概 


采购 申请 是 采购 部 门 根据 计划 部 门 的 物料 需求 
计划 , 向 上 级 业务 主管 部 门 提 交 购 货 申 请 。 采购 申请 
模块 运行 效果 如 图 5.14 所 示 。 


5.6.2  ” 购 申 请 模块 技术 分 析 


在 实现 商品 采购 管理 模块 时 需要 用 到 派生 于 
Cdialog 的 CDlgStockApply 类 ， 派 生 于 Cdialog 的 
CDlgStockApply 类 同样 可 以 重 载 Cdialog 的 虚 函 数 
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图 5.14 采购 申请 模块 运行 效果 


OnInitDialog， 在 窗口 初始 化 时 调用 InitCtrlData 方法 加 载 数据 ， 相 关 代码 如 下 : 





BOOL CDlgStockApply::OnlnitDialog() 
{ 
CDialog::OnlnitDialog(); 
InitCtriData(); 
return TRUE; 





5.6.3 购 申 请 模块 实现 程 


(1) 在 工作 区 的 类 视图 的 MerchandiseStore classes 节点 上 右 击 ， 在 弹出 的 快捷 菜单 中 选择 Insert 
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Dialog 命令 ， 打 开 Dialog 对 话 框 ， 如 图 5.15 所 示 。 í——— - 
C2) 在 Dialog 对 话 框 中 右 击 ， 在 弹出 的 快捷 菜单 中 选 —- 1 








3& Properties 命令 ,将 弹出 Dialog Properties 对 话 框 , 如 图 5.16 
所 示 。 
(3) 选择 General 选项 卡 ， 设 置 窗 体 ID 为 IDD DIG - 












































STOCKAPPLY， 设 置 Caption 为 “采购 申请 ”， 如 图 5.17 图 5.15 Dialog 对 话 框 
所 示 。 
Dialog Properties = Dialog Properties EF SE 
M? General | Styles | More Styles | Extended Styles | More E: H? General | Styles | More Styles | Extended Styles | More E: [Ty 
1: [ET 7]Gapton: Dialog 10: | -|caption | 采购 申请 
Fontname: System PUO a Font name: 朱 体 Meme = 
Fontsize: 10 ; 二 Fontsize: 9 
Font. | XPos: D  YPos: [0  Ciass name: [ Font... | X% Pos: [0 — YPos[ — Class name: [ 
















































































图 5.16 Dialog Properties 对 话 框 图 5.17 设置 对 话 框 的 ID 和 标题 
CA). 向 对 话 框 中 添加 一 个 群 组 框 资源 、 一 个 静态 文本 资源 、 一 个 编辑 框 资源 、 一 个 列表 控件 资源 
和 一 个 时 间 控 件 ， 如 图 5.18 所 示 。 
G) 更 改 静 态 文本 资源 的 标题 属性 为 “申请 单 号 ”， 如 图 5.19 所 示 。 
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| 
图 5.18 “采购 申请 ” 窗 体 设计 结果 图 5.19 更 改 静 态 文本 资源 显示 标题 


C60 更 改编 辑 框 资源 的 ID 为 IDC_EDIT_ APPID， 如 图 5.20 所 示 。 
CD 更 改 群 组 框 资源 的 ID Jy IDC TAB _StockApply， 如 图 5.21 所 示 。 






















































































ET Bj fc 
M? General | Styles | Extended Styles | H? General | Styles | More Styles | Extended Styles | 
1x m 二 10: i — -] 
F Visible I Group F Help 1D F Visible F Group F Help ID 
F Disabled M Tab stop F Disabled [f Tab stop 
图 5.20 ”更 改编 辑 框 资源 的 ID 521 ”更改 群 组 框 资源 的 ID 
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(8) 更 改 列表 控件 资源 的 ID 为 IDC_LIST_StockApply， 如 图 5.22 所 示 。 
C9) 以 此 类 推 ， 添 加 多 个 静态 文本 资源 和 编辑 框 资源 ， 设 置 相关 属性 ， 完 成 资源 创建 ， 如 图 5.23 
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图 5.22 更改 列表 控件 资源 的 ID 
Q0) 设置 各 主要 资源 属性 ， 如 表 5.7 所 示 。 
R57 资源 属性 设置 


对 象 名 称 资源 符号 
Static Box IDC STATIC 
Edit Box IDC EDIT OPNAME 
Button IDC BIN ADD 
Button IDC BIN DEL 
Button IDC BIN MOD 
Button IDC BIN SAVE 
Button IDOK 
List ctrl IDC LIST OP 
Tab Ctrl IDC TAB OP 





资源 变 


m hEditName 
m hBtnAdd 

m hBtnDel 

m hBtnMod 
m hBtnSave 
m hBtnOk 

m hListOp 

m hTabOp 





523 ”静态 文本 资源 和 编辑 框 资源 设计 结果 


资源 属性 
更 改 相 应 标题 
其 他 以 此 类 推 


标题 : 
标题 : 
标题 : 
标题 : 
标题 : 


View: 


默认 


增加 
删除 
修改 
保存 
关闭 
Report 


InitCtriData 成 员 函 数 用 于 初始 化 所 有 控件 内 容 及 属性 ， 代 码 如 下 : 


void CDlgStockApply::InitCtriData() 
{ 


m_hTabStockApply.Insertltem(0, ” 购 申 请 基本 信息 "); 
m_hTabStockApply.Insertltem(1, " 购 申 请 信息 列表 "); 
m hTabStockApply.ShowWindow(TRUE); 


m hListStockApply.InsertColumn(0, "申请 单 号 ", LVCFMT. CENTER, 50); 


m hListStockApply.InsertColumn(1, "使 用 ", LVCFMT. CENTER, 100); 


m hListStockApply.InsertColumn(2, "申请 人 ", LVCFMT. CENTER, 50); 
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m_hListStockApply.InsertColumn(3, " 制 表 人 ", LVCFMT_CENTER, 50); 

m hListStockApply.InsertColumn(4, "备注 ", LVCFMT_CENTER, 60); 
m_hListStockApply.InsertColumn(5, "商品 编号 ", LVCFMT_CENTER, 50); 

m hListStockApply.InsertColumn(6, "单价 ", LVCFMT_CENTER, 50); 

m hListStockApply.InsertColumn(7, " 数 ", LVCFMT_CENTER, 50); 

m hListStockApply.InsertColumn(8," ^ ", LVCFMT. CENTER, 50); 

m hListStockApply.InsertColumn(9, "折扣 ", LVCFMT. CENTER, 50); 

m hListStockApply.InsertColumn(10, "用 ", LVCFMT. CENTER, 100); 

m. hListStockApply.InsertColumn(11, "供应 商 ", LVCFMT. CENTER, 100); 
m. hListStockApply.InsertColumn(12, "订单 号 " LVCFMT. CENTER, 100); 

m hListStockApply.InsertColumn(13, "库存 名 称 ", LVCFMT. CENTER, 100); 
m hListStockApply.SetExtendedStyle(m hListStockApply.GetStyle()| LV5. EX FULLROWSELECT); 


m hBtnOk.Setlcon(IDI ICON. CLOSE); 
m hBtnOk.OffsetColor(CButtonST::BTNST COLOR BK IN, shBtnColor); 
m hBtnOkK.SetColor(CButtonST::BTNST. COLOR FG IN, RGB(0, 128, 0)); 


m hBtnSave.Setlcon(IDI ICON OK); 

m hBtnSave.OffsetColor(CButtonST::BTNST COLOR BK IN, shBtnColor); 
m hBtnSave.SetColor(CButtonST:BTNST COLOR FG IN, RGB(0, 128, 0)); 
m hBtnSave.EnableWindow(FALSE); 


m hBtnDel.Setlcon(IDI ICON, DEL); 
m hBtnDel.OffsetColor(CButtonST::BTNST. COLOR BK IN, shBtnColor); 
m hBtnDel.SetColor(CButtonST::BTNST COLOR FG IN, RGB(0, 128, 0)); 


m hBtnAdd.Setlcon(IDI ICON ADD); 
m hBtnAdd.OffsetColor(CButtonST::BTNST COLOR BK IN, shBtnColor); 
m hBtnAdd.SetColor(CButtonST::BTNST COLOR FG IN, RGB(0, 128, 0)); 


m hBtnMod.Setlcon(IDI ICON MOD); 
m hBtnMod.OffsetColor(CButtonST::«BTNST COLOR BK IN, shBtnColor); 
m hBtnMod.SetColor(CButtonST::BTNST. COLOR FG, IN, RGB(0, 128, 0)); 


TabCtrlOfSelect(1); 
m hDatabase.InitEmployeeData(&m hCmbDepartment); 
) 


TabCtrlOfSelect 成 员 函 数 用 于 切换 选项 卡 ， 代 码 如 下 : 


void CDIgStockApply::TabCtrlOfSelect(int m_nSelected) 
{ 

Switch(m_nSelected) 

{ 


case 0: 


( 
m hTabStockApply.SetCurSel(0); 
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m hEditUnitprice.ShowWindow(TRUE); 
m hEditSum.ShowWindow(TRUE); 

m hEditStockname.ShowWindow(TRUE); 

m hEditRebate.ShowWindow(TRUE); 

m hEditPurpose.ShowWindow(TRUE); 

m hEditProviderid.ShowWindow(TRUE); 

m hEditProposer.ShowWindow(TRUE); 

m hEditPaymoney.ShowWindow(TRUE); 

m hEditOrderform.ShowWindow(TRUE); 

m hEditMerchandiselD.ShowWindow(TRUE); 
m hEditMemo.ShowWindow(TRUE); 

m hEditBillmaker.ShowWindow(TRUE); 

m hEditAppid.ShowWindow(TRUE); 

m hCmbDepartment.ShowWindow(TRUE); 

m hListStockApply.ShowWindow(FALSE); 

m hEditAppid.SetFocus(); 

break; 


case 1: 


m hTabStockApply.SetCurSel(1); 
m hEditUnitprice.ShowWindow(FALSE); 
m hEditSum.ShowWindow(FALSE); 
m hEditStockname.ShowWindow(FALSE); 
m hEditRebate.ShowWindow(FALSE); 
m hEditPurpose.ShowWindow(FALSE); 
m hEditProviderid.ShowWindow(FALSE); 
m hEditProposer.ShowWindow(FALSE); 
m hEditPaymoney.ShowWindow(FALSE); 
m hEditOrderform.ShowWindow(FALSE); 
m hEditMerchandiselD.ShowWindow(FALSE); 
m hEditMemo.ShowWindow(FALSE); 
m hEditBillmaker.ShowWindow(FALSE); 
m. hEditAppid.ShowWindow(FALSE); 
m hCmbDepartment.ShowWindow(FALSE); 
m hListStockApply.ShowWindow(TRUE); 
break; 
} 
} 
m_hDatabase.ListStockApplyToCtrl(&m_hListStockApply); 
) 


处 理 “ 增 加 ”按钮 的 单 击 事件 ， 判 断 当前 所 处 选项 卡 ， 切 换 至 增加 内 容 页 面 ， 清 空 所 有 内 容 ， 代 
码 如 下 ; 


ji 
Switch(m hTabCancelSell.GetCurSel()) 


t 


case 0: 
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{ 
break; 

) 

case 1: 

( 
TabCtrlOfSelect(0); 
break; 

H 


) 
m hkEditUnitPrice.SetWindowText(""); 
m hEditSumTotal.SetWindowText(""); 
m hEditStockName.SetWindowText(""); 
m hkEditRebate.SetWindowText(""); 
m hEditPayMoney.SetWindowText(""); 
m hkEditOperator.SetWindowText("); 
m hkEditMerchandiselD.SetWindowText(""); 
m hEditFactMoney.SetWindowText(""); 
m hEditCustomer.SetWindowText(""); 
m hkEditCancellD.SetWindowText(""); 
m hEditNumbers.SetWindowText(""); 
m hkEditCancellD.SetFocus(); 
m hBtnSave.EnableWindow(); 
) 





处 理 “ 修 改 ” 按 钮 的 命令 消息 ， 代 码 如 下 : 





{ 
switch(m_hTabCancelSell.GetCurSel()) 


{ 


case 0: 
break; 
case 1: 


ifím hListCancelSell.GetSelectionMark() == -1) 
切 未 被 中 
MessageBox(" 请 “ 择 欲 修改 条 目 ""); 
return; 
} 
break; 
i 
) 
TabCtrlOfSelect(0); 
m hBtnSave.EnableWindow(); 
m hEditCancellD.SetFocus(); 
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处 理 “ 删 除 ” 按 钮 的 命令 消息 ,删除 当前 记录 。 其 中 ，DeleteDataWhere 为 数据 库 操作 自 定义 函数 ， 
请 查看 5.4.3 节 数 据 库 封装 类 实现 过 程 。 


t 
if(m hListCancelSell.GetSelectionMark() == -1) 
QURE 中 
MessageBox(" 请 ” 择 欲 删 RAN); 
return; 
) 
char m szCancellD[30*-1]; 
m hListCancelSell.GetltemText(m hListCancelSell.GetSelectionMark(), 0, m szCancellD, sizeof(m . 
szCancellD)); 
m hDatabase.DeleteDataWhere(SPXS, m szCancellD); 
TabCtrlOfSelect(1); 
) 


处 理 “ 保 存 ” 按 钮 的 命令 消息 ， 其 中 ，UpdateOpData 为 数据 库 操作 自 定义 函数 ， 主 要 代码 如 下 : 
( 








char CancellD[30*1], Customer[30+1], ooperator[50+1], rebate[10+1], sumtotal[10--1], paymoney[10- 1], 
factmoney[10-1], intime[20+1]="", merchandiselD[30--1], unitPrice[10*-1], numbers[10+1], stockname[30-1]; 

m hEditCancellD.GetWindowText(CancellD, sizeof(CancellD)); 

m hEditCustomer.GetWindowText(Customer, sizeof(Customer)); 

m hEditOperator.GetWindowText(ooperator, sizeof(ooperator)); 

m hEditRebate.GetWindowText(rebate, sizeof(rebate)); 

m hEditSumTotal.GetWindowText(sumtotal, sizeof(sumtotal)); 

m hEditPayMoney.GetWindowText(paymoney, sizeof(paymoney)); 

m hEditFactMoney.GetWindowText(factmoney, sizeof(factmoney)); 

m hkEditMerchandiselD.GetWindowText(merchandiselD, sizeof(merchandiselD)); 

m hkEditUnitPrice.GetWindowText(unitPrice, sizeof(unitPrice)); 

m hEditNumbers.GetWindowText(numbers, sizeof(numbers)); 

m hEditStockName.GetWindowText(stockname, sizeof(stockname)); 

/保存 修改 ， 更 新 数据 库 

m hDatabase.UpdateSellData(CancellD,Customer,ooperator,rebate,sumtotal,paymoney,factmoney,intime, 
merchandiselD,unitPrice,numbers,stockname); 

m hBtnSave.EnableWindow(FALSE); 
) 


OnDDbIcIKLISTStockApply 函数 的 代码 如 下 : 
void CDlgStockApply::OnDblclkLISTStockApply( NMHDR* pNMHDR, LRESULT* pResult) 
{ 

TabCtriOfSelect(0); 


*pResult = 0; 
) 


OnClickListOp 为 ListCtrl 单 击 响 应 事件 ， 其 中 ，EditOpToCtrl 为 数据 库 操 作 自 定义 函数 ， 主 要 代 
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码 如 下 : 
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char CancellD[30+1]; 

m hListCancelSell.GetltemText(m hListCancelSell.GetSelectionMark(), 0, CancellD, sizeof(CancellD)) ; 

m hDatabase.EditSellToCtri(CancellD, &m hEditCancellD, &m hEditUnitPrice, &m hEditSumTotal, 
&m hEditStockName, &m hEditRebate, &m hEditPayMoney, &m hEditOperator, &m hEditNumbers, 
&m hEditMerchandiselD, &m hEditFactMoney, &m hEditCustomer) ; 

*pResult = 0; 


) 
I/OnDblcikListOp 为 ListCtrl 双击 响应 事件 ， 双 击 结果 即 为 。 卡 切 换 程 
{ 
TabCtrlOfSelect(0); 
*pResult = 0; 
) 


OnSelchangeTABStockApply 函数 的 代码 如 下 : 








void CDIlgStockApply::OnSelchangeTABStockApply(NMHDR* pNMHDR, LRESULT* pResult) 
{ 

Switch(m hTabStockApply.GetCurSel()) 

t 


case 0: 
{ 
TabCtrlOfSelect(0); 
break; 
) 
case 1: 
{ 
TabCtrlOfSelect(1); 
break; 
} 
} 
*pResult = 0; 


} 
对 应 的 DlgStockApply.h 头 文件 的 代码 如 下 : 


class CDlgStockApply : public CDialog 
{ 
public: 
CDlgStockApply(CWnd* pParent = NULL); 





II((AFX DATA(CDlgStockApply) 

enum { IDD = IDD. DLG, STOCKAPPLY }; 
CTabCtrl m hTabStockApply; 

CListCtrl m. hListStockApply; 

CButtonST m hBtnOk; 

CEdit — m hEditUnitprice; 

CEdit m hEditSum; 





第 5 章 商品 采购 管理 系统 (Visual C++ 6.0+SQL Server 2014 实现 ) 








CEdit m hEditStockname; 
CEdit m hEditRebate; 

CEdit m hEditPurpose; 

CEdit m hEditProviderid; 
CEdit m hEditProposer; 
CEdit m hEditPaymoney; 
CEdit m hEditOrderform; 
CEdit m hEditMerchandiselD; 
CEdit m hEditMemo; 

CEdit m hkEditBillmaker; 
CEdit m hEditAppid; 
CDateTimeCtrl m hDtpAppdate; 
CDateTimeCtrl m hDtpBesttime; 
CComboBox m hCmbDepartment; 
CButtonST m hBtnSave; 
CButtonST m hBtnMod; 
CButtonST m hBtnDel; 
CButtonST m hBtnAdd; 
I)AFX DATA 


II((AFX. VIRTUAL(CDIgStockApply) 
protected: 

virtual void DoDataExchange(CDataExchange* pDX); 
Il) AFX. VIRTUAL 


protected: 


IK(AFX MSG(CDlgStockApply) 
virtual BOOL OnlnitDialog(); 
afx msg void OnBtnAddq(); 
afx msg void OnBtnDel(); 
afx msg void OnBtnMod(); 
afx msg void OnBtnSave(); 
afx msg void OnClickLISTStockApply(:NMHDR* pNMHDR, LRESULT* pResult); 
afx msg void OnDbIclkLISTStockAppl(NMHDR* pNMHDR, LRESULT* pResult); 
afx msg void OnSelchangeTABStockApply(NMHDR* pNMHDR, LRESULT* pResult); 
Il) AFX. MSG 
DECLARE MESSAGE MAP() 
private: 
void TabCtrlOfSelect(int m. nSelected); 
void InitCtriData(); 
k 


II(AFX, INSERT. LOCATION) 


#endif 
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5.6.4 ”购物 品 操作 模块 实现 dE 


显示 采购 信息 的 代码 如 下 : 


void CDlgOperator::InitCtriData() 

{ 
m_hBtnOk.Setlcon(IDLICON_CLOSE); 
m_hBtnOk.OffsetColor(CButtonST::BTNST_COLOR_BK_IN, shBtnColor); 
m_hBtnOk.SetColor(CButtonST::BTNST_COLOR_FG_IN, RGB(0, 128, 0)); 


m hBtnSave.Setlcon(IDI ICON OK); 

m hBtnSave.OffsetColor(CButtonST::BTNST COLOR BK IN, shBtnColor); 
m hBtnSave.SetColor(CButtonST:-BTNST COLOR FG IN, RGB(0, 128, 0)); 
m hBtnSave.EnableWindow(FALSE); 


m hBtnDel.Setlcon(IDI ICON, DEL); 
m hBtnDel.OffsetColor(CButtonST::«BTNST. COLOR BK IN, shBtnColor); 
m hBtnDel.SetColor(CButtonST::BTNST COLOR FG IN, RGB(0, 128, 0)); 


m hBtnAdd.Setlcon(IDI ICON. ADD); 
m hBtnAdd.OffsetColor(CButtonST::-BTNST COLOR BK IN, shBtnColor); 
m hBtnAdd.SetColor(CButtonST::BTNST. COLOR FG IN, RGB(0, 128, 0)); 


m hTabOperator.Insertltem(0, "操作 员 基 本 信息 "); 
m_hTabOperator.Insertltem(1, "操作 员 信 息 列表 "); 
m hTabOperator.ShowWindow(TRUE); 


m hListOperator.InsertColumn(0, "编号 ", LVCFMT. CENTER, 50); 

m hListOperator.InsertColumn(1, "姓名 ", LVCFMT. CENTER, 80); 

m hListOperator.InsertColumn(2, "密码 ", LVCFMT. CENTER, 80); 

m hListOperator.InsertColumn(3, "角色 ", LVCFMT. CENTER, 80); 

m hListOperator.SetExtendedStyle(m hListOperator.GetStyle() | VS EX FULLROWSELECT); 
TabCtrlOfSelect(1); 

m hDatabase.InitOperatorData(&m hCmbRole); 


5.6.5 购 添加 物品 模块 实现 ” 程 


映射 代码 如 下 : 





BEGIN. MESSAGE, MAP(CDlglntostorage, CDialog) 
II((AFX MSG, MAP(CDlgIntostorage) 
ON NOTIFY(NM CLICK, IDC LIST Intostorage, OnClickLISTIntostorage) 
ON, NOTIFY(NM. DBLCLK, IDC. LIST. Intostorage, OnDblclkLISTIntostorage) 
ON NOTIFY(TCN SELCHANGE, IDC TAB Intostorage, OnSelchangeTABIntostorage) 


@ 
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ON_BN_CLICKED(IDD_BTN_ADD, OnBtnAdd) 
ON_BN_CLICKED(IDD_BTN_DEL, OnBtnDel) 
ON_BN_CLICKED(IDD_BTN_MOD, OnBtnMod) 
ON_BN_CLICKED(IDD_BTN_SAVE, OnBtnSave) 
II AFX. MSG, MAP 


END MESSAGE, MAP() 


利用 InitCtrlData 函数 添加 数据 ， 实 现代 码 如 下 : 





void CDlgIntostorage::InitCtriData() 


í 


} 


m_hBtnOk.Setlcon(IDLICON_CLOSE); 
m hBtnOk.OffsetColor(CButtonST::BTNST COLOR BK IN, shBtnColor); 
m hBtnOk.SetColor(CButtonST::BTNST. COLOR FG IN, RGB(0, 128, 0)); 


m hBtnSave.Setlcon(IDI ICON OK); 

m hBtnSave.OffsetColor(CButtonST::BTNST COLOR BK IN, shBtnColor); 
m hBtnSave.SetColor(CButtonST::BTNST COLOR FG IN, RGB(0, 128, 0)); 
m hBtnSave.EnableWindow(FALSE); 


m hBtnDel.Setlcon(IDI ICON, DEL); 
m hBtnDel.OffsetColor(CButtonST::«BTNST. COLOR BK IN, shBtnColor); 
m hBtnDel.SetColor(CButtonST::BTNST COLOR FG IN, RGB(0, 128, 0)); 


m hBtnAdd.Setlcon(IDI ICON. ADD); 
m hBtnAdd.OffsetColor(CButtonST::BTNST, COLOR, BK IN, shBtnColor); 
m hBtnAdd.SetColor(CButtonST::BTNST, COLOR FG, IN, RGB(0, 128, 0)); 


m hBtnMod.Setlcon(IDI ICON. MOD); 
m hBtnMod.OffsetColor(CButtonST::BTNST. COLOR BK IN, shBtnColor); 
m hBtnMod.SetColor(CButtonST:-BTNST COLOR FG IN, RGB(0, 128, 0)); 


m hTabintostorage.Insertltem(0, "入 库 基本 信息 "); 
m hTablntostorage.Insertltem(1, "入 库 信 息 列表 "); 
m_hTablntostorage.ShowWindow( TRUE); 


m_hListintostorage.InsertColumn(0, "入 库 单 号 ", LVCFMT_CENTER, 100); 

m hListIntostorage.InsertColumn(1, "订单 号 ", LVCFMT CENTER, 100); 

m hListIntostorage.InsertColumn(2, "操作 员 ", LVCFMT. CENTER, 100); 

m hListIntostorage.InsertColumn(3, "入 库 时 ", LVCFMT. CENTER, 100); 

m hListIntostorage.SetExtendedStyle(m hListIntostorage.GetStyle() | V5. EX FULLROWSELECT); 
TabCtrlOfSelect(1); 





选择 删除 条 目 信息 代码 如 下 : 


void CDIgOperator::OnBtnDel() 


{ 


181 


C++ 项 目 开发 全 程 实录 (第 2 版 ) 








if(m hListOperator.GetSelectionMark() == -1) 


也 未 被 中 
MessageBox(iB ” 择 欲 删 RAM; 
return; 

) 


char m szID[30*1]; 
m hListOperator.GetltemText(m hListOperator.GetSelectionMark(), 0, m szlD, sizeof(m szlD)); 
m hDatabase.DeleteDataWhere(OP, m szID); 
m hbDatabase.ListOperatorToCtrl(&m hListOperator); 
) 


修改 条 目 代码 如 下 : 


void CDIgOperator:OnBtnMod() 

{ 
Switch(m hTabOperator.GetCurSel()) 
{ 


case 0: 
break; 
case 1: 


ifím hListOperator.GetSelectionMark() == -1) 
(ARMES 中 
MessageBox("i HAARE"); 
return; 
) 
break; 
} 


) 
TabCtrlOfSelect(0); 


m hBtnSave.EnableWindow(); 
m hEditlD.SetFocus(); 
) 


保存 修改 ， 更 新 数据 的 代码 如 下 : 


void CDlgOperator::OnBtnSave() 


{ 
char m_szlD[30+1], m_szName[30+1], m_szPassword[30+1], m_szRole[30+1]; 


m hEditlD.GetWindowText(m szID, sizeof(m szlD)); 

m hEditName.GetWindowText(m szName, sizeof(m szName)); 

m hEditPassword.GetWindowText(m szPassword, sizeof(m szPassword)); 
m hCmbRole.GetWindowText(m szRole, sizeof(m szRole)); 


@ 
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/保存 修改 ， 更 新 数据 库 
m hDatabase.UpdateOperatorData(m szID,m szName,m szPassword,m szRole); 


m hBtnSave.EnableWindow(FALSE); 


) 
BOOL CDIgOperator::PreTranslateMessage(MSG* pMsg) 


{ 


return CDialog::PreTranslateMessage(pMsg); 
) 


void CDlgOperator::OnBtnAdd111() 

{ 
Switch(m hTabOperator.GetCurSel()) 
$ 


case 0: 
{ 
break; 
) 
case 1: 
{ 
TabCtrlOfSelect(0); 
break; 


) 
) 
m hEditlD.SetWindowText(""); 
m hEditName.SetWindowText(""); 
m hkEditPassword.SetWindowText(""); 
m hCmbhRole.SetWindowText(""); 


m hBtnSave.EnableWindow(); 





5.66.6 iE 设计 
(1) 首页 OnTop 函数 实现 代码 如 下 : 


void CPreParent::OnTop() 
{ 
m PosPage = 1; 
pPreView-»SetCurrentPage(m nCountPage, m PosPage); 


m wndtoolbar.SendMessage(TB ENABLEBUTTON, TBTN. TOP, FALSE); 
m wndtoolbar.SendMessage(TB ENABLEBUTTON, TBTN PREVIOUS, FALSE); 
m wndtoolbar.SendMessage(TB ENABLEBUTTON, TBTN NEXT, TRUE); 
m wndtoolbar.SendMessage(TB ENABLEBUTTON, TBTN LAST, TRUE); 
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UpdatePreViewWnd(); 


(2) 上 一 页 OnPrevious 函数 实现 代码 如 下 : 


void CPreParent::OnPrevious() 
{ 
m_PosPage--; 
pPreView->SetCurrentPage(m_nCountPage, m_PosPage); 
if(m_PosPage<=1) 
{ 
m_wndtoolbar.SendMessage(TB_ENABLEBUTTON, TBTN_TOP, FALSE); 
m wndtoolbar.SendMessage(TB ENABLEBUTTON, TBTN PREVIOUS, FALSE); 
m wndtoolbar.SendMessage(TB ENABLEBUTTON, TBTN NEXT, TRUE); 
m wndtoolbar.SendMessage(TB ENABLEBUTTON, TBTN LAST, TRUE); 


m wndtoolbar.SendMessage(TB ENABLEBUTTON, TBTN TOP, TRUE); 
m wndtoolbar.SendMessage(TB ENABLEBUTTON, TBTN PREVIOUS, TRUE); 
m wndtoolbar.SendMessage(TB ENABLEBUTTON, TBTN NEXT, TRUE); 
m wndtoolbar.SendMessage(TB ENABLEBUTTON, TBTN LAST, TRUE); 
) 
UpdatePreViewWnd(); 





(3) 转 到 OnGoto 函数 实现 代码 如 下 : 





void CPreParent::OnGoto() 
{ 
int nPage = 1; 
int m = m nCount-m OneCount; 
int n = m/m NextCount; 
nPage *- n; 
n = m?óm NextCount; 
if(n>0) 
nPage++; 
CPreGoto cpg; 
cpg.nMax = nPage; 
cpg.nCurPage = m_PosPage; 
if(cpg.DoModal()) 
{ 
m_PosPage = cpg.nGoto; 
pPreView->SetCurrentPage(m_nCountPage, m PosPage); 
ifm PosPage > 1 && m PosPage« m nCountPage) 
i 
m_wndtoolbar.SendMessage(TB_ENABLEBUTTON, TBTN TOP, TRUE); 
m wndtoolbar.SendMessage(TB ENABLEBUTTON, TBTN PREVIOUS, TRUE); 


@ 
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m, wndtoolbar.SendMessage(TB ENABLEBUTTON, TBTN NEXT, TRUE); 
m. wndtoolbar.SendMessage(TB ENABLEBUTTON, TBTN LAST, TRUE); 
) 
ifílm PosPage == 1) 
OnTop(); 
ifílm PosPage == m nCountPage) 
OnLast(); 
J 


UpdatePreViewWnd(); 





(4) 下 一 页 OnNext 函数 实现 代码 如 下 : 


void CPreParent::OnNext() 
{ 
m PosPage**; 
pPreView-»SetCurrentPage(m nCountPage, m PosPage); 


int nSpare - 0; 
nSpare = m nCount - m PosPage*m NextCount; 
if(m PosPage <= 2) 

nSpare *-(m NextCount - m OneCount); 


m wndtoolbar.SendMessage(TB ENABLEBUTTON, TBTN TOP, TRUE); 
m wndtoolbar.SendMessage(TB ENABLEBUTTON, TBTN PREVIOUS, TRUE); 


if(nSpare»0) 

{ 
m_wndtoolbar.SendMessage(TB_ENABLEBUTTON, TBTN_NEXT, TRUE); 
m_wndtoolbar.SendMessage(TB_ENABLEBUTTON, TBTN LAST, TRUE); 


else 
{ 
m_wndtoolbar.SendMessage(TB_ENABLEBUTTON, TBTN_NEXT, FALSE); 
m_wndtoolbar.SendMessage(TB_ENABLEBUTTON, TBTN LAST, FALSE); 
) 
UpdatePreViewWnd(); 


(5) 尾 页 OnLast 函数 实现 代码 如 下 : 
void CPreParent::OnLast() 
{ 
m_PosPage = m_nCountPage; 


pPreView-»SetCurrentPage(m nCountPage, m PosPage); 


m wndtoolbar.SendMessage(TB. ENABLEBUTTON, TBTN TOP, TRUE); 
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m wndtoolbar.SendMessage(TB ENABLEBUTTON, TBTN_PREVIOUS, TRUE); 
m wndtoolbar.SendMessage(TB ENABLEBUTTON, TBTN. NEXT, FALSE); 
m wndtoolbar.SendMessage(TB ENABLEBUTTON, TBTN LAST, FALSE); 
UpdatePreViewWnd(); 

) 


C6) 退出 OnExit 和 打印 OnPrint 函数 实现 代码 如 下 : 





void CPreParent::OnExit() 


SendMessage(WM SYSCOMMAND, SC, CLOSE, NULL); 
) 


void CPreParent::OnPrint() 
{ 
pPreView->PrintDoc(); 


BOOL CPreParent::DestroyWindow() 
t 
if(IsWindow(m wndtoolbar.m hWnd)) 
m wndtoolbar.DestroyWindow(); 
if(pPreView != NULL) 
{ 
pPreView-»DestroyWindow(); 
delete pPreView; 


) 


return CDialog::DestroyWindow(); 
$ 


void CPreParent::UpdatePreViewWnd() 
{ 


pPreView->SendMessage(WM_PAINT, NULL, NULL); 


57 基本 信息 模块 设计 





5.7.1 基本 信息 模块 概 


基本 信息 模块 包括 部 门 信息 管理 、 员 工 信 息 管理 、 系 统 功能 管理 、 角 色 管 理 、 操 作 员 管 理 、 商 品 
信息 管理 和 库存 信息 管理 。 如 图 5.24 所 示 是 基本 信息 模块 的 主 窗 体 。 


(OS 
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图 524 基本 信息 模块 主 窗 体 
57.2 基本 信息 模块 技术 分 析 


在 实现 商品 采购 管理 模块 时 需要 用 到 派生 于 Cdialog 的 CDlgEmployee 类 ， 派 生 于 Cdialog 的 
CDlgEmployee 类 同样 可 以 重 载 Cdialog 的 虚 函 数 OnInitDialog， 在 窗口 初始 化 时 调用 InitCtriData 方法 
加 载 数据 ， 相 关 代码 如 下 : 





BOOL CDIgEmployee::OnlnitDialog() 
{ 
CDialog::OnlnitDialog(); 
InitCtriData(); 


return TRUE; 





57.3 ”基本 信息 模块 实现 程 


(1) 部 门 管理 信息 的 实现 代码 如 下 : 





void CDIgDepartment::InitCtriData() 

{ 
m_hBtnOk.Setlcon(IDI_ICON_CLOSE); 
m_hBtnOk.OffsetColor(CButtonST::BTNST_COLOR_BK_IN, shBtnColor); 
m_hBtnOk.SetColor(CButtonST::BTNST_COLOR_FG_IN, RGB(0, 128, 0)); 


m hBtnSave.Setlcon(IDI ICON OK); 
m hBtnSave.OffsetColor(CButtonST:BTNST COLOR BK IN, shBtnColor); 
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m hBtnSave.SetColor(CButtonST::-BTNST. COLOR FG. IN, RGB(0, 128, 0)); 
m hBtnSave.EnableWindow(FALSE); 


m hBtnDel.Setlcon(IDI ICON, DEL); 
m hBtnDel.OffsetColor(CButtonST::BTNST COLOR BK IN, shBtnColor); 
m hBtnDel.SetColor(CButtonST::BTNST. COLOR FG. IN, RGB(0, 128, 0)); 


m hBtnAdd.Seticon(IDI, ICON, ADD); 
m hBtnAdd.OffsetColor(CButtonST::-BTNST, COLOR, BK, IN, shBtnColor); 
m hBtnAdd.SetColor(CButtonST::BTNST, COLOR FG IN, RGB(0, 128, 0)); 


m hListDepartment.InsertColumn(0, " 名 称 ", LVCFMT. CENTER, 400); 
m hListDepartment.SetExtendedStyle(m hListDepartment.GetStyle()| LV&. EX FULLROWSELECT); 


m hbDatabase.ListDepartmentToCtrl(&m hListDepartment); 





(2) 员工 信息 管理 的 实现 代码 如 下 : 





void CDIgEmployee::InitCtriData() 

{ 
m_hBtnOk.Setlcon(IDLICON_CLOSE); 
m_hBtnOk.OffsetColor(CButtonST::BTNST_COLOR_BK_IN, shBtnColor); 
m_hBtnOk.SetColor(CButtonST::BTNST_COLOR_FG_IN, RGB(0, 128, 0)); 


m hBtnSave.Setlcon(IDI ICON. OK); 

m hBtnSave.OffsetColor(CButtonST::BTNST COLOR BK IN, shBtnColor); 
m hBtnSave.SetColor(CButtonST::BTNST. COLOR FG. IN, RGB(0, 128, 0)); 
m hBtnSave.EnableWindow(FALSE); 


m hBtnDel.Setlcon(IDI ICON. DEL); 
m hBtnDel.OffsetColor(CButtonST::BTNST COLOR BK IN, shBtnColor); 
m hBtnDel.SetColor(CButtonST::BTNST COLOR FG IN, RGB(0, 128, 0)); 


m hBtnAdd.Setlcon(IDI ICON ADD); 
m hBtnAdd.OffsetColor(CButtonST::-BTNST COLOR BK IN, shBtnColor); 
m hBtnAdd.SetColor(CButtonST::BTNST COLOR FG IN, RGB(0, 128, 0)); 


m hBtnMod.Setlcon(IDI ICON MOD); 
m hBtnMod.OffsetColor(CButtonST::BTNST COLOR BK IN, shBtnColor); 
m hBtnMod.SetColor(CButtonST::BTNST. COLOR FG IN, RGB(0, 128, 0)); 


m hTabEmployee.Insertltem(0, "员工 基本 信息 "); 
m_hTabEmployee.Insertltem(1, "员工 信息 列表 "); 
m_hTabEmployee.ShowWindow(TRUE); 


m_hListEmployee.InsertColumn(0, "员工 编号 ", LVCFMT_CENTER, 80); 
m hListEmployee.InsertColumn(1, "员工 姓名 ", LVCFMT_CENTER, 50); 
m_hListEmployee.InsertColumn(2, "性 别 ", LVCFMT_CENTER, 50); 
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m hListEmployee.InsertColumn(3, "年 ", LVCFMT. CENTER, 60); 

m hListEmployee.InsertColumn(4, "学 历 LVCFMT. CENTER, 100); 

m hListEmployee.InsertColumn(5, "民族 ", LVCFMT. CENTER, 120); 

m hListEmployee.InsertColumn(6, "毕业 学 ", LVCFMT, CENTER, 100); 

m hListEmployee.InsertColumn(7, "联系 方式 ", LVCFMT. CENTER, 100); 

m hListEmployee.InsertColumn(8, "家 庭 住址 LVCFMT. CENTER, 100); 

m hListEmployee.InsertColumn(9, " ", LVCFMT. CENTER, 100); 

m hListEmployee.SetExtendedStyle(m hListEmployee.GetStyle()| LV&. EX FULLROWSELECT); 
TabCtrlOfSelect(1); 

m hbDatabase.InitEmployeeData(&mn hCmbDepartment); 


G) 系统 功能 管理 的 实现 代码 如 下 : 


void CDIgSysFunctioninfo::InitCtriData() 


{ 


m_hBtnOk.Setlcon(IDLICON_CLOSE); 
m_hBtnOk.OffsetColor(CButtonST::BTNST_COLOR_BK_IN, shBtnColor); 
m_hBtnOk.SetColor(CButtonST::BTNST_COLOR_FG_IN, RGB(0, 128, 0)); 


m_hBtnSave.Setlcon(IDLICON_OK); 
m_hBtnSave.OffsetColor(CButtonST::BTNST_COLOR_BK_IN, shBtnColor); 
m_hBtnSave.SetColor(CButtonST::BTNST_COLOR_FG_IN, RGB(0, 128, 0)); 
m hBtnSave.EnableWindow(FALSE); 


m hBtnDel.Setlcon(IDI ICON DEL); 
m hBtnDel.OffsetColor(CButtonST::BTNST COLOR BK IN, shBtnColor); 
m hBtnDel.SetColor(CButtonST::BTNST COLOR FG IN, RGB(0, 128, 0)); 


m. hBtnAdd.Setlcon(IDI ICON. ADD); 
m hBtnAdd.OffsetColor(CButtonST-:BTNST. COLOR, BK IN, shBtnColor); 
m hBtnAdd.SetColor(CButtonST::-BTNST, COLOR FG, IN, RGB(0, 128, 0)); 


m hListSysFunctionInfo.InsertColumn(0, "系统 功能 ", LVCFMT. CENTER, 400); 
m hListSysFunctioninfo.SetExtendedStyle(m hListSysFunctioninfo.GetStyle() |LVS EX FULLROWSELECT; 


m hDatabase.ListSysFunctionInfoToCtrl(&m hListSysFunctionlnfo); 


(4) 角色 管理 的 实现 代码 如 下 : 


void CDIgRoleinfo::InitCtriData() 


{ 


m hBtnOK.Setlcon(IDI ICON. CLOSE); 
m hBtnOk.OffsetColor(CButtonST:BTNST. COLOR BK IN, shBtnColor); 
m hBtnOk.SetColor(CButtonST::BTNST. COLOR FG. IN, RGB(0, 128, 0)); 


m hBtnSave.Setlcon(IDI ICON. OK); 
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m_hBtnSave.OffsetColor(CButtonST::BTNST_COLOR_BK_IN, shBtnColor); 
m hBtnSave.SetColor(CButtonST::-BTNST. COLOR FG. IN, RGB(0, 128, 0)); 
m hBtnSave.EnableWindow(FALSE); 


m hBtnDel.Setlcon(IDI ICON, DEL); 
m hBtnDel.OffsetColor(CButtonST::«BTNST. COLOR BK IN, shBtnColor); 
m hBtnDel.SetColor(CButtonST::BTNST. COLOR FG. IN, RGB(0, 128, 0)); 


m hBtnAdd.Setlcon(IDI ICON. ADD); 
m hBtnAdd.OffsetColor(CButtonST::-BTNST COLOR BK IN, shBtnColor); 
m hBtnAdd.SetColor(CButtonST::BTNST. COLOR FG, IN, RGB(0, 128, 0)); 


m hListRoleinfo.InsertColumn(0, "角色 信息 ", LVCFMT. CENTER, 400); 


m hListRoleinfo.SetExtendedStyle(m hListRoleinfo.GetStyle() | VS. EX FULLROWSELECT); 


m hbDatabase.ListRolelnfoToCtri(&m hListRoleinfo); 





(5) 操作 员 管 理 的 实现 代码 如 下 : 





void CDlIgOperator::InitCtriData() 


( 


m hBtnOK.Setlcon(IDI ICON. CLOSE); 
m hBtnOk.OffsetColor(CButtonST::BTNST COLOR BK IN, shBtnColor); 
m hBtnOkK.SetColor(CButtonST::BTNST. COLOR FG IN, RGB(0, 128, 0)); 


m hBtnSave.Setlcon(IDI ICON. OK); 

m hBtnSave.OffsetColor(CButtonST::BTNST COLOR BK IN, shBtnColor); 
m hBtnSave.SetColor(CButtonST:BTNST COLOR FG IN, RGB(0, 128, 0)); 
m hBtnSave.EnableWindow(FALSE); 


m hBtnDel.Setlcon(IDI ICON. DEL); 
m hBtnDel.OffsetColor(CButtonST::BTNST COLOR BK IN, shBtnColor); 
m hBtnDel.SetColor(CButtonST::BTNST. COLOR FG. IN, RGB(0, 128, 0)); 


m hBtnAdd.Setlcon(IDI ICON. ADD); 
m hBtnAdd.OffsetColor(CButtonST::«BTNST COLOR BK IN, shBtnColor); 
m hBtnAdd.SetColor(CButtonST::BTNST. COLOR FG, IN, RGB(0, 128, 0)); 


m hTabOperator.Insertltem(0, "操作 员 基 本 信息 "); 
m hTabOperator.Insertltem(1, "操作 员 信 息 列表 "); 
m hTabOperator.ShowWindow(TRUE); 


m hListOperator.InsertColumn(0, "编号 ", LVCFMT. CENTER, 50); 
m hListOperator.InsertColumn(1, "姓名 ", LVCFMT. CENTER, 80); 
m hListOperator.InsertColumn(2, "密码 ", LVCFMT. CENTER, 80); 
m hListOperator.InsertColumn(3, "角色 ", LVCFMT. CENTER, 80); 
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m hListOperator.SetExtendedStyle(m hListOperator.GetStyle() | VS EX FULLROWSELECT); 
TabCtrlOfSelect(1); 
m hDatabase.InitOperatorData(&m hCmbRole); 





(6) 商品 信息 管理 实现 代码 如 下 : 


void CDIgSpxxgl::InitCtriData() 

t 
m hTabSpxx.Insertltem(0, "商品 基本 信息 "); 
m hTabSpxx.Insertltem(1, "商品 信息 列表 "); 
m hTabSpxx.ShowWindow(TRUE); 


m hListSpxx.InsertColumn(0, "ID", LVCFMT CENTER, 30); 

m hListSpxx.InsertColumn(1, "商品 名 称 " LVCFMT. CENTER, 100); 

m hListSpxx.InsertColumn(2, "规格 ", LVCFMT. CENTER, 50); 

m hListSpxx.InsertColumn(3, " 助 记 码 ", LVCFMT. CENTER, 50); 

m hListSpxx.InsertColumn(4, " 认 规 格 " LVCFMT. CENTER, 60); 

m hListSpxx.InsertColumn(5, "厂家 ", LVCFMT. CENTER, 120); 

m hListSpxx.InsertColumn(6, "备注 ", LVCFMT. CENTER, 100); 

m hListSpxx.SetExtendedStyle(m hListSpxx.GetStyle() | V5. EX FULLROWSELECT); 


m hBtnOkK.Setlcon(IDI ICON. CLOSE); 
m hBtnOk.OffsetColor(CButtonST::BTNST COLOR BK IN, shBtnColor); 
m hBtnOkK.SetColor(CButtonST::BTNST COLOR FG IN, RGB(0, 128, 0)); 


m hBtnSave.Setlcon(IDI ICON. OK); 

m hBtnSave.OffsetColor(CButtonST::BTNST COLOR BK IN, shBtnColor); 
m hBtnSave.SetColor(CButtonST::BTNST. COLOR FG. IN, RGB(0, 128, 0)); 
m hBtnSave.EnableWindow(FALSE); 


m hBtnDel.Seticon(IDI ICON DEL); 
m hBtnDel.OffsetColor(CButtonST::BTNST COLOR BK IN, shBtnColor); 
m hBtnDel.SetColor(CButtonST::BTNST. COLOR FG. IN, RGB(0, 128, 0)); 


m hBtnAdd.Setlcon(IDI ICON. ADD); 
m hBtnAdd.OffsetColor(CButtonST::-BTNST. COLOR BK IN, shBtnColor); 
m hBtnAdd.SetColor(CButtonST::-BTNST. COLOR FG IN, RGB(0, 128, 0)); 


m hBtnMod.Setlcon(IDI ICON. MOD); 
m hBtnMod.OffsetColor(CButtonST::BTNST. COLOR BK IN, shBtnColor); 
m hBtnMod.SetColor(CButtonST::BTNST. COLOR FG IN, RGB(0, 128, 0)); 


TabCtrlOfSelect(1); 





(7) 库存 信息 管理 的 实现 代码 如 下 : 
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void CDIgKcgl::InitCtriData() 

{ 
m_hBtnOk.Setlcon(IDI_ICON_CLOSE); 
m_hBtnOk.OffsetColor(CButtonST::BTNST_COLOR_BK_IN, shBtnColor); 
m_hBtnOk.SetColor(CButtonST::BTNST_COLOR_FG_IN, RGB(0, 128, 0)); 


m_hBtnSave.Setlcon(IDIL_ICON_OK); 
m_hBtnSave.OffsetColor(CButtonST::BTNST_COLOR_BK_IN, shBtnColor); 
m_hBtnSave.SetColor(CButtonST::BTNST_COLOR_FG_IN, RGB(0, 128, 0)); 
m hBtnSave.EnableWindow(FALSE); 


m hBtnDel.Setlcon(IDI ICON DEL); 
m hBtnDel.OffsetColor(CButtonST::BTNST COLOR BK IN, shBtnColor); 
m hBtnDel.SetColor(CButtonST::BTNST COLOR FG IN, RGB(0, 128, 0)); 


m hBtnAdd.Setlcon(IDI ICON. ADD); 
m hBtnAdd.OffsetColor(CButtonST::BTNST. COLOR BK IN, shBtnColor); 
m hBtnAdd.SetColor(CButtonST::BTNST. COLOR FG IN, RGB(0, 128, 0)); 


m hBtnMod.Setlcon(IDI ICON MOD); 
m hBtnMod.OffsetColor(CButtonST::BTNST COLOR BK IN, shBtnColor); 
m hBtnMod.SetColor(CButtonST::BTNST COLOR FG IN, RGB(0, 128, 0)); 


m hTabKc.Insertltem(0, "库存 基本 信息 "); 
m_hTabKc.Insertltem(1, "库存 信息 列表 "); 
m_hTabKc.ShowWindow(TRUE); 


m_hListKc.InsertColumn(0, "库存 编号 ", LVCFMT_CENTER, 100); 

m hListKc.InsertColumn(1, "库存 名 称 ", LVCFMT_CENTER, 100); 

m hListKc.InsertColumn(2, "库存 数 ", LVCFMT_CENTER, 100); 
m_hListKc.SetExtendedStyle(m_hListKc.GetStyle() | LVS_EX_FULLROWSELECT); 
TabCtrlOfSelect(1); 








58 ”实现 系统 及 单元 测试 





MUSS 
5.8.1 实现 完整 系统 


在 MerchandiseStore.cpp 文件 中 填写 以 下 代码 ， 用 来 实现 完整 系统 : 


BEGIN, MESSAGE, MAP(CMerchandiseStoreApp, CWinApp) 
IK((AFX MSG MAP(CMerchandiseStoreApp) 
IljAFX MSG 





@ 


第 5 章 商品 采购 管理 系统 (Visual C++ 6.0+SQL Server 2014 实现 ) 








ON_COMMAND(ID_HELP, CWinApp::OnHelp) 
END, MESSAGE, MAP() 


CMerchandiseStoreApp::CMerchandiseStoreApp() 
{ 
} 


CMerchandiseStoreApp theApp; 
CDatabase m hDatabase; 


BOOL CMerchandiseStoreApp::InitInstance() 
{ 
AfxEnableControlContainer(); 
Colnitialize(NULL); 


#ifdef AFXDLL 
Enable3dControls(); 
else 
Enable3dControlsStatic(); 
#endif 


ifm hDatabase.InitData()) 


{ 
MessageBox(NULL, "数据 库 访 ”失败 ,程序 异常 关 ", "出 Wi" MB OK) 


exit(1); 
) 


CMerchandiseStoreDIg dlg; 

m pMainWnd - &dlg; 

int nResponse - dlg.DoModal(); 
if (nResponse == IDOK) 

{ 


} 
else if (nResponse == IDCANCEL) 


{ 
) 


return FALSE; 


5.8.2 单元 测试 


1. 怎样 取得 当前 日 期 


在 MFC 当中 , 提供 了 日 期 类 CTime, 这 个 类 中 有 一 个 成 员 函 数 GetCurrentTime 可 以 获得 当前 系统 
时 间 ， 代 码 如 下 : 
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CTime time; 
time-time.GetCurrentTime(); 


time 是 当前 时 间 。 
2. 怎样 取得 当前 径 
取得 当前 路 径 也 是 非常 轻松 的 事情 ， 可 以 通过 API 函数 GetCurrentDirectory 取得 ， 代 码 如 下 : 


char str, MAX DIRI; 





3. 常见 误 


从 某 种 意义 上 来 说 ， 调 试 程序 比 编写 程序 更 难 。 对 某 些 函 数 、 命 令 理 解 不 深 ， 在 编写 程序 中 玻 忽 
大 意 等 都 会 导致 程序 调试 中 出 现 问题 。 编 程 中 出 现 的 问题 有 三 大 类 : 语法 错误 、 逻 辑 错误 和 例外 错误 。 

语法 错误 是 其 中 最 容易 出 现 和 纠正 的 , 编译 代码 是 查找 大 多 数 错误 最 快 的 方法 。 强大 的 Visual C++ 
编辑 器 会 将 多 数 错误 定位 到 出 错 的 行 。 

逻辑 错误 解决 起 来 麻烦 一 些 ， 编 译 程序 时 并 不 会 发 现 ， 有 时 严重 的 逻辑 错误 可 能 会 停止 程序 的 执行 。 

例外 错误 是 由 程序 直接 控制 外 部 环境 引起 的 。 例如， 程序 因为 找 不 到 它 所 需要 的 文件 而 运行 失败 ， 
也 许 这 个 文件 已 被 删除 或 移动 。 


4. 截获 回 ” 后 的 潜在 


在 前 面 已 经 介绍 过 ， 为 了 保证 用 户 在 某 控 件 上 按 下 Enter 键 时 ， 都 会 将 焦点 定位 到 下 一 个 控件 上 ， 
可 以 通过 将 Enter 键 转换 成 Tab 键 来 实现 。 虽然 目的 达到 了 ， 却 产生 了 一 个 负面 问题 如果 需 要 再 次 截 
获 Enter 键 ， 就 麻烦 了 。 下 面 举 例 说 明 。 

以 下 代码 是 在 CBaseComboBox 中 截获 Enter 键 ， 并 将 其 更 改 为 Tab 键 。 


BOOL CBaseComboBox::PreTranslateMessage(MSG* pMsg) 
if(pMsg-»message--WM KEYDOWN && pMsg-»wParam--13) 
pMsg-»wParam-9; 


return CComboBox::PreTranslateMessage(pMsg); 
H 


在 对 话 框 中 ， 需 要 截获 CBaseComboBox 类 对 象 的 Enter 键 响应 。 


if(pMsg-»message--WM KEYDOWN&& pMsg->wParam==13) 





v /使 表格 第 一 个 单元 格 获得 焦点 





在 表格 中 按 Enter 键 ， 焦 点 却 不 移动 。 采 用 跟踪 调试 ， 如 图 5.25 所 示 。 
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这 是 Tab 键 的 ASCII 
码 ， 可 刚才 明明 按 
的 是 Enter 键 










0x004637F8 
《msg= Bx 9996199 
= gx 00000009 




















图 5.25 Watch 对 话 框 


实际 上 在 按 下 Enter 键 时 ，CBaseComboBox 类 就 已 经 截获 了 Enter 键 信息 ， 并 将 其 更 改 为 Tab 键 ， 
在 截获 CBaseComboBox 类 对 象 的 键盘 消息 时 又 怎么 会 有 Enter 键 信息 呢 ? 修改 后 代码 如 下 : 


if(pMsg-»message--WM KEYDOWN&& pMsg-»wParam-- VK TAB) 





“…// 使 表格 第 一 个 单元 格 获得 焦点 
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商品 采购 管理 系统 客户 端 项 目 文件 清单 如 表 5.8 所 示 。 
表 5.8 客户 端 ” 目 文件 清单 


文件 名 称 | 文件 类 型 | rem  [ 文件 名 称 | 文件 类 型 | 文件 描 
MerchandiseStore dsp | 工程 文件 源 文件 | 操作 员 信息 管理 
MerchandiseStore.dsw | 工作 区 文件 源 文件 ”| 打印 
MerchandiseStore.rc 资源 文件 源 文件 角色 信息 管理 
MerchandiseStoreDlgh | 源 文件 源 文件 | 商品 信息 管理 
DleCancelin cpp. 源 文件 源 文件 — | 采购 申请 

















DlgDepartment.cpp 源 文件 部 门 信息 管理 源 文件 系统 功能 管理 
DlgEmployee.cpp 源 文件 员工 信息 管理 源 文件 转 到 页 
DlgIntostorage.cpp 源 文件 采购 入 库 管理 源 文件 打印 预览 





DlgKcgl.cpp 源 文件 库存 信息 管理 











本 章 通过 一 个 完整 的 商品 采购 管理 系统 详细 讲解 了 一 个 系统 的 开发 流程 。 通 过 本 章 的 学 习 ， 读 者 
应 该 掌握 SQL Server2014 的 使 用 方法 和 对 数据 库 封 装 类 等 知识 , 希望 对 读者 日 后 的 程序 开发 有 所 帮助 。 
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等 一 系列 操作 。 文 档 管理 系统 是 企业 经 营 管理 中 不 可 缺少 的 部 分 ， 通 
过 文档 信息 管理 系统 ， 可 以 实现 文档 自动 化 管理 的 目标 ， 为 企业 提供 
了 安全 、 可 靠 、 开 放 和 高 效 的 文档 管理 功能 ， 不 仅 方便 了 日 常 操作 ， 
而 且 避 免 了 手工 管理 中 一 系列 错误 的 发 生 ， 提 高 了 企业 的 办 公 效 率 和 
企业 文件 管理 的 综合 水 平 。 

通过 学 习 本 章 ， 读 者 可 以 学 到 : 
利用 ADO 对 象 连接 数据 库 
利用 CFileStatus 类 获得 文档 属性 
利用 Word 类 操作 Word 文档 


备份 和 还 原 数据 库 
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61 开发 背景 





目前 ， 大 多 数 文档 管理 系统 在 实现 了 企业 各 部 门 日 常 文件 管理 的 基本 功能 之 外 ， 
还 增设 了 很 多 新 功能 用 以 满足 文档 管理 电子 化 、 标 准 化 的 新 要 求 。 功 能 强大 的 档案 查询 模块 大 大 方便 
了 管理 者 日 常 查找 文档 的 工作 ， 解 决 了 传统 管理 中 查找 困难 、 查 找 耗 时 等 问题 。 使 用 现代 化 的 文档 管 
理 系统 满足 了 企业 “无 纸 化 ”办 公 的 要 求 ， 实 现 了 通过 计算 机 对 文档 管理 全 程 跟踪 的 目标 。 


6.2 需求 分 析 


根据 市 场 的 需求 ， 要 求 系统 具有 以 下 功能 。 

处 理 大 量 的 复合 文档 型 的 数据 信息 。 

通过 系统 查看 文档 内 容 和 属性 。 

通过 系统 可 以 完成 对 文档 的 一 系列 日 常 操作 。 

保证 系统 的 安全 性 和 可 靠 性 。 

由 于 操作 人 员 的 计算 机 操作 能 力 普 遍 较 差 ， 因 此 要 求 系统 具有 良好 的 人 机 交互 界面 。 
完全 人 性 化 设计 ， 无 须 专业 人 士 指导 ， 即 可 操作 本 系统 。 

系统 具有 数据 备份 及 数据 还 原 功能 ， 能 够 保证 系统 数据 的 安全 性 。 
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6.3.1 系统 目标 


本 系统 是 根据 中 小 企业 的 实际 需求 开发 的 ， 完 全 能 够 实现 企业 对 制度 文档 的 自动 化 管理 ， 通 过 本 
系统 可 以 达到 以 下 目标 。 
系统 运行 稳定 ， 安 全 可 靠 。 
界面 设计 美观 ， 人 机 交互 界面 友好 。 
信息 查询 灵活 、 方 便 、 快 捷 、 准 确 ， 数 据 存储 安全 可 靠 。 
操作 员 可 以 随时 修改 自己 的 口令 。 
对 用 户 输入 的 数据 ， 系 统 进行 严格 的 数据 检验 ， 尽 可 能 排除 人 为 的 错误 。 
数据 保密 性 强 ， 为 每 个 用 户 设置 相应 的 权限 级 别 。 


6.3.2 ”系统 功能 结构 


文档 管理 系统 的 功能 结构 如 图 6.1 所 示 。 
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图 6.1 文档 管理 系统 功能 结构 图 
6.3.3 系统 览 
文档 管理 系统 的 主 界面 如 图 6.2 所 示 。 















































图 6.2 文档 管理 系统 的 主 界面 


6.3.4 业务 流程 图 
文档 管理 系统 的 业务 流程 图 如 图 6.3 所 示 。 
6.3.5 ”数据库 设计 


本 系统 的 数据 库 采 用 SQL Server 2014, 系统 数据 库 的 名 称 为 WenDGL。 数据 库 中 包含 5 张 数 据 表 。 
下 面 分 别 给 出 数据 表 概 要 说 明和 主要 数据 表 的 结构 。 
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1. 数据 表 概要 说 明 


为 使 读者 对 本 系统 后 台数 据 库 中 的 数据 表 有 一 个 更 清晰 的 认识 ， 在 此 特别 设计 了 一 个 数据 表 树 形 
结构 图 ， 该 数据 表 树 形 结构 图 中 包含 了 系统 中 所 有 的 数据 表 ， 如 图 6.4 所 示 。 


me 数据 库 备份 





基数 据 库 管 理 | > 


























- | — 771 
tA) I——— 
一 | 添加 文档 集 
pl 文人 信息 录入 eol 修改 文档 集 
» HIE ic d 
图 6.3 文档 管理 系统 业务 流程 图 图 6.4 数据 表 树 形 结构 图 
2. 主要 数据 表 的 结构 
在 此 给 出 数据 表 的 表 结 构 。 
Ep 单位 表 (Dwxxb) : 用 来 存储 企业 信息 。 该 表 的 结构 如 表 6.1 所 示 。 
表 6.1 单位 表 
字 段 名 数据 类 型 度 描 
DWbh int 4 单位 编号 
DWmc varchar 单位 名 称 
Lu varchar | o | 联系 人 
Lxdh varchar 联系 电话 
Lxdz Varchar 50 联系 地 址 
Memo Varchar 200 备注 
E] ”类 别 表 〈Zdmlb) : 用 来 存储 在 企业 中 创建 的 文档 类 别 。 该 表 的 结构 如 表 6.2 所 示 。 
表 6.2 类 别 表 
字 段 名 数据 类 型 度 描 
DWbh int 4 单位 编号 
LBbh int 4 类 别 编号 
LBmc varchar 50 类 别名 称 
E] “文档 表 〈Zdxxb) : 用 来 存储 日 常 使 用 的 文档 信息 。 该 表 的 结构 如 表 6.3 所 示 。 
表 6.3 文档 表 





单位 编号 
类 别 编号 
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续 表 

字 段 名 | 数据 类 型 度 描 

WDbh | int 4 文档 编号 

WDmc | varchar 300 文档 名 称 

Gn | varchar 200 关键 字 

wl | varchar 300 文件 路 径 

Memo | varchar 200 备注 

Tirxm varchar 50 添加 人 姓名 





加 HER (Rizhib) : 用 来 存储 入 库 物料 的 详细 信息 。 该 表 的 结构 如 表 6.4 所 示 。 
表 6.4 日 志 表 
字 段 名 数据 类 型 度 描 
Name varchar 50 用 户 名 
DLsj Varchar 50 登录 时 间 
DZ Varchar 200 动作 





ED HPR (Users): 用 来 存储 用 户 的 相关 信息 。 该 表 的 结构 如 表 6.5 所 示 。 
表 6.5 用 户 表 











64 技术 准备 


添加 ADO  $E3E 


本 实例 采用 ADO 来 连接 SQL Server 2014 数据 库 ， 在 使 用 ADO 技术 时 ， 需 要 导入 一 个 ADO 动态 
链接 库 msado15.dll， 该 动态 库 位 于 系统 盘 下 的 Program Files\Common Files\Systemvado\ 目 录 下 。 例 如 ， 
如 果 系 统 盘 为 C 盘 ， 则 该 文件 位 于 C:\Program Files\Common Files\System\ado\ 目 录 下 。 在 Visual C++ 
中 ， 需 要 使 用 预 处 理 命令 ##mport， 将 动态 库 导 入 到 系统 中 ， 代 码 如 下 : 


#import "c:\Program Files\Common Files\System\adomsado15.dll"” no namespace rename("EOF","adoEOF") 
rename ("BOF","adoBOF") 


添加 一 个 用 来 连接 ADO 的 类 。 在 系统 菜单 中 选择 “项 目 ” 一 “添加 类 ”命令 ,打开 “添加 类 ”对 
话 框 ， 选 择 “C++ 类 ”一 “添加 ”命令 ， 然 后 输入 类 名 ， 即 完成 了 类 的 添加 。 


@ 


6.4.1 
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创建 ADO 连接 类 的 代码 如 下 : 


class ADOConn 
{ 
public: 
_ConnectionPtr m_pConnection; 
_RecordsetPtr m_pRecordset; 
public: 
ADOConn(); 
virtual -ADOConn(); 
void OnlnitADOConn(); 


. RecordsetPtr& GetRecordSet( bstr t bstrSQL); 


BOOL ExecuteSQL( bstr t bstrSQL); 
void ExitConnect(); 
k 





/添加 一 个 指向 Connection 对 象 的 指 
/添加 一 个 指向 Recordset 对 象 的 指 


/初始 化 一 一 ， 接 数据 库 
/执行 查询 

/执行 SQL 语句 

// 断 开 数据 库 dE 





实现 ADO 连接 类 函数 和 程序 的 代码 如 下 : 





void ADOConn::OnlnitADOConn() 

{ /初始 化 OLE/COM 库 环 境 
::Colnitialize(NULL); 
try{ /创建 connection 对 象 


m_pConnection.Createlnstance(__uuidof(Connection)); 


/获得 置 文件 的 径 
TCHAR szFilename[MAX, PATH] = { 0 ); 


GetModuleFileName(NULL, szFilename, countof(szFilename)); 


PathRemoveFileSpec(szFilename); 
// 读 取 ” 置 文件 


const PCTSTR szAppName = _T(" 数 据 E"); 


CString strFilename = szFilename; 
strFilename +=  T("WDatabase.ini"); 


CString strinitialCatalog, strDataSource, strUserID, strPassword; 
GetPrivateProfileString(szAppName, _T("InitialCatalog"), _T("WenDGL"), strinitialCatalog.GetBuffer 


(1024), 1024, strFilename); 


GetPrivateProfileString(szAppName, _T("DataSource"), _T("192.168.1.97"), strDataSource.GetBuffer 


(1024), 1024, strFilename); 


GetPrivateProfileString(szAppName, _T("UserlD"), _T("sa"), strUserlD.GetBuffer(1024), 1024, strFilename); 
GetPrivateProfileString(szAppName, _T("Password"), _T(""), strPassword.GetBuffer(1024), 1024, 


strFilename); 
strinitialCatalog.ReleaseBuffer(); 
strDataSource.ReleaseBuffer(); 
strUserlD.ReleaseBuffer(); 
strPassword.ReleaseBuffer(); 


IE RFR 
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CString str; 
str.Format( T("Provider-SQLOLEDB.1;Integrated Security-SSPl;Persist Security Info-True;lnitial 
Catalog-96s;Data Source-96s;User ID-96s;Password-96s;") 
, strinitialCatalog.GetString() 
, strDataSource.GetString() 
, StrUserID.GetString() 
, StrPassword.GetString() 
D 
str.Format( T("driver-(SQL Server);Server-?6s;Database-96s;UID-96s;PWD-?6s;") 
, strDataSource.GetString() 
, StrinitialCatalog.GetString() 
, StrUserlD.GetString() 
, SstrPassword.GetString() 
y 


bstr t strConnect = str; 


IISERVER 和 UID, PWD 的 设置 根据 实 ”情况 来 设置 
m_pConnection->Open(strConnect, strUserlD.GetString(), strPassword.GetString(), adModeUnknown); 


) 
/捕捉 异常 
catch( com error e)( 
/显示 REE 
AfxMessageBox( T(" dS dg Bec Rim); 
AfxMessageBox(e.Description()); 
) 
catch(...) ( 
AfxMessageBox( T(" ERUR Ac fiim); 
) 
) 
. RecordsetPtr& ADOConn::GetRecordSet( bstr t bstrSQL) 


try{ /， 接 数据 库 ， 如 果 Connection HRAS, M 新” 接 数据 库 
ifílm pConnectionz-NULL) OnlnitADOConn(); 
/创建 记录 “对象 
m_pRecordset.Createlnstance("ADODB.Recordset"); 


// 取 得 表 中 的 记录 
m_pRecordset->Open(bstrSQL,m_pConnection.GetlnterfacePtr(),adOpenDynamic, 
adLockOptimistic,adCmdText); 

} 

catch( com error e) e.Description(); /显示 REE 

return m pRecordset; I| 回 记 录 


BOOL ADOConn::ExecuteSQL( bstr t bstrSQL) 


f 
_variant_t RecordsAffected; 
ty{ /是 否 已 ” 接 数据 库 
ifím pConnection-- NULL)( 
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OnlnitADOConn(); 


m pConnection-»Execute(bstrSQL,NULL,adCmdText); 


return true; 
} 
catch( com error e) 
t 
e.Description(); 
return false; 
) 
) 
void ADOConn::ExitConnect() 
{ HX 记录 和 接 
if(m_pRecordset!=NULLY{ 
m_pRecordset->Close(); 


m_pConnection->Close(); 
|| GRE 
::CoUninitialize(); 





6.4.2 ”添加 数据 库 表 的 类 


要 利用 ADO 访问 数据 库 ， 最 好 对 每 个 表 都 创建 一 个 类 ， 类 的 成 员 变 量 对 应 表 的 列 ， 类 的 成 员 函数 





对 应 成 员 变 量 和 表 的 操作 。 

为 单位 表 创建 新 类 的 代码 如 下 : 

class CDwxxb 

( 
private: 
int DWbh; // 单 位 编号 
CString DWmc; /| 单位 名 称 
CString Lxr; /联系 人 
CString Lxdh; /联系 电话 
CString Lxdz; /联系 地 址 
CString Memo; IIR 
public: 
CDwxxb(); 
virtual -CDwxxb(); 
CStringArray a DWbh; 
CStringArray a DWmc; 
int GetDWbh(); // 获 得 单位 编号 
void SetDWbh(int iDWbh); // 设 置 单位 编号 
CString GetDWmc(); // 获 得 单位 名 称 
void SetDWmc(CString cDWmc); // 设 置 单位 名 称 
CString GetLxr(); // 获 得 联系 人 
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void SetLxr(CString cLxr); // 设 置 联系 人 
CString GetLxdh(); // 获 得 联系 电话 
void SetLxdh(CString cLxdh); // 设 置 联系 电话 
CString GetLxdz(); // 获 得 联系 地 址 
void SetLxdz(CString cLxdz); // 设 置 联系 地 址 
CString GetMemo(); /获得 备注 信息 
void SetMemo(CString cMemo); // 设 置 备注 信息 
void sql insert(); IRA 
void sql update(int iDWbh); /更 新 
void sql delete(int iDWbh); Im 
void Load, dep(); // 批 ” 读 取 表 中 数据 
int Haveld(int iDWbh); // 判 断 是 否 存 在 相同 记录 
a 
单位 表 的 类 的 函数 实现 代码 如 下 : 





int CDwxxb::GetDWbh()( return DWbh; } 
void CDwxxb::SetDWbh(int iDWbh) ( DWbh-iDWbh; } 
CString CDwxxb::GetDWmc()( return DWmc; ) 
void CDwxxb::SetDWmc(CString cDWmc) ( DWmc-cDWmc; } 
CString CDwxxb::GetLxr()( return Lxr; } 
void CDwxxb::SetLxr(CString cLxr) ( Lxr=cLxr; ) 
CString CDwxxb::GetL xdh()( return Lxdh; ) 
void CDwxxb::SetLxdh(CString cLxdh) ( Lxdh-cLxdh;) 
CString CDwxxb::GetL xdz()(return Lxdz; } 
void CDwxxb::SetLxdz(CString cLxdz) ( Lxdz-cLxdz; ) 
CString CDwxxb::GetMemo()(return Memo; ) 
void CDwxxb::SetMemo(CString cMemo) ( Memo-cMemo; ) 
void CDwxxb::sql. insert() /| 插入 一 条 记录 
{ 
ADOConn m AdoConn; 
CString vSQL; 
vSQL.Format("INSERT INTO Dwxxb(DWbh,DWmc,Lxr,Lxdh,Lxdz, Memo)VALUES(96d," 
*DWmc-*","«Lxre""-Lxdh*","*Lxdz-*","*Memo*")" DWbhy); /设置 插入 语句 


m AdoConn.ExecuteSQL( bstr. t(vSQL)); /执行 插入 语句 
m AdoConn.ExitConnect(); // 断 开 数 据 库 接 
) 
void CDwxxb::sql. update(int iDWbh) /更 新 一 条 记录 


{ 
ADOConn m AdoConn; 
CString vSQL; 
vSQL.Format("UPDATE Dwxxb SET DWmc-"*DWmc*" Lxrz"*Lxr*",Lxdhz"" 
+Lxdh+",Lxdz="+Lxdz+",Memo="+Memo+" WHERE DWbh=%d",iDWbh); 
m_AdoConn.ExecuteSQL(_bstr_t(vSQL)); /执行 修改 语句 
m. AdoConn.ExitConnect(); IX ”数据库 接 
} 
void CDwxxb::sql_delete(int iDWbh) 
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ADOConn m AdoConn; 
m AdoConn.OnlnitADOConn(); 
CString sql; 


sql.Format("delete from Dwxxb where DWbh="%i",iDWbh); 


m AdoConn.ExecuteSQL(( bstr t)sql); 
m  AdoConn.ExitConnect(); 
) 
void CDwxxb::Load dep() 
{ 
ADOConn m AdoConn; 
m AdoConn.OnlnitADOConn(); 


_bstr_ t vSQL-"SELECT*FROM Dwxxb ORDER BY DWbh"; 
..RecordsetPtr m pRecordset-m AdoConn.GetRecordSet(vSQL); 


a DWbh.RemoveAIl(); 
a DWmc.RemoveAII(); 
while(m pRecordset-»adoEOF--0) 
{ /获得 记录 中 数据 


| 接 数据 库 


// 设 置 删 ”语句 
/执行 删 ”语句 
/ 断 开 数据 库 接 


I 接 数据 库 
/设置 SQL 语句 


/初始 化 数组 
/单位 编号 
/单位 名 称 


a DWbh.Add((LPCTSTR)( bstr. t)m pRecordset-»GetCollect("DWbh")); 
a DWmc.Add((LPCTSTR)( bstr t)m pRecordset-»GetCollect("DWmc")); 


m. pRecordset-»MoveNext(); 
) 
m AdoConn.ExitConnect(); 
) 
int CDwxxb::Haveld(int iDWbh) 
{ 
ADOConn m_AdoConn; 
m AdoConn.OnlnitADOConn(); 
CString strDWbh; 
..RecordsetPtr m pRecordset; 


/下 一 条 记录 
/ 断 开 数据 库 的 “ 接 


lI 接 数据 库 
/声明 字符 串 


strDWbh.Format("SELECT*FROM Dwxxb WHERE DWbh=%d",iDWbh); 





m_pRecordset=m_AdoConn.GetRecordSet(_bstr_t(strDWbh)); /查询 
return (m_pRecordset->adoEOF)?-1:1; // 判 断 是 否 存 在 数据 
m AdoConn.ExitConnect(); // 断 开 数 据 库 接 
) 
为 类 别 表 创 建新 类 的 代码 如 下 : 
class CZdmlb 
( 
private: 
int DWbh; /单位 编号 
int LBbh; /类别 编号 
CString LBmc; /类 别名 称 
public: 
CZdmlb(); 


virtual -CZdmlb(); 
CStringArray a DWbh; 
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CStringArray a LBbh; 

CStringArray a LBmc; 

int GetDWbh(); 

void SetDwbh(int iDWbh); 

int GetLBbh(); 

void SetLBbh(int iLBbh); 

CString GetLBmc(); 

void SetLBmc(CString cLBmc); 

void sql insert(); 

void sql. update(int iDWbh,int iLBbh); 
void sql delete(int iDWbh,int iLBbh); 
void sql deletedw(int iLBbh); 

void Load dep(); 

int Haveld(int iDWbh,int iLBbh); 





为 文档 表 创建 新 类 的 代码 如 下 : 





class CZdxxb 


{ 


private: 

int LBbh; 

int WDbh; 

int DWbh; 

CString GJz; 

CString WDmc; 

CString WJlj; 

CString Memo; 

CString Tjrxm; 

public: 

CZdxxb(); 

virtual ~CZdxxb(); 
CStringArray a WDbh; 
CStringArray a LBbh; 
CStringArray a. WJlj; 
CStringArray a DWbh; 
CStringArray a WDmc; 
CStringArray a GJz; 

int GetDWbh(); 

void SetDWbh(int iDWbh); 
int GetLBbh(); 

void SetLBbh(int iLBbh); 
int GetWDbh(); 

void SetWDbh(int iWDbh); 
CString GetGJz(); 

void SetGJz(CString cGJz); 
CString GetWDmc(); 

void SetWDmc(CString cWDmc); 


/插入 函数 
/更 新 函数 
/ 删 函数 
D NI 
/加 ”数据 
// 浏 断 记录 是 否 存在 


// 类 别 编号 
/文档 编号 
/单位 编号 
/ 关 字 
/文档 名 称 
/文件 径 
/备注 信息 
/添加 人 姓名 


第 6 章 文档 管理 系统 (Visual Studio 2017+SQL Server 2014 实现 ) 








CString GetWJlj(); 
void SetWJlj(CString cWJIj); 

CString GetMemo(); 

void SetMemo(CString cMemo); 
CString GetTjrxm(); 

void SetTjrxm(CString cTjrxm); 

void sql insert(); 

void sql update(int iWDbh); 

void sql deletelb(int iDWbh,int iLBbh); 
void sql delete(int IWDbh); 

void sql deletedw(int iDWbh); 

int sql selectwdmc(CString cWDmc); 
void Load dep(); 


int Haveld(int iDWbh,int iLBbh,int iWDbh); 


X 
为 日 志 表 创建 新 类 的 代码 如 下 : 


class CRizhib 
{ 








private: 
CString Name; 
CString DLsj; 
CString DZ; 
public: 
CRizhib(); 
virtual ^CRizhib(); 
CString GetName(); 
void SetName(CString cName); 
CString GetDLsj(); 
void SetDLsj(CString cDLsj); 
CString GetDZ(); 
void SetDZ(CString cDZ); 
void sql insert(); 
E 


为 用 户 表 创建 新 类 的 代码 如 下 : 


/插入 

/更 新 

Im 类 别 

// 删 文档 

D NI 

/查询 文档 名 称 
/加 ”数据 

// 判 断 文档 是 否 存在 


IAPR 
/登录 时 
/动作 


/插入 数据 





class CUsers 
t 
private: 
CString Username; 
CString Pwd; 
CString JB; 
public: 
CUsers(); 
virtual ^CUsers(); 
CString GetUsername(); 


/用 户 名 
/密码 
IRA 
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void SetUsername(CString cUsername); /设置 用 户 名 

CString GetPwd(); 

void SetPwd(CString cPwd); Ini SR 

CString GetJB(); 

void SetJB(CString cJB); // 设 置 级 别 

void sql insert(); /插入 记录 

void sql update(CString cUsername); /更 新 记录 

void sql delete(CString cUsername); Im) ”记录 

void sql updatepwd(CString cUsername); 

int Havename(CString cUsername); // 判 断 是 否 存 在 相同 用 户 名 
int HaveCzy(CString cUsername,CString cPwd); /| 判断 用 户 名 、 密 码 是 否 存 在 


/判断 用 户 名 、 密 码 和 级 别 是 否 存在 
int HaveCzyjb(CString cUsername,CString cPwd,CString cJB); 





65 主 窗 体 设计 


6.5.1 主 窗 体 概 


主 窗 体 主要 用 于 对 文档 管理 系统 中 的 各 个 模块 进行 调用 , 并 在 主 模块 中 显示 操作 员 的 姓名 及 日 期 ， 
如 图 6.5 所 示 。 



































(Eremura SAA: mki 
































图 6.5 主 窗 体 的 运行 效果 


(1) 选择 “资源 视图 ”选项 卡 , 在 WordGLXT 选项 上 右 击 , 在 弹出 的 快捷 菜单 中 选择 “添加 ”一 “ 资 
源 ” 命 令 ， 如 图 6.6 所 示 。 打 开 “ 添 加 资源 ”对 话 框 ， 如 图 6.7 所 示 。 


e 
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图 6.6 选择 “添加 ”一 “资源 ”命令 图 6.7 “添加 资源 ”对 话 框 


(2) 选择 Meun 文件 夹 ， 单 击 “ 新 建 ” 按 钮 ，WordGLXT 目录 下 新 增 一 个 Menu 目录 项 ， 菜 单 ID 
为 IDR_MENU1， 然 后 双击 此 菜单 ， 对 此 菜单 项 的 属性 进行 设计 ， 代 码 如 下 : 























IDR_MENU1 MENU DISCARDABLE 
BEGIN 

POPUP "系统 设置 " 

BEGIN 
MENUITEM "用 户 管理 ", ID_MENUYHGL 
MENUITEM "口令 修改 ", ID_MENUMODPWD 
MENUITEM SEPARATOR 
MENUITEM" 出 系统 ", ID System Exit 

END 

POPUP "基本 信息 " 

BEGIN 
MENUITEM "单位 档案 " ID_MENUDWDAN 
MENUITEM SEPARATOR 
MENUITEM "文档 类 别 ", ID MENUWDLB 

END 

POPUP "文档 管理 " 

BEGIN 
MENUITEM "添加 文档 ", ID MENUADDWD 
MENUITEM "修改 文档 ", ID MENUMODWD 
MENUITEM " 删 文档 ", ID MENUDELWD 
MENUITEM SEPARATOR 
MENUITEM "文档 浏览 " ID_MENULIULWD 
MENUITEM "查看 文件 属性 ", IDD_MENULookFileAttri 

END 

POPUP "数据 库 管理 " 

BEGIN 
MENUITEM "数据 库 备 份 ", ID_Menu_DBBackUp 
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MENUITEM "数据 库 恢复 ", ID Menu DBRestore 
MENUITEM "日 志 管理 ", ID MENURZGL 
END 
END 



































图 6.8 添加 控件 


CA) 按 Shift-Ctrl-X 组 合 键 ， 打 开 “ 类 向 导 ” 对 话 框 ， 选 择 “ 成 员 变 量 ” 选 项 卡 ， 为 控件 设置 变 
量 ， 如 图 6.9 所 示 。 
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图 6.9 “类 向 导 ” 对 话 框 
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652 ” 主 窗 体 实现 程 


(1) 声明 CTime、CStatusBarCtrl 类 对 象 实 体 ， 代 码 如 下 : 


CTimet; 
CStatusBarCtrl m. StatusBar; 1/ 状态 栏 对 象 


(2) 在 程序 中 ， 引 用 外 部 变量 的 代码 如 下 : 
extern CWordGLXTApp theApp; 
G) 在 头 文件 中 定义 程序 变量 ， 代 码 如 下 : 


HTREEITEM arrays[10],brrays[20],hitem[100]; 
HTREEITEM m_root,temp; 
CDwxxb dwb; 
CZdmlb mib; 
CZdxxb xxb; 
CRizhib zhi; 
ClmageList m treelmageList; 
CTime t; 
CStatusBarCtrl m StatusBar; 
CString strWordpath; Ik Word 径 
CString strText; // 暂 存 Word 文档 的 内 容 


(4) 在 OnlnitDialog 成 员 函 数 中 添加 状态 栏 ， 以 及 给 树 形 视图 控件 定义 图 标 、 添 加 数据 ， 代 码 如 下 : 


dwb.Load dep(); 

mlb.Load dep(); 

xxb.Load dep(); 

m treelmageList.Create(16,16,ILC. MASKA, 1); /| 创建 图 像 列表 
m_treelmageList.Add(theApp.Loadicon(IDI_ROOTICON)); 

m treelmageList.Add(theApp.Loadlcon(IDI CHILDICON1)); 

m treelmageList.Add(theApp.Loadlcon(IDI CHILDICON2)); 

m treelmageList.Add(theApp.Loadlcon(IDI CHILDICON4)); 

m tree.SetlmageList(&m treelmageList,LVSIL NORMAL); 








m_root=m_tree.Insertltem(" 基 本 信息 管理 ",0,0); /插入 根 节点 
AddtoTree(m root); /向 树 控件 中 插入 数据 
m_tree.Expand(m_root,TVE_EXPAND); /展开 节点 


m_StatusBar.EnableAutomation(); 
m_StatusBar.Create(WS_CHILD|WS_VISIBLE,CRect(0,0,0,0),this,0); /创建 状态 栏 
int width[]-(200,400); 


m. StatusBar.SetParts(4, &width[O]); // 设 置 状态 栏 板 
m_StatusBar.SetText(" 吉 林 省 明日 科技 有 ”公司 ",0,0); /设置 文本 
CString StatusText; 

StatusText.Format(" 当 前 用 户 : 96s",user.GetUsername()); // 显 示 当前 用 户 

m StatusBar.SetText(StatusText,0,1); 

t-CTime::GetCurrentTime(); // 获 得 当前 时 
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CString strdate; 

strdate.Format(" 248 A HR:96s".t.Format("96y-96m-96d")); 
m StatusBar.SetText(strdate,0,2); 

return TRUE; 





C5) 定义 AddtoTree 函数 , 将 各 表 中 的 数据 按 层次 结构 添加 到 树 形 视 图 控件 中 , 其 实现 代码 如 下 : 


void CWordGLXTDIg::AddtoTree(HTREEITEM m_node) 
{ 
int ij; 
€  for(i-0;i«dwb.a DWbh.GetSize();i**) 
{ 
e arrays[i]-m tree.Insertltem(dwb.a DWmc.GetAt(i),1,1,m node); 
for(j-0;j«mlb.a DWbh.GetSize();j**) 


if(atoi(dwb.a DWbh.GetAt(i))--atoi(mlb.a DWbh.GetAt(j))) 
í 
brrays[j]|-m tree.Insertltem(mlb.a LBmc.GetAt()),2,2,arrays[i]; 
) 
) 
) 
for(i-0;i«xxb.a WDbh.GetSize();i*) 
( 
for(j-0;j«mlb.a DWbh.GetSize();j**) 
{ 
if(atoi(xxb.a_DWbh.GetAt(i))==atoi(mlb.a_DWbh.GetAt(j))&&atoi (xxb.a_LBbh.GetAt(i))== 
atoi(mlb.a_LBbh.GetAt()) 


hitem[i]em tree.Insertitem(xxb.a WDmc.GetAt(i),3,3,brrays[j]); 
) 
) 
) 
© m tree.SetRedraw(); 


} 


99 代码 贴 二 
@ GetSize 函数 : 返回 CstringAmray 对 象 的 长 度 。 
© GetAt 函数 : 返回 CString， 从 CstringArray 对 象 的 指定 位 置 读 取 数据 。 
© SetRedraw 函数 : 重 画 树 形 视图 控件 。 


(6) 为 树 形 视图 控件 添加 OnDblelkTreel 双击 事件 ， 其 实现 代码 如 下 : 


void CWordGLXTDIg::OnDblclkTree1(NMHDR* pNMHDR, LRESULT* pResult) 
{ 
CString strWjian=""; 
// 读 取 当 前 节点 
e temp = m tree.GetSelectedltem(); 
// 将 当前 节点 子 节点 赋 给 temp 
© temp = m_tree.GetChildltem(temp); 
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if (temp {= NULL) 
{ 
while (temp!= NULL) 


{ 
// 取 出 temp 中 的 文本 
© CString strTemp= m tree.GetltemText(temp); 
strWjian*-strTexte"n"; 
IIRichEdit 控件 显示 数据 
m richedit.SetWindowText(strWjian); 
/将 temp 的 兄弟 节点 赋 给 temp 
o temp = m tree.GetNextltem(temp, TVGN NEXT); 
) 
) 
else 
{ 


temp = m tree.GetSelectedltem(); 
for(int i=0;i<xxb.a_WDbh.GetSize();i++) 
{ 

if(temp--hitem[i]) 


/取出 temp 对 应 的 文档 径 
strWordpath=xxb.a_WJlj.GetAt(i); 
CFileFind file; 
if(ffile.FindFile(strWordpath)) 
{// 查 找 文件 是 否 存 在 ， 不 存在 则 清 “数据库 中 的 记录 
MessageBox(" 文 件 不 存在 !"," 文 档 管理 系统 "); 
int wdbh=0; 
wdbh = atoi(xxb.a WDbh.GetAt(i)); 
1/ 删 ”该 文档 
UpdateData(true); 
xxb.sql. delete(wdbh); // 删 ”该 文档 
MessageBox(" 数 据 库 中 该 文件 的 记录 已 删 ! "," 文 档 管理 系统 "); 
UpdateData(false); 
return; 


) 


/word 应 用 程序 的 调用 
_Application app; 
/初始 化 接 
IRRA HERJA h een 
LPDISPATCH pDisp; 

LPUNKNOWN pUnk; 
CLSID clsid; 
CLSIDFromProgID(L"word.Application",&clsid); 
if(GetActiveObject(clsid, NULL,&pUnk)--S OK) 
{ 
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pUnk-»QuerylInterface(IID IDispatch,(void**)&pDisp); 
app.AttachDispatch(pDisp); 


else 
if(lapp.CreateDispatch("word.Application") ” // 启 动 word 


MessageBox("Word 启动 失败 ! "," 文 档 管理 系统 "); 


return; 
) 
JP RORIS HL FER GERE (c eee 


Documents doc; 
CComvVariant a ( T(strWordpath)),b(false),c(0),d(true),aa(0),bb(1); 
. Document doc1; 


doc.AttachDispatch( app.GetDocuments()); 
doc1.AttachDispatch(doc.Add(&a,&b,&c,&d)); 
Range range; 


/取出 文档 的 所 ”区域 
range = doc1.GetContent(); 
/取出 文件 内 容 

strText = range.GetText(); 
m richedit.SetWindowText(strText); 
IX 

app.Quit(&b,&c,&c); 

J| 放 环境 
range.ReleaseDispatch(); 
doc.ReleaseDispatch(); 
doc1.ReleaseDispatch(); 
app.ReleaseDispatch(); 


*pResult = 0; 
) 
«M 代码 贴 十 
@ GetSelectedItem 函数 : 获得 当前 选 定 树 形 视图 控件 的 项 目 。 
9 GetChildItem 函数 : 获取 指定 树 形 视图 控件 的 子 项 目 。 


© GetltemText 函数 : 返回 项 目的 文本 。 
O GetNextItem 函数 : 获取 与 指定 关系 相 匹配 的 下 一 个 树 形 视图 控件 项 目 。 


domm 需要 向 程序 中 添加 Application. Documents. Document 和 Range 等 类 。 
(7) 打开 “类 向 导 ” 对 话 框 ， 为 菜单 项 ID MENULIULWD 添加 代码 ， 实 现 文档 浏览 功能 。 其 实 
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现代 码 如 下 : 


void CWordGLXTDIg::OnMenuliulwd() 


( 
CString strd,strs; 
for(int i-0;i«xxb.a WDbh.GetSize();i**) 


{ 

strd-xxb.a WDmc.GetAt(i); // 获 得 文档 名 称 

strs+=strd+"\n"; 

m richedit.SetWindowText(strs); /显示 文档 名 称 
) 


(8) 为 菜单 项 ID MENUADDWD 添加 代码 ， 实 现 添加 文档 功能 。 其 实现 代码 如 下 : 


void CWordGLXTDIg::OnMenuaddwd() /实现 添加 文档 功能 
{ 





CWDgldlg dig; 

dlg.str = 0; 
if(dlg.DoModal()--IDOK) 
{ 


m_tree.DeleteAllltems(); 
dwb.Load dep(); 
mlb.Load dep(); 
xxb.Load dep(); 
m_root=m_tree.Insertltem(" 基 本 信息 管理 ",0,0); 
AddtoTree(m_root); 

} 


(9) 为 菜单 项 ID MENUDELWD 添加 代码 ， 实 现 删 除 文 档 功能 。 其 实现 代码 如 下 : 








void CWordGLXTDIg::OnMenudelwd() // 实 现 删 ”文档 功能 
{ 
CWDgldlg dlg; 
dlg.tabindex = 1; 
if(dlg.DoModal()2-IDOK) 
t 
m tree.DeleteAllltems(); 
dwb.Load dep(); 
mlb.Load dep(); 
xxb.Load dep(); 
m_root=m_tree.Insertltem(" 基 本 信息 管理 ",0,0); 
AddtoTree(m_root); 


H 
(100 为 菜单 项 ID_MENURZGL 添加 代码 ， 实 现 日 志 管理 功能 。 其 实现 代码 如 下 : 
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void CWordGLXTDIg::OnMenurzgl() 


{ 
ADOConn m AdoConn; 


m AdoConn.OnlnitADOConn(); || 接 数据 库 
CString sql,sqlzd=" 用 户 名 \t 登录 时 \t 动 作 \n"; 
sql.Format("select* from Rizhib"); // 设 置 查询 语句 
m AdoConn.GetRecordSet(( bstr t)sql); /查询 日 志 信 息 
while(m_AdoConn.m_pRecordset->adoEOF== 0) 
// 获 得 用 户 名 
Sqlzd-*-(char*)( bstr t)ym AdoConn.m pRecordset-»GetCollect("name"); 
sqlzd+=" \t"; 
/获得 登录 时 
Sqlzd*-(char*)( bstr t)ym AdoConn.m pRecordset-»GetCollect("DL sj"); 
sqlzd+="\t"; 
// 获 得 动作 
sqlzd+=(char*)(_bstr_t)m_AdoConn.m_pRecordset->GetCollect("dz"); 
sqlzd+="\n"; 
m_AdoConn.m_pRecordset->MoveNext(); // 移 动 到 下 一 条 记录 


m richedit.SetWindowText(sqlzd); 
) 
m AdoConn.ExitConnect(); 
) 





(11) 为 菜单 项 ID_EXIT 添加 代码 ， 程 序 调用 OnOK 函数 关闭 对 话 框 ， 退 出 系统 ， 代 码 如 下 : 





void CWordGLXTDIg::OnExit() 


OnOK(); 





6.6 登录 管理 模块 设计 





6.6.1 登录 管理 模块 概 


登录 管理 模块 主要 用 于 对 登录 文档 管理 系统 的 用 户 进行 安全 
性 检查 ， 以 防止 非法 用 户 进 入 该 系统 。 只 有 合法 的 用 户 才 可 以 登录 
系统 ， 同 时 根据 操作 员 的 不 同 给 予 其 相应 的 操作 权限 。 

验证 操作 员 及 其 密码 主要 是 通过 对 用 户 表 的 查询 , 结合 让 语句 
判断 用 户 选 定 的 操作 员 及 其 输入 的 密码 是 否 符合 数据 库 中 的 操作 
员 和 密码 ， 如 果 符 合 则 允许 登录 ， 并 给 予 相应 的 权限 ， 否 则 提示 错 — 
误 信 息 。 文 档 管理 系统 的 “登录 管理 ”界面 如 图 6.10 所 示 。 图 6.10 “登录 管理 ”界面 
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6.00 ”登录 管理 模块 技术 分 析 


为 了 保证 用 户 在 某 控件 上 按 Enter 键 时 ， 都 会 将 焦点 定位 到 下 一 个 控件 上 ， 可 以 通过 将 Enter 键 转 
换 成 Tab 键 来 实现 。 在 本 模块 中 系统 就 采取 了 这 种 方法 , 输入 用 户 名 后 按 Enter 键 , 焦点 就 会 移动 到 “ 密 
码 ” 文 本 框 中 ， 实 现代 码 如 下 : 


BOOL CYHgldlg::PreTranslateMessage(MSG* pMsg) 


if(pMsg-»message--WM KEYDOWN && pMsg-»wParam--13) 
pMsg-»wParam-9; 
return CDialog::PreTranslateMessage(pMsg); 
) 





6.6.3 ”登录 管理 模块 实现 程 


登录 管理 模块 实现 过 程 如 下 : 
COD 在 工程 中 新 建 一 个 对 话 框 ， 将 对 话 框 的 ID 设 为 IDD_DIALOGIN。 
(2) 向 对 话 框 中 导入 4 个 位 图 资源 。 
G) 向 对 话 框 中 添加 一 个 图 像 控件 和 两 个 文本 框 控件 ， 各 控件 的 摆 放 位 置 如 图 6.11 所 示 。 
(4) 按 ShiftrCtrl+X 组 合 键 ， 打 开 “ 类 向 导 ” 对 话 框 ， 选 择 “ 成 员 变量 ”选项 卡 ， 为 控件 设置 变 
量 ， 如 图 6.12 所 示 。 
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图 6.11 “登录 管理 ”界面 图 6.12 “类 向 导 ” 对 话 框 
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(5) 引用 函数 外 部 的 变量 的 代码 如 下 : 


extern CUsers user; 


在 头 文件 中 定义 程序 变量 的 代码 如 下 : 





CString jb; 
CRizhib zhi; 
CTime t; 


为 了 使 登录 界面 美观 ， 还 需要 更 换 按钮 的 界面 ， 代 码 如 下 : 


BOOL CDialogin::OnlnitDialog() 
{ 
CDialog::OnlnitDialog(); 
Setlcon(m_hlcon, TRUE); 
m BitmapOK = ::LoadBitmap(::AfxGetlnstanceHandle(), MAKEINTRESOURCE 


(IDB. BITMAP. QR); // 为 “登录 ” 按 加 位 图 
m BitmapCancel = ::LoadBitmap(::AfxGetInstanceHandle(), MAKEINTRESOURCE 
(IDB. BITMAP. QX)); /为 “取消 ” i 加 位 图 


m BitmapClose = ::LoadBitmap(::AfxGetlnstanceHandle() MAKEINTRESOURCE 
(IDB. BITMAP. Close)); /为 窗 体 的 关 按 加 位 图 
m OK.SetBitmap(m BitmapOK); 

m Cancel.SetBitmap(m BitmapCancel); 

m Close.SetBitmap(m BitmapClose); 
return TRUE; 
} 


因为 登录 窗 体 的 属性 中 选择 隐藏 标题 栏 ， 所 以 不 能 拖 动 窗 体 。 要 实现 能 拖 动 窗 体 ， 需 要 加 入 如 下 
ARED: 








void CDialogin::OnLButtonDown(UINT nFlags, CPoint point) 
{ “// 该 函数 实现 在 客户 区 能 够 拖 动 窗 体 
CDialog::OnLButtonDown(nFlags, point); 
6€  PostMessage(WM NCLBUTTONDOWN,HTCAPTION,MAKELPARAM/(point.x,point.y)); 
) 


Mru 
@ PostMessage 函数 : 传送 消息 函数 。 


响应 “登录 ”按钮 的 程序 代码 如 下 : 


void CDialogin::OnOK() 
{ 





UpdateData(true); /将 对 话 框 中 文本 框 的 数据 读 取 到 成 员 变 中 
if(m namez2") /检查 数据 有 效 性 


{ 
MessageBox(" 请 ”入 用 户 名 "," 文 档 管理 系统 "); 
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return; 
if(m pwde-") 


MessageBox(" 请 ”入 密码 "); 
return; 


) 
if(user.HaveCzy(m name,m pwd)l-1) // 如 果 读 取 数 据 和 用 户 。 入 的 不 同 , 则 E 
{ 
MessageBox(" 用 户 名 或 密码 ” 误 !"," 文 档 管理 系统 "); 
return; 
) 
user.SetUsername(m name); 
IPFI FR P328 
jb="1"; 
if(user.HaveCzyjb(m name,m pwd,jb)--1) 


user.SetJB(jb); 
) 


else 
user.SetJB("0"); 


) 
// 读 取 当 前 系统 时 
t=CTime::GetCurrentTime(); 
// 将 登录 动作 记录 到 日 志 表 中 
zhi.SetDLsj(t.Format("%y-%m-%d")); 
zhi.SetName(user.GetUsername()); 
zhi.SetDZ(" 登 录 "); 
zhi.sql_insert(); 
CDialog::OnOK(); 

) 





(itk a RRRERHAXA. 


下 面 在 主 对 话 框 中 添加 代码 ， 使 对 话 框 在 启动 时 首先 打开 登录 对 话 框 。 在 主 窗口 选择 OnInitDialog 
函数 ， 该 函数 将 打开 “登录 ”对 话 框 , 如 果 用 户 不 是 通过 单 击 “ 登 录 ”按钮 关闭 对 话 框 的 , 则 调用 OnOK 
函数 关闭 主 对 话 框 ， 具 体 代码 如 下 : 


BOOL CWordGLXTDIg::OnlnitDialog() 
( 


CDialog::OnlnitDialog(); 


ASSERT((IDM ABOUTBOX & 0xFFF0) == IDM. ABOUTBOX); 
ASSERT(IDM. ABOUTBOX < 0xF000); 
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CMenu* pSysMenu = GetSystemMenu(FALSE); 
if (pSysMenu != NULL) 
CString strAboutMenu; 
strAboutMenu.LoadString(IDS ABOUTBOX); 
if (IstrAboutMenu.IsEmpty()) 
{ 
pSysMenu->AppendMenu(MF_SEPARATOR); 


pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu); 


) 


Setlcon(m hlcon, TRUE); 
Setlcon(m hlicon, FALSE); 


CDialogin gin; 


if(gin.DoModal()!-IDOK) 
OnOK(); 

dwb.Load dep(); 

mlb.Load dep(); 

xxb.Load dep(); 

m treelmageList.Create(16,16,ILC. MASK,A,1); 

m treelmageList.Add(theApp.Loadlcon(IDI ROOTICON)); 


m treelmageList.Add(theApp.Loadlcon(IDI CHILDICON1)); 
m treelmageList.Add(theApp.Loadlcon(IDI CHILDICON2)); 
m treelmageList.Add(theApp.Loadlcon(IDI CHILDICON4)); 


m tree.SetlmageList(&m treelmageList,L VSIL NORMAL); 
m_root=m_tree.Insertltem(" 基 本 信息 管理 ",0,0); 
AddtoTree(m root); 

m tree.Expand(m root, TVE EXPAND); 
/状态 栏 显 示 内 容 的 设置 

m StatusBar.EnableAutomation(); 


// 设 置 大 图 标 
// 设 置 小 图 标 


// 启 动 登录 对 话 框 


It 加 单位 表 中 的 记录 数据 
It 加 类别 表 中 的 记录 数据 
It 加 文档 表 中 的 记录 数据 


// 显 示 根 目录 图 标 

// 显 示 一 级 目录 的 图 标 

// 显 示 二 级 目录 的 图 标 

// 显 示 三 级 目录 的 图 标 ， 就 是 Word 图 标 


m_StatusBar.Create(WS_CHILDIWS_VISIBLE,CRect(0,0,0,0),this,0); 


int width[]={200,400}; 

m StatusBar.SetParts(4, &width[0]); 
m_StatusBar.SetText(" 吉 林 省 明日 科技 有 ”公司 ",0,0); 
CString StatusText; 

StatusText.Format(" 当 前 用 户 : %s",user.GetUsername()); 
m_StatusBar.SetText(StatusText,0,1); 


t=CTime::GetCurrentTime(); 

CString strdate; 

strdate.Format(" 当 前 日 期 :%s",t.Format("%y-%m-%d")); 

m StatusBar.SetText(strdate,0,2); 
/工具 栏 显示 内 容 的 设置 

m ImageList.Create(32,32,.ILC. COLORJILC, MASK,1,1); 


// 显 示 单位 名 称 


// 显 示 当 前 用 户 


// 显 示 当 前 时 


// 创 建 图 像 列表 





@ 
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m ImageList.Add(AfxGetApp()-»Loadlcon(IDI. ICONDWDA)); /| 单位 档案 
m_ImageList.Add(AfxGetApp()->Loadicon(IDI_ICONWDLB)); /文档 类 别 
m_ImageList.Add(AfxGetApp()->Loadicon(IDI_ICONAdd)); /添加 文档 
m ImageList.Add(AfxGetApp()-»Loadlcon(IDI ICONMod)); /修改 文档 
m ImageList.Add(AfxGetApp()-»Loadlcon(IDI ICONDel)); Im) ces 
m ImageList.Add(AfxGetApp()-»Loadlcon(IDI ICONScan)); /浏览 文档 
m. ImageList.Add(AfxGetApp()-»Loadlcon(IDI. ICONFileAttri)); // 查 看 属性 
m ImageList.Add(AfxGetApp()-»Loadlcon(IDI ICONUser)); /用 户 管理 
m. ImageList.Add(AfxGetApp()-»Loadlcon(IDI, ICONMIMA)J; /口令 修改 
m_ImageList.Add(AfxGetApp()->LoadIcon(IDI_ICONLog)); /日 志 管理 
m ImageList.Add(AfxGetApp()-»Loadlcon(IDI ICONSJKBF)); /| 备份 
m_lImageList.Add(AfxGetApp()->Loadlcon(IDL_ICONSJKHF)); /恢复 
m_lImageList.Add(AfxGetApp()->Loadlcon(IDL_ICONExit)); I| 出 系统 
UINT array[16]; 


for(int i=0;i<16;i++) 
if(i==2|li==8|li==12) 
( 
array[i]-ID SEPARATOR; /第 3 个 和 第 9 个 按 为 分 条 


else array[i]-i*1101; 
) 


m ToolBar.Create(this); 

m ToolBar.SetButtons(array, 16); 
m_ToolBar.SetButtonText(0," 单 位 档案 "); 
m_ToolBar.SetButtonText(1," 文 档 类 别 "); 
m_ToolBar.SetButtonText(3," 添 加 文档 "); 
m_ToolBar.SetButtonText(4," 修 改 文档 "); 
m_ToolBar.SetButtonText(5," 删 ”文档 "); 
m_ToolBar.SetButtonText(6," 浏 览 文档 "); 
m_ToolBar.SetButtonText(7," 查 看 属性 "); 
m_ToolBar.SetButtonText(9," 用 户 管理 "); 
m_ToolBar.SetButtonText(10," 口 令 修改 "); 
m_ToolBar.SetButtonText(11," 日 志 管 理 "); 
m_ToolBar.SetButtonText(13," 备 份 数 据 "); 
m_ToolBar.SetButtonText(14," 恢 复数 据 "); 
m_ToolBar.SetButtonText(15,” 出 系统 "); 


m  ToolBar.GetToolBarCtri().SetlmageList(&m ImageList); /关联 图 像 列 表 
m  ToolBar.SetSizes(CSize(60,60),CSize(32,32)); ll 设置 按 和 按 位 图 大 小 


m ToolBar.EnableToolTips(true); 

RepositionBars(AFX IDW CONTROLBAR FIRST, AFX IDW CONTROLBAR LAST, 0);// 显 示 工具 栏 
zGetCurrentDirectory(512,buf); // 获 得 当前 ” 径 ， 备 份 数据 库 时 用 到 
return TRUE; 
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67 单位 档案 模块 设计 


6.7.1 单位 档案 模块 概 


单位 档案 模块 用 于 查看 、 添 加 、 修 改 和 删除 单位 信息 ， 如 图 6.13 所 示 。 
es = 
| 单位 档案 | 单位 列 帮 | 
77 LO 
单位 名 称 : [是 日 科技 。 
REA) Wü 
MEAE. GIG 








联系 地 址 : EEk 
LI * 


[nae 
cH cim CM 

















图 6.13 单位 档案 模块 的 运行 效果 


若 要 添加 单位 ，“ 单 位 编号 ”会 默认 自动 增加 。 若 修改 或 删除 单位 档案 信息 ， 可 以 通过 “单位 名 
称 ” 下 拉 列 表 框 选择 单位 名 称 ， 然 后 修改 其 内 容 。 也 可 从 “单位 列表 ”选项 卡 中 选择 要 修改 或 删除 的 
单位 ， 操 作 非 常 方便 。 


6.7.2. 单位 档案 模块 技术 分 析 


在 实现 单位 档案 模块 时 ， 需 要 注意 以 下 几 点 技术 细节 。 
1. TC ITEM 结构 


一 个 标签 可 能 含有 文本 、 图 片 等 属性 ，TC_ITEM 结构 中 的 mask 指定 了 标签 的 哪 种 属性 是 有 效 的 : 
mask=TCIF TEXT， 表示 文本 有 效 ，mask=TCIF_ IMAGE， 表示 图 片 有 效 。 


2. Insertltem 函数 
Insertltem 函数 用 于 插入 标签 ， 其 语法 如 下 : 
Imsetitem[Sl], [ITC_ITEM 指 IT 0 
ED RI: 插入 标签 的 位 置 。 
TC_ITEM 指针 : 取得 标签 的 属性 。 
6.7.3 ”单位 档案 模块 实现 程 


单位 档案 模块 的 实现 过 程 如 下 : 


e. 
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COD 在 工程 中 新 建 一 个 对 话 框 ， 将 对 话 框 的 ID 设 为 IDD_DWDAN。 
(2) 向 对 话 框 中 添加 控件 资源 。 各 控件 的 摆 放 位 置 如 图 6.14 所 示 。 


G) f Shift-CuleX 组 合 键 ， 打 开 “ 类 向 导 ” 对 话 框 ， 选 择 “ 成 员 变量 ”选项 卡 ， 为 控件 设置 变 
量 ， 如 图 6.15 所 示 。 
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图 6.14 “单位 档案 ”对 话 框 图 6.15 “类 向 导 ” 对 话 框 
(4) 使 用 函数 外 部 的 变量 的 代码 如 下 : 
extern CUsers user; 
在 头 文件 中 定义 变量 的 代码 如 下 : 
CRizhib zhi; 
CTime t; 


在 “类 向 导 ” 对 话 框 中 添加 OnInitDialog 函数 ， 此 函数 用 于 初始 化 Tab 控件 ， 为 ListControl 控件 
赋值 ， 代 码 如 下 : 


BOOL CDwdandlg::OninitDialog() 
{ 
CDialog::OnlnitDialog(); 
Setlcon(m hlcon, TRUE); 
t-CTime::GetCurrentTime(); 
TC. ITEM tci; 
tci.mask- TCIF TEXT; 
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tci.pszText=" 单 位 档案 "; 

m_tab.Insertltem(0,&tci); 

tci.pszText= "单位 列表 "; 

m_tab.Insertltem(1,&tci); 

/使 ListControl 控件 不 可 见 

GetDlgltem(IDC_LIST1)->ShowWindow(SW_HIDE); 

UpdateData(true); 

1/73 ListControl 控件 设置 列 

m_list.SetExtendedStyle(LVS_EX_FLATSBILVS_EX_FULLROWSELECTI 
LVS EX GRIDLINES); 

m list.InsertColumn(0," & (irf S", VCFMT. LEFT, 100,0); 

m list.InsertColumn(1,"& i & f&",L VCFMT. LEFT, 100,1); 

m list.InsertColumn(2,"RX & A",LVCFMT. LEFT, 100,2); 

m list.InsertColumn(3," E Z&Ei&",LVCFMT. LEFT, 100,3); 

m list.InsertColumn(4,"R &3ibtiF" LVCFMT. LEFT,100,4); 

m list.InsertColumn(7," &;£",LVCFMT LEFT, 100,5); 

ADOConn m AdoConn; 


m AdoConn.OnlnitADOConn(); J| 接 数 据 库 
CString sql; // 声 明 字 符 串 
sql.Format("select* from Dwxxb order by dwbh desc"); // 设 置 查询 语句 
m AdoConn.GetRecordSet(( bstr. t)sql); /执行 查询 
while(m AdoConn.m pRecordset-»adoEOF--0) 
( 

m list.Insertltem(0,""); IRAT 

/| 插入 列 信息 
m list.SetltemText(0,0,(char*)( bstr t)ym AdoConn.m pRecordset-» 
GetCollect("dwbh")); 


m list.SetltemText(0,1,(char*)( bstr t)ym AdoConn.m pRecordset-- 
GetCollect("dwmc")); 

m combo dwmc.AddString((char*)( bstr t)m AdoConn.m pRecordset-» 
GetCollect("dwmc")); 

m list.SetltemText(0,2,(char*)( bstr t)ym AdoConn.m pRecordset-» 
GetCollect("Ixr")); 

m list.SetltemText(0,3,(char*)( bstr t)ym AdoConn.m pRecordset-» 
GetCollect("Ixdh")); 

m list.SetltemText(0,4,(char*)( bstr t)ym AdoConn.m pRecordset-» 
GetCollect("Ixdz")); 

m list.SetltemText(0,5,(char*)( bstr t)ym AdoConn.m pRecordset-» 
GetCollect("memo")); 

m  AdoConn.m pRecordset-» MoveNext(); /移动 到 下 一 条 记录 
m_AdoConn.ExitConnect(); l% 数据库 接 
CDwxxb dwb; 
dwb.Load_dep(); 
m_dwbh = dwb.a_DWbh.GetSize()+1; 1/ 设置 单位 档案 中 ” 认 单 位 编号 
UpdateData(false); 
return TRUE; 

} 


73 Radio 控件 添加 消息 响应 函数 ， 代 码 如 下 : 
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void CDwdandlg::OnRADIOModify() 


GetDlgltem(IDC. EDIT1)-»EnableWindow(TRUE); 
RadioFlag = 1; 


) 
void CDwdandlg::OnRadioAdd() 
{ 


CDwxxb dwb; 

dwb.Load dep(); /加 ”单位 数据 

m dwbh-dwb.a DWbh.GetSize()*1; l HET 认 的 单位 编号 
GetDIgltem(IDC_EDIT1)->EnableWindow(FALSE); /使 控件 不 可 用 

RadioFlag = 2; 

UpdateData(false); 


} 
void CDwdandlg::OnRADIODel() 


RadioFlag = 3; 
) 


当 用 户 选中 “添加 ” 单 选 按钮 时 ， 能 够 实现 添加 单位 功能 ， 代 码 如 下 : 








void CDwdandlg::AddDW() /添加 单位 信息 
UpdateData(true); 
CString strdwmc; 
m combo, dwmc.GetWindowText(strdwmc); // 获 得 单位 名 称 
CDwxxb dwb; 


if(strdwmc--"" 
::AfxMessageBox(" 单 位 名 称 不 能 为 空 "); 
else if(dwb.Haveld(m dwbh)--1) 
MessageBox(" 单 位 编号 已 存在 "," 文 档 管理 系统 "); 
else if(m Ixdh.GetLength()»12) 
MessageBox(" 电 话 号 码 不 正确 "," 文 档 管理 系统 "); 
else 
{ 
// 设 置 单位 信息 
dwb.SetDWbh(m dwbh); 
dwb.SetDWmc(strdwmc); 
dwb.SetLxr(m Ixr); 
dwb.SetLxdh(m Ixdh); 
dwb.SetLxdz(m Ixdz); 
dwb.SetMemo(m memo); 
dwb.sql insert(); 
zhi.SetDLsj(t.Format("96y-96m-96d")); 
zhi.SetName(user.GetUsernamer()); 
zhi.SetDZ(" 单 位 添加 "); 
zhi.sql_insert(); 
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当 用户 选 中 “修改 ” 单 选 按钮 时 ， 实 现 修改 单位 功能 ， 代 码 如 下 : 


void CDwdandlg::ModifyDW() 


{ 


) 


UpdateData(true); 
CString strdwmc; 


if(m combo dwmc.GetCurSel())-CB ERR) 


/修改 单位 信息 


// 著 从 下 拉 列 表 框 中 择 


m combo dwmc.GetLBText(m combo dwmc.GetCurSel(),strdwmc); 


else 


t 


} 


m_combo_dwmc.GetWindowText(strdwmc); 
int a =m_combo_dwmc.SelectString(-1,strdwmc); 


if(a == CB. ERR) strdwmcz""; 


// 车 没有 从 下 拉 列 表 框 中 HE 


// 车 数据 库 中 没有 该 单位 ， 则 清空 strdwmc 


if(strdwmc ==") MessageBox(" 单 位 名 称 不 能 为 空 "," 文 档 管理 系统 "); 
else if(m_Ixdh.GetLength()>=12) MessageBox(" 电 话 号 码 不 正确 "," 文 档 管理 系统 "); 
else 


{ 


// 设 置 单位 信息 

CDwxxb dwb; 
dwb.SetDWmc(strdwmce); 
dwb.SetLxr(m_Ixr); 
dwb.SetLxdh(m Ixdh); 
dwb.SetLxdz(m Ixdz); 
dwb.SetMemo(m memo); 
dwb.sql update(m dwbh); 


zhi.SetDLsj(t.Format("96y-9om-96d")); 
zhi.SetName(user.GetUsername()); 


zhi.SetDZ(" 单 位 修改 "); 
zhi.sql insert(); 





«M emu 


O GetLength 函数 : 返回 int， 取 得 字符 囊 长 度 。 


当 用 户 选 中 “删除 ” 单 选 按钮 时 ， 实 现 删 除 单位 功能 ， 代 码 如 下 : 


void CDwdandlg::DelDW() 
CDwxxb dwb; 
if(dwb.Haveld(m dwbh)---1) 
MessageBox(" 单 位 编号 不 存在 ,无 法 执行 删 ”操作 !"," 文 档 管理 系统 "); 


{ 


else 


{ 


dwb.sql delete(m dwbh); 
CZdmlb mlb; 


mlb.sql deletedw(m dwbh); 


CZdxxb xxb; 


Xxb.sql deletedw(m dwbh); 


Im) 单位 信息 


IN) 单位 表 中 该 单位 信息 
// 删 ”类 别 表 中 该 单位 信息 
1/ 删 文档 表 中 该 单位 信息 
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zhi.SetDLsj(t.Format("96y-96m-96d")); 
zhi.SetName(user.GetUsername()); 
zhi.SetDZ(" 单 位 删 "); 
zhi.sql_insert(); 


} 


下 面 要 实现 标签 的 切换 功能 。 标签 控件 有 两 个 重要 的 消息 : TCN_SELCHANGING 和 TCN_SELCHANG。 
它们 分 别 是 在 改变 当前 标签 前 和 选择 了 新 的 标签 后 发 出 的 ， 这 样 就 可 以 在 TCN_SELCHANGING 消息 响应 函 
数 中 将 原来 的 控件 隐藏 ， 而 在 TCN SELCHANG 消息 响应 函数 中 显示 新 控件 。 利 用 ClassWizard 建立 
IDC TABI 的 TCN_SELCHANGING 和 TCN_SELCHANG 消息 响应 函数 ， 并 将 以 下 代码 加 入 两 个 函数 中 。 





void CDwdandlg::OnSelchangeTab1(NMHDR* pNMHDR, LRESULT* pResult) 

{ 

€  switch(m tab.GetCurSel()) 

{ 
case 0: /显示 控件 

©  GetDlgltem(IDC, EDIT1)-»ShowWindow(SW. SHOW); 
GetDlgitem(IDC. COMBO2)-»ShowWindow(SW. SHOW); 
GetDlgitem(IDC. EDIT3)-»ShowWindow(SW. SHOW); 
GetDlgitem(IDC. EDIT4)-»ShowWindow(SW. SHOW); 
GetDlgitem(IDC. EDIT5)-»ShowWindow(SW. SHOW); 
GetDlgitem(IDC. EDIT7)-»ShowWindow(SW. SHOW); 
GetDlgitem(IDC. STATIC1)-»ShowWindow(SW. SHOW); 
GetDlgltem(IDC, STATIC2)-»ShowWindow(SW. SHOW); 
GetDlgitem(IDC. STATIC3)-»ShowWindow(SW. SHOW); 
GetDlgltem(IDC, STATIC4)-»ShowWindow(SW. SHOW); 
GetDlgitem(IDC. STATIC5)-»ShowWindow(SW. SHOW); 
GetDlgltem(IDC, STATIC7)-»ShowWindow(SW. SHOW); 
GetDlgitem(IDC. STATIC7)-»ShowWindow(SW. SHOW); 
GetDlgltem(IDOK)-»ShowWindow(SW. SHOW); 
GetDlgitem(IDCANCEL-»ShowWindow(SW. SHOW); 


break; 

case 1: 
GetDlgltem(IDC, LIST1)-»ShowWindow(SW. SHOW); 
break; 


) 
*pResult = 0; 
H 


«9 代码 贴 十 
@ GetCurSel 函数 : 在 标签 控件 中 确定 当前 选 定 的 标签 。 
© GetDlgItem 函数 : 获得 当前 控件 的 句柄 。 


void CDwdandlg::OnSelchangingTab1(NMHDR* pNMHDR, LRESULT* pResult) 
í 
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Switch(m tab.GetCurSel()) 


} 


i 


case 0: I 藏 控件 


GetDlgltem(IDC. EDIT1)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDC. COMBO2)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDC. EDIT3)--ShowWindow(SW. HIDE); 
GetDlgltem(IDC. EDIT4)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDC, EDIT5)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDC  EDIT6)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDC STATIC1)-»ShowWindow(SW HIDE); 
GetDlgltem(IDC STATIC2)-»ShowWindow(SW HIDE); 
GetDlgltem(IDC STATIC3)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDC  STATIC4)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDC STATIC5)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDC  STATIC6)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDC STATIC7)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDOK)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDCANCEL)-» ShowWindow(SW. HIDE); 
break; 


case 1: 


) 


GetDlgltem(IDC  LIST1)-»ShowWindow(SW. HIDE); 
break; 


*pResult = 0; 





当 在 “单位 名 称 ” 下 拉 列 表 框 中 选择 单位 名 称 时 ， 其 他 编辑 框 中 的 内 容 会 自动 显示 ， 完 成 此 功能 
的 代码 如 下 : 





void CDwdandlg::OnSelchangeCombo2() 


( 


GetDlgltem(IDC. EDIT1)-»EnableWindow(false); 
CDwxxb dwb; 
CString strdwmc; 
m, combo, dwmc.GetLBText(m combo, dwmc.GetCurSel()stdwmc); 。“”// 获 得 单位 名 称 
dwb.Load dep(); 
int m Zdwb.a DWbh.GetSize(); 
for(int i=0;i<m;i++) // 根 据 单位 编号 搜索 单位 名 称 
{ 
if(strdwmc==dwb.a_DWmc.GetAt(i)) 


{ 
m_dwbh = atoi(dwb.a_DWbh.GetAt(i)); 


} 
) 
UpdateDataf(false); 
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68 文档 类 别 模 块 设计 


6.8.1 文档 类 别 模块 概 


文档 类 别 模块 用 于 添加 、 修 改 和 删除 文档 类 别 信息 ，“ 文 
档 类 别 ” 对 话 框 的 运行 效果 如 图 6.16 所 示 。 

可 以 通过 下 拉 列 表 框 选择 单位 ， 该 单位 所 对 应 的 “单位 编 
号 ”会 自动 显示 在 对 应 的 编辑 框 中 ， 类 别 编号 会 自动 增加 ， 操 
作 非 常 简便 。 


6.8.2 文档 类 别 模块 实现 FE 


(1) 在 工程 中 新 建 一 个 对 话 框 ， 将 对 话 框 的 ID 设 为 
IDD_WDLB。 























图 6.16 “文档 类 别 ” 对 话 框 


(2) 向 对 话 框 中 添加 控件 资源 。 各 控件 的 摆 放 位 置 如 图 6.17 所 示 。 
(3) f ShiftcCul-X 组 合 键 ， 打 开 “ 类 向 导 ” 对 话 框 ， 选 择 “ 成 员 变量 ”选项 卡 ， 为 控件 设置 变 


量 ， 如 图 6.18 所 示 。 
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图 6.17 “文档 类 别 ” 对 话 框 图 6.18 “类 向 导 ” 对 话 框 
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(4) 使 用 函数 外 部 的 变量 的 代码 如 下 : 


extern CUsers user; 





在 头 文件 中 定义 变量 的 代码 如 下 : 
CRizhib zhi; 
CTimet; 
当 用 户 单 击 “确认 ”按钮 时 ， 实 现 对 文档 类 别 的 指定 操作 ， 代 码 如 下 : 
void CWdlbiedlg::OnOK() 1/1“ 确 认 ” 按 
{ 
switch(RadioFlag) 
{ 
case 1: LBModify(); break; /修改 
case 2: LBAdd(); break; /添加 
case 3: LBDel(); break; 1/ 删 
default : 
:AfxMessageBox(" 请 择 操作 "y 
return; 


) 
CDialog::OnOK(); 
) 





当 用 户 选中 “添加 ” 单 选 按钮 时 ， 实 现 添加 文档 类 别 的 功能 ， 代 码 如 下 ; 





void CWdlbiedlg::LBAdd() 
{ 
UpdateData(true); 
if(m Ibmc--"" // 判 断 类 别名 称 是 否 为 空 
{ 
MessageBox(" 类 别名 称 不 能 为 空 "," 文 档 管 理 系统 "); 
return; 


} 
CZdmlb mlb; 
CDwxxb dwb; 
mlb.Load_dep(); 
dwb.Load_dep(); 
int dw=0; 
for(int iz0;i«dwb.a DWbh.GetSize();i*) 


if(m. dwbh-atoi(dwb.a DWbh.GetAt(i))) /获得 单位 编号 
{ 
dw 
} 
} 
if(dw==0) 
{ 
MessageBox(" 单 位 编号 不 存在 "," 文 档 管 理 系 统 "); 





(e, 
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return; 
} 
dw=0; 
if(mlb.Haveld(m dwbh,m Ibbh)--1) // 判 断 类 别 是 否 存 在 
{ 

MessageBox(" 类 别 已 存在 "," 文 档 管理 系统 "); 

return; 
} 
mlb.SetDwbh(m_dwbh); /设置 单位 编号 
mib.SetLBbh(m Ibbh); // 设 置 类 别 编号 
mlb.SetLBmc(m_lbmce); /设置 类 别名 称 
mlb.sql_insert(); /插入 数据 
zhi.SetDLsj(t.Format("96y-9om-96d")); /设置 登录 时 
zhi.SetName(user.GetUsername()); // 设 置 用 户 名 
zhi.SetDZ(" 类 别 添加 "); // 设 置 动 作 
zhi.sql_insert(); /| 插入 日 志 


} 
当 用 户 选中 “修改 ” 单 选 按钮 时 ， 实 现 修改 文档 类 别 的 功能 ， 代 码 如 下 ; 





void CWdlbiedlg::LBModify() 
UpdateData(true); 
if(m Ibmc--" 


MessageBox(" 类 别名 称 不 能 为 空 "," 文 档 管理 系统 "); 
return; 


) 

CZdmlb mib; 

CDwxxb dwb; 

dwb.Load dep(); 

mlb.Load dep(); 

int dw-0; 

for(int iz0;i«dwb.a DWbh.GetSize();i) 
t 


if(m dwbhz-zatoi(dwb.a DWhbh.GetAt(i))) 
{ 


) 


dw; 


) 
if(dw--0) 


MessageBox(" 单 位 编号 不 存在 "," 文 档 管理 系统 "); 
return; 


) 
dw-0; 


mib.SetDwbh(m dwbh); // 设 置 单位 编号 
mlb.SetLBmc(m_lbmc); /设置 类 别名 称 
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} 


mlb.sql_update(m_dwbh,m_lbbh); 
Zhi.SetDLsj(t.Format("%y-%m-%d")); 
zhi.SetName(user.GetUsername()); 
zhi.SetDZ(" 类 别 修改 "); 
Zhi.sql_insert(); 


/修改 类 别 
/设置 登录 时 
/设置 用 户 名 
/设置 动作 
/| 插入 日 志 


当 用 户 选中 “删除 ” 单 选 按钮 时 ， 实 现 删除 文档 类 别 的 功能 ， 代 码 如 下 : 


void 


{ 


} 


CWdlbiedlg::LBDel() 


UpdateData(true); 

CZdmlb mlb; 

mib.sqi delete(m dwbh,m Ibbh); 
CZdxxb xxb; 

Xxb.sql deletelb(m dwbh,m Ibbh); 
zhi.SetDLsj(t.Format("96y-96m-96d")); 
zhi.SetName(user.GetUsername()); 
zhi.SetDZ(" 类 别 删 "y; 
zhi.sql_insert(); 


Im) 类 别 
I) 文档 
// 设 置 登录 时 
/设置 用 户 名 
// 设 置 动作 
/插入 日 志 





Cra 添加 OnlInitDialog 53k, HA4 "t-CTime::GetCurrentTime;" HA EA v, 





6.9.1 
文档 管理 模块 用 于 查看 、 添 加 、 修 改 和 删除 文档 信息 。“ 文 档 管理 ”对 话 框 的 运行 效果 如 图 6.19 


所 示 。 
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“文档 管理 ”对 话 框 的 运行 效果 
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6.9.2 文档 管理 模块 技术 分 析 


在 文档 管理 模块 中 会 应 用 到 InsertColumn 函数 ， 其 作用 是 向 列表 控件 中 插入 列 ， 语 法 如 下 : 
InsertColumn ([ 位 置 ],[ 列 名 sj,[ 对 方式 s],[ 宽 度 站 [索引 站 


位 置 : 在 列表 中 要 插入 的 列 所 在 的 位 置 。 
RED JA: 在 列表 中 显示 的 列 标题 。 

对 齐 方式 : 在 列表 中 选择 项 目的 对 齐 方式 。 
Rp ”宽度 : 在 列表 中 设置 列 的 宽度 。 

索引 : 在 列表 中 设置 列 的 索引 号 。 


6.9.3 ”文档 管理 模块 实现 程 


文档 管理 模块 实现 过 程 如 下 : 

CD 在 工程 中 新 建 一 个 对 话 框 ， 将 对 话 框 的 ID 设 为 IDD_WDsgldlg。 

(2) 向 对 话 框 中 添加 控件 资源 。 各 控件 的 摆 放 位 置 如 图 6.20 所 示 。 

G) f Shift-Cul-X 组 合 键 ， 打 开 “ 类 向 导 ” 对 话 框 ， 选 择 “ 成 员 变 量 ” 选 项 卡 ， 为 控件 设置 变 
量 ， 如 图 6.21 所 示 。 
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(4) 使 用 函数 外 部 的 变量 的 代码 如 下 : 


extern CUsers user; 


在 头 文件 中 定义 变量 的 代码 如 下 : 





int wdbh; /文档 编号 

int Ibbh; /文档 类 别 编号 
int dwbh; // 单 位 名 称 编号 
int str; || pik 
CString strText; 

CDwxxb dwb; 

CZdmlb mib; 

CZdxxb xxb; 

CRizhib zhi; 

CTime t; 

UINT tabindex; 





添加 OnInitDialog 函数 ， 此 函数 用 于 初始 化 Tab 控件 以 及 为 ListControl 控件 赋值 ， 代 码 如 下 : 





BOOL CWDgldlg::OnlnitDialog() 


{ 


CDialog::OnlnitDialog(); 
m. hlcon = AfxGetApp()-»Loadicon(IDI, CHILDICONA); 
Setlcon(m hlcon, TRUE); 
TC. ITEM tci; 
tci.mask-TCIF TEXT; 
tci.pszText=" 基 本 信息 "; 
m_tab.Insertltem(0,&tci); 
tci.pszText=" 信 息 删 "; 
m tab.Insertltem(1,&tci); 
dwb.Load dep(); 
mlb.Load dep(); 
xxb.Load dep(); 
t-CTime::GetCurrentTime(); 
UpdateData(true); 
/根据 文档 编号 在 文档 表 中 搜索 文档 名 称 
for(int i=0;i<xxb.a_WDbh.GetSize();i++) 
Ik ” 卡 2 的 下 拉 列 表 框 添加 文档 名 称 
m_combo1.AddString(xxb.a_WDmc.GetAt(i)); 
// 根 据 单位 编号 在 单位 表 中 搜索 单位 名 称 
for(int i=0;i<dwb.a_DWbh.GetSize():i++) 
IE — 卡 1 的 下 拉 列 表 框 添加 单位 名 称 
m combo3.AddString(dwb.a DWmc.GetAt(i)); 
m list.SetExtendedStyle(L VS. EX FLATSB|LVS EX FULLROWSELECTILVS, EX, GRIDLINES); 
m list.InsertColumn(0," & ir. f", LVCFMT. LEFT, 100,0); 
m list.InsertColumn(1," 3-525", VCFMT. LEFT, 100,1); 
m list.InsertColumn(2," 3: i4 &",LVCFMT. LEFT,100,2); 
m list.InsertColumn(3," 344% f&",LVCFMT. LEFT,100,3); 
m list.InsertColumn(4,"X =",LVCFMT_LEFT,100,4); 
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m_jist.InsertColumn(5," 文 档 ” 径 ",LVCFMT_LEFT,100,5); 
m_list.InsertColumn(6," 备 注 ",LVCFMT_LEFT,100,6); 
CString dwmc[100],wdlb[100].pp; 

// 根 据 单位 编号 ” 回 单位 名 称 





int i=0; 
for(i=0;i<xxb.a_WDmc.GetSize();i++) 
{ 
for(int j=0:j<dwb.a_DWbh.GetSize():j++) 
{ 
if(atoi(xxb.a DWbh.GetAt(i))--atoi(dwb.a DWbh.GetAt(j))) 
i 
dwmc[i]= dwb.a DWmc.GetAt(j); 
) 
) 
/根据 类 别 编号 ” 回 类 别名 称 
for(int j=0;j<mlb.a_DWbh.GetSize():j++) 
{ 
if(atoi(xxb.a DWbh.GetAt(i))--atoi(mlb.a DWbh.GetAt(j)) && 
atoi(xxb.a LBbh.GetAt(i))--atoi(mlb.a LBbh.GetAt(j))) 
{ 
wdlb[i]- mlb.a LBmc.GetAt(j) 
) 
) 
) 


ADOConn m AdoConn; 
m AdoConn.OnlnitADOConn(); 
CString sql; 
sql.Format("select* from Zdxxb order by wdbh desc"); 
m AdoConn.GetRecordSet(( bstr t)sql); 
while(m AdoConn.m pRecordset-»adoEOF--0) 
{ 
e m list.Insertitem(0,""); 
m list.SetltemText(0,0,dwmc[i-1]); 
m list.SetltemText(0,1,wdlb[i-1]); 
m list.SetltemText(0,2,(char*)( bstr t)ym AdoConn.m pRecordset-» 
GetCollect("wdbh")); 
m list.SetltemText(0,3,(char*)( bstr t)ym AdoConn.m pRecordset-» 
GetCollect("wdmc")); 
m list.SetltemText(0,4,(char*)( bstr t)ym AdoConn.m pRecordset-» 
GetCollect("gjz")); 
m list.SetltemText(0,5,(char*)( bstr t)ym AdoConn.m pRecordset-» 
GetCollect("wjlj")); 
m list.SetltemText(0,6,(char*)( bstr t)ym AdoConn.m pRecordset-» 
GetCollect("memo")); 
te 
m AdoConn.m pRecordset-»MoveNext(); 
) 
m AdoConn.ExitConnect(); 
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/根据 菜单 。 ”使 不 同 的 单 、 按 处 于 中 状态 

if(str==0) 

{ 
CButton* tempbutton = (CButton*)GetDIgltem(IDC_RADIO1); 
tempbutton->SetCheck(1); 


else 


( 
CButton* tempbutton = (CButton*)GetDlgltem(IDC  RADIO2); 
tempbutton-»SetCheck(1); 


H 
/JI 调用 SetCurTab() 
SetCurTab(tabindex); 
m wdbh = xxb.a WDmc.GetSize()*1; // 使 ” 认 文档 编号 为 自动 排序 
UpdateData(false); 
return TRUE; 
) 


«M 代码 贴 十 
@ SetExtendedStyle 函数 : 设置 列表 框 的 显示 风格 。 
@ Insertltem 函数 : 可 以 在 列表 框 中 指定 位 置 插入 一 项 。 


(5) 为 “……” 按 钮 添加 如 下 代码 ， 实 现 查 找 文件 路 径 的 功能 。 


void CWDgldlg::OnWjljxz() 
{ 





CFileDialog file(true,NULL,NULL,OFN_HIDEREADONLYIOFN_OVERWRITEPROMPT,"Al Files(*.*)|*.*| |", 


AfxGetMainWnd()); // 构 文件 对 话 框 
if(file.DoModal()--IDOK) // 显 示 文 件 对 话 框 
{ 
e strText-file.GetPathName(); // 获 得 文件 B 
m_wilj.SetWindowText(strText); // 显 示 文 件 径 
m wdmc = file.GetFileName(); // 自 动 添加 文档 名 称 


int index«m wdmc.ReverseFind('.); 

CString tem = m wdmc; 

if(index!=-1) tem.Delete(index, m wdmc.GetLength()-index); 

m gi -tem; 

UpdateData(false); /将 变 ”m_wdmc 的 数据 EaR HER 


) 


«M 代码 贴 十 
@ GetPathName 函数 : 取得 指定 文件 的 完整 路 径 。 


当 用 户 单 击 “ 保 存 ” 按 钮 时 ， 将 执行 OnOK 函数 ， 代 码 如 下 : 
void CWDgldlg::OnOK() 


{ 
e. 


UpdateData(true); 
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CString strdwmc,strwdlb; 

if(m combo3.GetCurSel()-2-CB ERR) 

( 
MessageBox(" 单 位 名 称 不 能 为 空 ， 请 “ 择 单 位 "," 文 档 管理 系统 "); 
return; 

} 

else 
m combo3.GetLBText(m combo3.GetCurSel(),strdwmc); 

ifm combo4.GetCurSel()--CB ERR) 


MessageBox(" 文 档 类 别 不 能 为 空 ， 请 ” 择 文 档 类 别 "," 文 档 管理 系统 "); 
return; 

) 

else 
m combo4.GetLBText(m combo4.GetCurSel(),strwdlb); 

if(m wdmcz--") 


MessageBox(" 文 档 名 称 不 能 为 空 "," 文 档 管理 系统 "); 
return; 


} 

CString strwilj; 

m wjlj.GetWindowText(strwjlj); 
if(strwiljez"" 


MessageBox(" 文 档 ” 径 不 能 为 空 " "文档 管理 系统 "); 
return; 


] 
int dw=0,Ib=0; 
for(int i=0;i<mlb.a_DWbh.GetSize();i++) // 根 据 单位 编号 搜索 单位 类 别 
{ 
if(strdwmc==dwb.a_DWmc.GetAt(i)) 


dwbh=atoi(dwb.a_DWbh.GetAt(i)); 


dw 
) 
) 
if(dw--0) 
{ 
MessageBox(" 单 位 名 称 不 存在 "," 文 档 管理 系统 "); 
return; 
H 
for(int i-0;i«mlb.a DWbh.GetSize();i**) // 根 据 单位 编号 搜索 单位 类 别 
{ 
if(dwbh--atoi(mlb.a DWbh.GetAt(i)) && strwdlb==mlb.a_LBmc.GetAt(i)) 
lbbh=atoi(mlb.a_LBbh.GetAt(i)); /| 类别 编 号 
lb++; 
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) 
if(Ib--0) 
{ 
MessageBox(" 文 档 类 别 不 存在 "," 文 档 管理 系统 "); 


return; 


} 
/设置 文档 信息 
xxb.SetDWbh(dwbh); 
xxb.SetLBbh(lbbh); 
xxb.SetWDbh(m wdbh); 
Xxb.SetWDmc(m wdmco); 
xxb.SetGJz(m gjz); 
xxb.SetWlj(strwjli); 
xxb.SetMemo(m memo); 
xxb.SetTjrxm(user.GetUsername()); 
switch(str) 
{ 
case 0: 
if(xxb.Haveld(dwbh,Ibbh,m_wdbh)==1) 


MessageBox(" 文 档 已 存在 "," 文 档 管理 系统 "); 
return; 


xxb.sql_insert(); 
Zhi.SetDLsj(t.Format("%y-%m-%d")); 
zhi.SetName(user.GetUsername()); 
zhi.SetDZ(" 添 加 文档 "); 
zhi.sql insert(); 
break; 

case 1: 
xxb.sgl update(m wdbh); 
zhi.SetDLsj(t.Format("96y-96m-96d")); 
zhi.SetName(user.GetUsername()); 
zhi.SetDZ(" 修 改 文档 "); 
zhi.sql_insert(); 
break; 

) 

dw-0; 

1b-0; 

CDialog::OnOK(); 

) 


为 Radio 控件 添加 消息 响应 函数 ， 代 码 如 下 : 


/添加 


/| 插入 语句 
// 设 置 登 录 时 
// 设 置 用 户 名 
// 设 置 动作 
/| 插入 日 志 


/修改 

/修改 语句 

// 设 置 登 录 时 
/设置 用 户 名 
// 设 置 动 作 
/插入 日 志 





void CWDgldlg::OnRadio1() 
{ 
str-0; 


) 
void CWDgldlg::OnRadio2() 


e. 
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当 用 户 单 击 “ 删 除 ” 按 钮 时 ， 将 执行 OnBUTTONDeIWD 函数 ， 代 码 如 下 : 


void CWDgldlg::OnBUTTONDelWD() // 删 ”文档 的 按 ”响应 函数 
{ 


CString wdmc; 


ifm combo1.GetCurSel()-2CB ERR) 

( 
MessageBox(" 文 档 名 称 不 能 为 空 ,请 “ 择 文档 "," 文 档 管理 系统 "); 
return; 

) 

else 
m combo1.GetLBText(m combo1.GetCurSel(),wdmc); 


for(int i=0;i<xxb.a_WDbh.GetSize();i++) 
{ 
if(wdmc==xxb.a_WDmc.GetAt(i)) 


wdbhzatoi(xxb.a WDbh.GetAt(i)); 

} 
} 
xxb.sql_delete(wdbh); 
zhi.SetDLsj(t.Format("96y-9om-96d")); 
zhi.SetName(user.GetUsername()); 
zhi.SetDZ(" 文 档 删 "); 
zhi.sql_insert(); 
CDialog::OnOK(); 


实现 在 “单位 名 称 ” 下 拉 列 表 框 中 选择 单位 时 ， 自 动 在 “文档 类 别 ” 下 拉 列 表 框 中 显示 与 该 单位 
对 应 的 文档 类 别 ， 代 码 如 下 : 


/， 择 单位 时 ， 自 动 在 “文档 类 别 ” 下 拉 列 表 框 (Combos) 中 添加 文档 类 别 
void CWDgldlg::OnSelchangeCombo3() 
{ 


UpdateData(TRUE); 

CString strdwmc; 

/获得 当前 ”中 的 单位 名 称 

m combo3.GetL BText(m combo3.GetCurSel(),strdwmc); 
dwb.Load dep(); 

mlb.Load dep(); 

xxb.Load dep(); 
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m_combo4.ResetContent(); Im) 数据 
// 根 据 单位 编号 在 单位 表 中 搜索 单位 名 称 
for(int i=0;i<dwb.a_DWbh.GetSize();i++) 
{ 
if(strdwmc == dwb.a DWmc.GetAt(i)) 


/根据 类 别 编号 在 类 别 表 中 搜索 类 别名 称 
for(int j-0;j«mlb.a LBbh.GetSize().j**) 
if(atoi(dwb.a DWbh.GetAt(i))--atoi(mlb.a DWbh.GetAt(j))) 
// 往 标签 1 的 “文档 类 别 ” 下 拉 列 表 框 添加 单位 名 称 
m combo4.AddString(mlb.a LBmc.GetAt(j)); 


} 
通过 SetCurTab 函数 ， 根 据 菜单 的 消息 响应 确定 显示 Tab 标签 控件 的 第 几 页 ， 代 码 如 下 : 





void CWDgldlg::SetCurTab(UINT m index) 
{ 

m tab.SetCurSel(m index); 

if(m index--0) 

{ 
/标签 1 的 控件 藏 
GetDlgltem(IDC_LIST1)->ShowWindow(SW_HIDE); 
GetDlgltem(IDC_COMBO1)->ShowWindow(SW_HIDE); 
GetDlgltem(IDC_BUTTONDEL)->ShowWindow(SW_HIDE); 
/标签 0 的 控件 显示 
GetDlgltem(IDC_COMBO3)->ShowWindow(SW_SHOW); 
GetDIgltem(IDC_COMBO4)->ShowWindow(SW_SHOW); 
GetDIgltem(IDC_EDIT3)->ShowWindow(SW_SHOW); 
GetDIgltem(IDC_EDIT4)->ShowWindow(SW_SHOW); 
GetDlgltem(IDC_EDIT5)->ShowWindow(SW_SHOW); 
GetDlgltem(IDC_EDIT6)->ShowWindow(SW_SHOW); 
GetDIgltem(IDC_EDIT7)->ShowWindow(SW_SHOW); 
GetDIgltem(IDC_STATIC1)->ShowWindow(SW_SHOW); 
GetDIgltem(IDC_STATIC2)->ShowWindow(SW_SHOW); 
GetDlgltem(IDC_STATIC3)->ShowWindow(SW_SHOW); 
GetDlgltem(IDC_STATIC4)->ShowWindow(SW_SHOVW); 
GetDIgltem(IDC_STATIC5)->ShowWindow(SW_SHOW); 
GetDlgltem(IDC_STATIC7)->ShowWindow(SW_SHOW); 
GetDlgltem(IDC. STATIC7)-»ShowWindow(SW. SHOW); 
GetDlgltem(IDC STATIC8)-»ShowWindow(SW. SHOW); 
GetDlgltem(IDC. WJLJXZ)-»ShowWindow(SW. SHOW); 
GetDlgltem(IDOK)-»ShowWindow(SW. SHOW); 
GetDlgltem(IDCANCEL)-»ShowWindow(SW. SHOW); 
GetDlgltem(IDC. RADIO1)-»ShowWindow(SW. SHOW); 
GetDlgltem(IDC. RADIO2)-»ShowWindow(SW. SHOW); 
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{ /标签 0 的 控件 藏 
GetDlgltem(IDC_COMBO3)->ShowWindow(SW_HIDE); 
GetDlgltem(IDC_COMBO4)->ShowWindow(SW_HIDE); 
GetDlgltem(IDC. EDIT3)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDC. EDIT4)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDC. EDIT5)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDC, EDIT6)-» ShowWindow(SW. HIDE); 
GetDlgltem(IDC. EDIT7)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDC STATIC1)-»ShowWindow(SW HIDE); 
GetDlgltem(IDC. STATIC2)-»ShowWindow(SW HIDE); 
GetDlgltem(IDC. STATIC3)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDC STATIC4)-»ShowWindow(SW HIDE); 
GetDlgltem(IDC. STATIC5)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDC  STATIC6)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDC  STATIC7)-»ShowWindow(SW HIDE); 
GetDlgltem(IDC STATIC8)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDC WJLJXZ)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDOK)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDCANCEL)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDC RADIO1)-»ShowWindow(SW. HIDE); 
GetDlgltem(IDC RADIO2)-»ShowWindow(SW. HIDE); 
/标签 1 的 控件 显示 
GetDlgltem(IDC_LIST1)->ShowWindow(SW_SHOW); 
GetDlgltem(IDC_COMBO1)->ShowWindow(SW_SHOW); 
GetDlgltem(IDC_BUTTONDEL)->ShowWindow(SW_SHOVW); 





610 口令 修改 模块 设计 





6.10.1 口令 修改 模块 概 

















口令 修改 模块 用 于 修改 用 户口 令 , “口令 修改 ”对 话 框 E 
的 运行 效果 如 图 6.22 所 示 。 MEER — m 
RER: wooo 
6.10.2 口令 修改 模块 实现 程 TT 
manu. Fr 
口令 修改 模块 实现 过 程 如 下 : | 





(1) 在 工程 中 新 建 一 个 对 话 框 ， 将 对 话 框 的 ID 设 为 图 6.22 “口令 修改 ”对 话 框 的 运行 效果 
IDD KLXG. 

(2) 向 对 话 框 中 添加 控件 资源 。 各 控件 的 摆 放 位 置 如 图 6.23 所 示 。 

G) f Shiftt+Ctrl+X 组 合 键 ， 打 开 “ 类 向 导 ” 对 话 框 ， 选 择 “ 成 员 变量 ”选项 卡 ， 为 控件 设置 变 
量 ， 如 图 6.24 所 示 。 
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获 迎 使 用 类 向 导 
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图 6.23 “口令 修改 ”对 话 框 图 6.24 “类 向 导 ” 对 话 框 
(4) 使 用 函数 外 部 的 变量 的 代码 如 下 : 
extern CUsers user; 
在 头 文件 中 定义 变量 的 代码 如 下 : 
CRizhib zhi; 
CTime t; 
添加 OnInitDialog 函数 使 用 户 名 显示 在 文本 框 中 ， 代 码 如 下 : 
BOOL CKLxgdlg::OnlnitDialog() 
{ 
CDialog::OnlnitDialog(); 
Setlcon(m hlcon, TRUE); 
teCTime::GetCurrentTime(); // 获 得 当前 时 
m name.SetWindowText(user.GetUsername()); /显示 登录 用 户 


UpdateData(false); 
return TRUE; 
) 


为 “确认 ”按钮 添加 单 击 事件 ， 代 码 如 下 : 





void CKLxgdlg::OnOK() 
i 
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UpdateData(true); 

CString name; 

m name.GetWindowText(name); 

if(m opwd--"") 

( 
MessageBox(" 请 ”入 旧 密 码 "," 文 档 管理 系统 "); 
return; 

) 

if(m_npwd1=="") 


MessageBox(" 请 ”入 新 密码 "," 文 档 管理 系统 "); 


return; 
) 
if(m npwd2--"" 


MessageBox(" 请 确认 新 密码 "," 文 档 管理 系统 "); 
return; 


} 
if(m_npwd1!=m_npwd2) 
{ 


MessageBox(" 两 次 ”入 密码 不 同 "," 文 档 管理 系统 "); 
return; 

} 

CUsers ser; 

if(ser.HaveCzy(name,m_opwd)!=1) 


MessageBox(" 用 户 或 密码 ” 误 "," 文 档 管 理 系统 "); 


return; 
else 
ser.SetPwd(m_npwd1); // 设 置 用 户 密码 
ser.sql_updatepwd(name); /修改 用 户 密 码 
MessageBox(" 密 码 修改 成 功 ， 下 次 登录 请 用 新 密码 "); 
) 
zhi.SetDLsj(t.Format("96y-9om-96d")); /设置 登录 时 
zhi.SetName(user.GetUsername()); /设置 用 户 名 
Zhi.SetDZ(" 修 改 密码 "); // 设 置 动 作 
zhi.sql_insert(); /插入 日 志 
UpdateData(false); 


CDialog::OnOK(); 





6.11 开发 问题 解析 


6.11.1 怎样 将 数据 表 中 的 数据 添加 到 ListControl 控件 中 


在 文档 管理 系统 的 多 个 模块 中 用 ListControl 控件 来 实现 对 数据 表 的 显示 ， 如 图 6.25 所 示 。 
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图 6.25 单位 列表 


从 图 6.25 中 可 以 看 到 , 在 列表 中 显示 了 需要 的 字段 信息 , ListControl 提供 了 成 员 函 数 SetItemText, 
用 它 可 以 将 某 字符 串 添 加 到 列表 中 ， 只 要 从 第 1 条 记录 开始 循环 ， 将 每 条 记录 中 需要 的 字段 信息 取出 ， 
再 用 SetItemText 添加 到 列表 中 即 可 ， 代 码 如 下 : 





ADOConn m AdoConn; 


m AdoConn.OnlnitADOConn(); || 接 数 据 库 
CString sql; 
sql.Format("select* from Zdxxb order by wdbh desc"); // 设 置 查询 语句 
m AdoConn.GetRecordSet(( bstr. t)sql); J| TE 
while(m AdoConn.m pRecordset-»adoEOF--0) 

m list.Insertltem(0,""); /| 插入 行 


m list.SetltemText(0,0,dwmc[i-1]); 

m list.SetltemText(0,1,wdlb[i-1]); 
/插入 列 信息 

m_list.SetltemText(0,2,(char*)(_bstr_t)m_AdoConn.m_pRecordset-> 
GetCollect("wdbh")); 

m list.SetltemText(0,3,(char*)( bstr t)ym AdoConn.m pRecordset-» 
GetCollect("wdmc")); 

m list.SetltemText(0,4,(char*)( bstr t)ym AdoConn.m pRecordset-» 
GetCollect("gjz")); 

m list.SetltemText(0,5,(char*)( bstr t)ym AdoConn.m pRecordset-» 
GetCollect("wjli")); 

m list.SetltemText(0,6,(char*)( bstr t)ym AdoConn.m pRecordset-» 
GetCollect("memo")); 


m AdoConn.m pRecordset-»MoveNext(); /移动 到 下 一 条 记录 


) 
m AdoConn.ExitConnect(); IX 数据 库 接 


ce 
倒序 显示 。 


@ 
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6.11.2 ”怎样 取得 文件 的 完整 径 


当 用 户 选 择 文件 进行 打开 或 保存 操作 时 ， 要 用 到 文件 打开 或 保存 对 话 框 。MFC 的 类 CFileDialog 可 
以 实现 这 种 功能 。 使 用 CFileDialog 声明 一 个 对 象 时 ， 第 一 个 Bool 型 参数 用 于 指定 文件 的 打开 或 保存 ， 
当 为 True 时 将 构造 一 个 文件 打开 对 话 框 ， 当 为 False 时 将 构造 一 个 文件 保存 对 话 框 。 关 键 代码 如 下 : 


CFileDialog filettue,NULL,NULL,OFN. HIDEREADONLY|OFN OVERWRITEPROMPT;,"AII Files(*.*)|*.*| |", 


AfxGetMainWnd()); 
if(file.DoModal()2-IDOK) // 著 打开 文件 成 功 
ji 
strText-file.GetPathName(); // 得 到 文件 完整 ” 径 名 
m wjlj.SetWindowText(strText); 
m wdmc - file.GetFileName(); // 自 动 添加 文档 名 称 


int index=m_wdmc.ReverseFind('.'); 

CString tem = m wdmc; 

if(index!=-1) tem.Delete(index,m wdmc.GetLength()-index); 

m giz -tem; 

UpdateData(false); /将 变 “m_wdmc 的 数据 HER ER 





612 ”项目 文件 清单 


文档 管理 系统 的 项 目 文件 清单 如 表 6.6 所 示 。 
表 6.6 文档 管理 系统 文件 清单 


文 件 名 文件 类 型 | 说 m | 文件 名 [文件 类 型 | w m 


| min — | 
WordGLXTDlg.h 头 文件 主 窗口 头 文件 用 户 表 头 文件 


WordGLXT.h 头 文件 工程 头 文件 Rizhib.h 日 志 表 头 文件 
ADOConnh 头 文件 数据 库 连接 类 文档 管理 窗口 
Ib.h 


Dwdandlg.h 头 文件 单位 档案 窗口 文档 类 别 
Dialogin.h 头 文件 登录 框 头 文件 用 户 管理 窗口 


Dwxxb.h 头 文件 单位 表 头 文件 Zdmll 头 文件 类 别 表 头 文件 
KLxgdlg.h 头 文件 口令 修改 头 文件 Zdxxb.h 头 文件 文档 表 头 文件 
msword.h 头 文件 引用 Word 类 


613 本 章 总 结 














本 章 主要 讲述 了 文档 管理 系统 的 开发 过 程 , 通过 本 章 的 学 习 , 读者 可 以 了 解 应 用 程序 开发 的 全 过 程 。 
本 章 的 文档 管理 系统 可 以 实现 文件 的 制作 、 修 改 、 传 递 、 签 订 、 保 存 、 销 毁 和 存档 等 一 系统 操作 。 通 过 
本 章 的 学 习 ， 读 者 可 以 熟练 地 掌握 ADO 对 象 连接 数据 库 和 利用 CFileStatus 类 获得 文档 属性 等 知识 。 
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FTP 管理 系统 


( Visual Studio 2017+TCP/IP 实现 ) 


FTP 协议 是 Internet 上 传输 文件 的 通用 协议 ， 该 协议 位 于 TCP/IP 
协议 的 应 用 层 ， 因 此 FTP 属于 应 用 层 的 一 个 协议 ， 使 用 也 比较 简单 。 
利用 FTP 协议 ,可 以 将 一 个 完整 的 文件 从 一 个 系统 复制 到 另 一 个 系统 ， 
但 是 在 使 用 FTP 传输 文件 前 ， 需 要 登录 FTP 服务器， 用 户 可 以 通过 注 
册 的 用 户 名 和 密码 登录 FTP 服务 器 ， 如果 FTP 服务 器 允许 ， 用 户 也 可 
以 匿名 登录 下 IP 服务 器 。 在 本 章 中 , 笔者 设计 了 一 个 FIP 客户 端 软件 ， 
主要 功能 是 实现 本 地 系统 与 远程 FTP 服务 器 间 的 文件 上 传 和 下 载 。 

通过 学 习 本 章 ， 读 者 可 以 学 到 : 

登录 FTP 服务 路 

» 遍历 FTP 服务 路 目录 

w ”上 传 文件 到 FTP 服务 路 
从 FTP 服务 路 下 载 文件 到 本 地 系统 
利用 多 线程 实现 文件 的 上 传 和 下 载 
利用 列表 视图 控件 显示 本 地 和 FTP 服务 路 文件 
分 割 视图 窗口 
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Tl 开发 :省 水 














FTP 文件 传输 协议 是 Internet 上 最 早出 现 的 ， 同 时 也 是 应 用 最 广泛 的 ， 直 到 今天 它 
仍 是 最 重要 和 最 基础 的 应 用 之 一 。FTP 提供 了 交互 式 访问 ， 人 允许 客户 指明 文件 类 型 和 格式 ， 同 时 FTP 
屏蔽 了 各 种 计算 机 系统 的 细节 ， 因 而 适合 在 局 域 网 中 任意 计算 机 之 间 传 输 文件 。 由 于 FTP 操作 简单 ， 
开放 性 强 , 且 能 充分 利用 Internet 来 进行 信息 传递 交流 , 所 以 目前 越 来 越 多 的 FTP 服务 器 连 入 Internet, 
这 样 越 来 越 多 的 资源 可 以 通过 匿名 的 FTP 来 获得 。 据 统计 ， 全 世界 现在 已 经 有 数 千 个 FTP 文件 服务 器 
对 所 有 的 Internet 用 户 开放 使 用 ， 用 户 可 以 通过 与 Intemet 相连 到 远程 计算 机 ， 把 自己 需要 的 文件 传输 
过 来 或 者 把 自己 收集 的 文件 上 传 以 与 他 人 共享 。 


7.2 需求 分 析 


目前 ， 使 用 FTP 传输 文件 的 用 户 越 来 越 多 ， 在 局 域 网 内 任意 计算 机 之 间 可 以 共享 资源 ， 用 户 可 以 
通过 Internet 连接 远程 计算 机 ， 实 现 上 传 或 下 载 ， 通 过 对 数据 统计 的 研究 和 分 析 ， 要 求 本 系统 应 该 具有 
以 下 功能 。 

回 FTP 文件 的 多 任务 上 传 。 

回 FTP 文件 的 多 任务 下 载 。 


73 系统 设计 


7.3.1 系统 目标 


对 于 FTP 管理 系统 ， 要 满足 使 用 方便 和 操作 灵活 等 设计 需求 。 本 系统 应 该 实现 以 下 几 个 功能 。 
回 ”FTP 文件 交互 方式 。 

回 “能够 浏览 磁盘 文件 。 

E ”系统 运行 稳定 、 安 全 可 靠 。 


7.3.2 系统 功能 结构 
系统 功能 结构 如 图 7.1 所 示 。 
7.3.3 ”系统 预览 


FTP 文件 传输 管理 软件 只 包含 一 个 主 对 话 框 ， 但 是 主 对 话 框 却 由 登录 信息 栏 、 工 具 栏 、 本 地 信息 
窗口 、 远 程 FTP 服务 器 信息 窗口 和 任务 列表 共 5 个 子 窗口 构成 。 下 面 分 别 给 出 各 个 窗口 的 效果 图 。 
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FTP 文件 传输 管理 软件 主 窗口 效果 如 图 7.2 所 示 。 
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图 7.1 FTP 管理 系统 功能 图 图 7.2 FTP 文件 传输 管理 软件 主 窗口 
登录 信息 栏 效果 如 图 7.3 所 示 。 
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73 登录 信息 栏 窗 口 

















工具 栏 窗 口 效果 如 图 7.4 所 示 。 
ma EJ 
图 7.4 工具 栏 窗口 























本 地 信息 窗口 效果 如 图 7.5 所 示 。 
远程 FTP 服务 器 信息 窗口 效果 如 图 7.6 所 示 。 
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任务 列表 窗口 运行 效果 如 图 7.7 所 示 。 
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图 77 任务 列表 窗口 
7.3.4 业务 流程 图 


FTP 管理 系统 的 业务 流程 图 如 图 7.8 所 示 。 
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图 7.8 FTP 管理 系统 业务 流程 图 


7.4 关键 技术 分 析 





744 设计 类 似 于 资源 管理 器 的 列表 视图 控件 


在 设计 FTP 文件 传输 管理 软件 时 ,首先 需要 确定 采用 何 种 方式 显示 本 地 和 FTP 服务 器 上 的 目录 和 
文件 。 为 了 模仿 Windows 资源 管理 器 的 效果 ， 笔 者 采用 了 列表 视图 控件 一 一 CListCtrl 来 实现 目录 和 文 
件 的 显示 。 但 是 ，MEFC 提供 的 默认 的 CListCtrl 无 法 实现 Windows 资源 管理 器 的 效果 ， 必 须 重新 设计 
一 个 列表 视图 控件 。 该 控件 需要 具备 的 功能 有 以 本 地 系统 默认 的 图 标 显 示 目 录 和 文件 的 图 标 ， 在 控件 
中 双击 某 一 个 目录 将 进入 子 目 录 , 按 Backspace 键 将 返回 上 一 级 目录 , 实现 对 某 一 列 的 升序 、 降 序 排列 ， 
并 以 箭头 标识 。 在 设计 控件 之 前 ， 读 者 需要 对 CListCtrl 控件 有 所 了 解 。CListCtrl 控件 主要 由 两 部 分 构 
成 ， 第 一 部 分 是 列 头 部 分 ， 由 CHeaderCtrl 控件 构成 ， 第 二 部 分 是 表格 部 分 。 当 在 列 头 部 分 绘制 排序 箭 
头 时 ， 实 际 上 是 在 CHeaderCtrl 控件 上 进行 的 。 


1. 设置 列 头 控件 


下 面 介绍 控件 的 详细 设计 过 程 。 首 先 设计 列 头 控件 ， 因 为 需要 绘制 排序 列 的 标记 。 
(1) 从 CHeaderCtil 类 派生 一 个 子 类 一 一 CSortHeaderCttl， 向 该 类 中 添加 成 员 变量 。 代 码 如 下 : 


Int m. nSortColumn; /排序 列 
BOOL m bAscend; /是 否 为 升序 


(2) 在 构造 函数 中 初始 化 成 员 变 量 。 代 码 如 下 : 
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CSortHeaderCtrl::CSortHeaderCtrl() 


{ 
m nSortColumn = -1; 
m bAscend = TRUE; 
———— C 


(3) 向 CSortHeaderCtrl 类 中 添加 SetSortColomn 方法 ， 用 于 设置 排序 列 和 排序 列 的 自 绘 风格 。 代 
码 如 下 : 


void CSortHeaderCtrl::SetSortColomn(int nColumn, BOOL bAscend) 
t 





m nSortColumn = nColumn; // 设 置 排序 列 
m_bAscend = bAscend; /设置 排序 方式 
HD ITEM hltem; 

hitem.mask = HDI FORMAT; 

Getltem(nColumn, &hltem); // 获 取 列 信息 
hltem.fmt |= HDF. OWNERDRAW; // 设 置 列 自 绘 风格 
Setltem(nColumn, &hltem); /设置 列 信息 
Invalidate(); // 更 新 控件 


} 
(4) 改写 CSortHeaderCtrl 类 的 DrawItem 方法 ， 根 据 排 序 方式 绘制 排序 列 的 箭头 符号 。 代 码 如 下 : 


void CSortHeaderCtrl::Drawltem(LPDRAWITEMSTRUCT IpDrawltemStruct) 
{ 








CDC dc; /定义 设备 上 下 文 
dc.Attach(IpDrawltemStruct->hDC); /附加 设备 上 下 文句 柄 

const int nSavedIndex = dc.SaveDC(); /保存 设备 上 下 文 

CRect rc(IpDrawltemStruct-»rcltem); JT BR BU Dt 

CBrush brush(GetSysColor(COLOR 3DFACE)); /定义 背景 画 刷 
dc.FillRect(rc, &brush); /填充 画 刷 

TCHAR szText[256]; /定义 字符 数组 ， 存 储 列 文本 


HD ITEM hditem; 

hditem.mask = HDI. TEXT | HDI FORMAT; 
hditem.pszText = szText; 
hditem.cchTextMax = 255; 


Getltem(IpDrawltemStruct-»itemID, &hditem); // 获 取 当 前 的 项 目 信息 
UINT uFormat = DT_SINGLELINE | DT NOPREFIX | DT NOCLIP | 
DT VCENTER | DT END ELLIPSIS; // 设 置 绘制 的 文本 格式 


if(hditem.fmt & HDF_CENTER) 
uFormat |= DT. CENTER; 
else if(hditem.fmt & HDF. RIGHT) 
uFormat |= DT RIGHT; 
else 
uFormat |- DT LEFT; 
ifipDrawltemStruct-»itemState == ODS SELECTED) ”// 列 是 否 被 选中 
{ 
rc.left++; // 调 整 列 的 区 域 
rec.top += 2; 
rc.right++; 
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CRect rclcon(lpDrawltemStruct->rcltem); /定义 箭头 显示 区 域 
const int iOffset = (rclcon.bottom - rclcon.top) / 4; 
if(ipDrawltemStruct-»itemlD == (UINT) m nSortColumn) 
rc.right -= 3 * iOffset; 
rc.left += iOffset; 
rc.right -= iOffset; 
if(rc.left « rc.right) 


dc.DrawText(szText, -1, rc, uFormat); /绘制 列 文本 
/绘制 箭头 
if(IpDrawltemStruct->itemID == (UINT) m nSortColumn) 
{ 
CPen penLight(PS_SOLID, 1, GetSysColor( COLOR_3DHILIGHT)); // 定 义 浅 颜 色 画 笔 
CPen penShadow(PS SOLID, 1, GetSysColor( COLOR 3DSHADOW)); /定义 深 颜 色 画笔 
CPen* pOldPen = dc.SelectObject(&penLight); // 选 中 画笔 
if(m_bAscend) /绘制 向 上 的 箭头 
{ 
dc.MoveTo(rclcon.right - 2 * iOffset, iOffset); 
dc.LineTo(rclcon.right - iOffset, rcIcon.bottom - iOffset - 1); 
dc.LineTo(rclcon.right - 3 * iOffset - 2, rcIcon.bottom - iOffset - 1); 
dc.SelectObject(&penShadow); 
dc.MoveTo(rclcon.right - 3 * iOffset - 1, rcIcon.bottom - iOffset - 1); 
dc.LineTo(rclcon.right - 2 * iOffset, iOffset - 1); 
) 
else /绘制 向 下 的 箭头 
{ 
dc.MoveTo(rclcon.right - iOffset - 1, iOffset); 
dc.LineTo(rclcon.right - 2 * iOffset - 1, rcIcon.bottom - iOffset); 
dc.SelectObject(&penShadow); 
dc.MoveTo(rclcon.right - 2 * iOffset - 2, rcIcon.bottom - iOffset); 
dc.LineTo(rclcon.right - 3 * iOffset - 1, iOffset); 
dc.LineTo(rclcon.right - iOffset - 1, iOffset); 
} 
dc.SelectObject(pOldPen); /恢复 原来 选择 的 画笔 
dc.RestoreDC(nSavedlndex); /恢复 之 前 的 设备 上 下 文 
dc.Detach(); /从 设备 上 下 文中 分 离 设备 上 下 文句 柄 


2. 设置 列表 视图 控件 


在 设计 完 列 头 控 件 之 后 ， 下 面 开 始 设计 列表 视图 控件 。 
(D 从 CListCtrl 类 派生 一 个 子 类 一 一 CSortListCtrl， 向 该 类 中 添加 如 下 成 员 变 量 。 代 码 如 下 : 


CString m BaseDir; // 基 目录 

CString m CurDir; /记录 当前 列表 中 文件 的 目录 

int m nListType; /列表 类 型 ，0 表示 显示 本 地 信息 ，1 表示 显示 FTP 服务 器 信息 ， 默 认为 0 
ClnternetSession m Session; IlInternet 会 话 

CString m FtpServer,m Port,m User,m Password; JWFTP 服务 器 ， 端 口号 ， 用 户 名 和 密码 
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CSortHeaderCtrl m ctlHeader; 1/ 列 头 

int m nNumColumns; // 列 数 

int m. nSortColumn; /排序 列 
BOOL m bAscend; // 是 否 升序 排列 


Q) 定义 一 个 类 CItemData， 描 述 项 目的 额外 数据 ， 主 要 用 于 记录 某 一 行 各 个 列 的 文本 。 当 排序 
需要 根据 排序 函数 的 参数 获取 排序 列 的 文本 以 便 进 行 比较 。 代 码 如 下 : 


class CltemData 
{ 


x 


public: 
CltemData() /构造 函数 
$ 
m_ColumnTexts = NULL; 
m_dwData = 0; 
} 
LPTSTR* m_ColumnTexts; /记录 当前 行 所 有 列 文本 
DWORD m dwData; // 视 图 项 数据 
private: 
// 禁 止 复制 
CltemData(const CltemData&); 
CltemData& operator=(const CltemData&); 
X 


(3) 向 CSortListCtrl 类 中 添加 SetltemDataList 方法 ， 为 项 目 关联 一 个 自 定义 的 数据 结构 一 一 
CItemData。 在 进行 排序 时 需要 根据 该 数据 结构 获取 排序 列 的 文本 。 代 码 如 下 : 


BOOL CSortListCtrl::SetltemDataList(int iltem, LPTSTR* pchTexts) 








if (CListCtrl::GetltemData(iltem) == NULL) // 判 断 关联 的 数据 是 否 为 空 
{ 
CltemData* pltemData = new CltemData(); /构建 一 个 CltemData 对 象 
pltemData->m_ColumnTexts = pchTexts; /设置 列 文本 
/设置 项 目 数据 


return CListCtrl::SetltemDatal(iltem, (DWORD)pltemData); 


H 
C4) 向 CSortListCtrl. 类 中 添加 GetItemDataList 方法 ， 获 取 项 目 关 联 的 数据 。 代 码 如 下 : 





LPTSTR* CSortListCtrl::GetltemDataList(int iltem) const 


ASSERT(iltem < GetltemCount()); 
CltemData* pltemData = (CltemData* )CListCtri::GetltemData( item); /获取 关联 数据 
return pltemData->m_ColumnTexts; // 返 回 列 文本 

} 


(5) 向 CSortListCtrl 类 中 添加 SetItemText 方法 ， 设 置 项 目的 文本 ， 同 时 修改 关联 的 CItemData 
结构 的 列 文本 。 代 码 如 下 : 
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BOOL CSortListCtrl::SetltemText(int nltem, int nSubltem, LPCTSTR IpszText) 


{ 


ifICListCtrl::SetltemText(nltem, nSubltem, IpszText)) 


return FALSE; 


LPTSTR*" pszTexts = GetltemDataList(nltem); 
LPTSTR pszText = pszTexts[nSubltem]; 
delete[] pszText; 

pszText = new TCHAR[Istrlen(IpszText) + 1]; 
Istrcpy(pszText, IpszText); 
pszTexts[nSubltem] = pszText; 

return TRUE; 


} 


// 调 用 基 类 的 方法 设置 文本 
/记录 各 列 文本 

/获取 当前 列 文本 

// 释 放 文 本 数据 


/重新 设置 文本 


(6) 向 CSortListCtrl 类 中 添加 AddItem 方法 ， 用 于 添加 新 行 ， 设 置 行 各 列 文本 。 代 码 如 下 : 





int CSortListCtrl::Addltem(LPCTSTR pszText, ...) 


{ 


int nIndex = Insertltem(GetltemCount(), pszText); 

LPTSTR* pszColumnTexts = new LPTSTR[m nNumColumns]; 
pszColumnTexts[0] = new TCHAR[ Istrlen(pszText) + 1]; 
Istrcepy(pszColumnTexts[0], pszText); 

va list list; 

va start(list, pszText); 

for(int nColumn = 1; nColumn < m nNumColumns; nColumn++) 


( 


) 


pszText = va arg(list, LPCTSTR); 


/添加 行 ， 返 回 行 索引 
/记录 各 列 文本 


/设置 第 一 列 文本 


/设置 其 他 列 文本 


CListCtrl::Setltem(nIndex, nColumn, LVIF TEXT, pszText, 0, 0, 0, 0); 


pszColumnTexts[nColumn] = new TCHAR[Istrlen(pszText) + 1]; 
Istrcpy(pszColumnTexts[ nColumn], pszText); 


va end(list); 
SetltemDataList(nIndex, pszColumnTexts); 
return nIndex; 


) 


// 设 置 行 关 联 数据 





(7) 向 CSortListCtrl 类 中 添加 SetColumns 方法 ， 向 列表 视图 控件 中 添加 列 ， 设 置 列 文本 。 该 方 


法 的 主要 作用 是 可 以 一 次 添加 多 列 ， 并 且 可 以 指定 列 的 宽度 。 代 码 如 下 : 


/设置 列 ， 格 式 为 文本 ， 宽 度 ; 文本 ， 宽 度 ; …… 
BOOL CSortListCtrl::SetColumns(const CString& strHeadings) 


{ 


int nStart = 0; 
for(;;) 


{ 


int nComma = strHeadings.Find(_T(','), nStart); 
ifírnComma == -1) 
break; 


CString strHeading = strHeadings.Mid(nStart, ncomma - nStart); 


nStart = nComma + 1; 


/查找 “,” 标 记 


/获取 文本 
/| 掠 过 “” 
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int nSemiColon = strHeadings.Find( T(';), nStart); NER 5 

if(nSemiColon == -1) /查找 到 了 结尾 
nSemiColon = strHeadings.GetLength(); 

int nWidth = atoi(strHeadings.Mid(nStart, nSemiColon -nStart); /获取 宽度 


nStart = nSemiColon + 1; // 指 向 下 一 列 信息 
if( nsertColumn(m_nNumColumns++, strHeading, LVCFMT_LEFT, nWidth) == -1) 
return FALSE:; IRAJ 
} 
return TRUE; 


} 


(8) 向 CSortListCtrl 类 中 添加 GetIconFromExtendedName 方法 , 根据 文件 的 类 型 获取 系统 对 应 的 
文件 图 标 。GetIconFromExtendedName 方法 首先 判断 参数 是 文件 还 是 目录 ， 如 果 是 文件 ， 则 调用 
SHGetFileInfo 函数 并 传递 SHGFI USEFILEATTRIBUTES 标记 来 依据 文件 类 型 返回 图 标 , 如 果 为 目录 ， 
则 以 当前 目录 为 参数 ， 调 用 SHGetFileInfo 函数 获取 系统 目录 的 图 标 。 代 码 如 下 : 

// 根 据 文件 类 型 获取 图 标 


HICON CSortListCtrl::GetlconFromExtendedName(LPCTSTR IpName) 
{ 





SHFILEINFO shinfo; /定义 外 壳 文 件 信息 

int nlcon = 0; 

CString extension = IpName; 

CString csName = "text"*extension; /设置 一 个 临时 的 文件 名 
int nPos = csName.ReverseFind(..'); /判断 是 否 为 文件 

if (nPos >0) 


/获取 文件 图 标 
SHGetFilelnfo(csName,FILE ATTRIBUTE NORMAL, &shlnfo,sizeof(shInfo), 
SHGFI ICON | SHGFI SMALLICON|SHGFI USEFILEATTRIBUTES)J; 


else /参数 表示 一 个 目录 
{ 
char chPath|MAX. PATH] = (0); 
GetCurrentDirectory(MAX. PATH,chPath); // 获 取 当 前 目录 
SHGetFilelnfo(chPath,FILE ATTRIBUTE NORMAL,&shlnfo,sizeof(shlInfo), 
SHGFI ICON | SHGFI SMALLICON); /获取 目录 图 标 


nPos = shlnfo.ilcon; 
return shinfo.hicon; // 返 回 获 取 的 图 标 
) 


(9) 向 CSortListCtrl. 类 中 添加 DisplayPath 方法 ， 列 举 本 地 或 FTP 服务 器 目录 和 文件 信息 。 该 方 

法 非常 重要 ， 在 程序 中 多 处 都 需要 调用 DisplayPath 方法 ， 例 如 ， 在 视图 列表 中 显示 本 地 系统 中 的 某 一 

个 目录 下 的 子 目 录 和 文件 ， 用 户 按 Backspace 键 返 回 上 一 级 目录 等 ， 这 些 都 需要 调用 DisplayPath 方法 
来 实现 。 

DisplayPath 方法 代码 较 多 ， 但 是 并 不 复杂 。 首 先 根据 成 员 变量 m_nListType 来 判断 显示 的 是 本 地 

系统 目录 ， 还 是 FTP 服务 器 上 的 目录 。 以 显示 本 地 系统 目录 为 例 ， 使 用 CFileFind 类 来 遍历 当前 目录 


e. 
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的 直接 子 目录 和 文件 ， 如 果 是 文件 ， 则 读 取 文 件 的 修改 日 期 和 大 小 信息 ， 如 果 是 目录 ， 则 标记 为 文件 
夹 ， 将 这 些 信息 添加 到 列表 视图 中 ， 然 后 获取 文件 关联 的 图 标 索引 ， 设 置 视图 项 显示 的 图 像 索 引 ， 最 
后 为 了 区 分 列表 视图 中 的 项 目 表示 的 是 文件 还 是 目录 , 为 每 个 视图 项 设置 一 个 额外 的 整数 值 , 0 表示 文 
件 ，1 表示 目录 。 代 码 如 下 : 





void CSortListCtrl::DisplayPath(LPCTSTR IpPath,CFtpConnection* pTemp) 


DeleteAllltems(); 
if (m nListType--0) 


{ 


BOOL bFind; 

CFileFind flFind; 

CString csPath - IpPath; 
m CurDir = IpPath; 

if (csPath.Right(1) != V") 


csPath += "\\"; 
m_CurDir +="\"; 


csPath += ™*.*", 

bFind = flFind.FindFile(csPath); 
CString csText,csFileSize,csDataTime; 
while (bFind) 


bFind = flFind.FindNextFile(); 


if (fiFind.IsDots() && ffiFind.IsHidden()) 


. int64 IFileLen = flFind.GetLength64(); 


if (flFind.IsDirectory()) 
csFileSize = "文件 夹 "; 
else 


{ 
/获取 文件 的 大 小 


/删除 所 有 视图 项 
// 显 示 本 地 系统 信息 


// 记 录 查 找 结果 
// 定 义 文件 查找 对 象 
// 记 录 参 数 信息 


// 设 置 当 前 目录 ， 进 入 子 目 录 或 返回 上 一 级 目录 时 需要 依据 当前 目录 


// 保 证 目录 以 “\” 结 尾 


// 在 目录 结尾 添加 *.* 用 于 查找 文件 
// 开 始 查 找 文件 


// 设 置 列表 当前 显示 的 目录 
// 查 找 下 一 个 文件 


// 获 取 文件 长 度 
// 判 断 是 否 为 目录 


// 如 果 是 文件 


double fGB = IFileLen /(double)(1024*1024*1024); 


if (fGB < 1) 
x 


// 判 断 文 件 是 否 小 于 1GB 


double fMB = IFileLen / (double)(1024*1024); 


if (MB < 1) 
t 


// 判 断 文 件 是 否 小 于 1MB 


double fBK = IFileLen / (double)(1024); 


if (fBK »1) 
t 


// 判 断 文 件 是 否 小 于 1KB 


csFileSize.Format("%2.2f KB",fBK); 


} 


else 


/使 用 位 作为 单位 
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csFileSize.Format("%i B",IFileLen); 


) 


else 


( 
csFileSize.Format("962.2f MB" fMB); 


csFileSize.Format("962.2f GB" fGB); 
) 


) 

csText = flFind.GetFileName(); /获取 文件 名 称 
CTime time; 

flFind.GetCreation Time(time); // 获 取 文 件 日 期 


csDataTime = time.Format("%Y-%m-%d %H:%M"); /格式 化 日 期 
int nltem = Addltem(csText,csFileSize,csDataTime); /添加 视图 项 
/设置 文件 显示 的 图 标 


SHFILEINFO shinfo; 

int nlcon 7 0; 

SHGetFilelnfo(flFind.GetFilePath(),0,&shlnfo,sizeof(shInfo),SHGFI ICON | 
SHGFI. SMALLICON); /获取 文件 图 标 

Destroylcon(shlnfo.hlcon); 

nlcon = shinfo.ilcon; /获取 文件 图 标 索引 

Setltem(nltem,0,LVIF_IMAGE,",nlcon,0,0,0); // 设 置 视图 项 图 标 


/设置 项 目标 记 ，0 表示 文件 ，1 表示 目录 
if (flFind.IsDirectory()) 


t 
SetltemData(nltem,1); 
) 
else 
t 
SetltemData(nltem,0); 
) 
nltem++; 
// 显 示 FTP 服务 器 信息 
CFtpConnection* pFTP = NULL; /定义 FTP 连接 对 象 指针 
/登录 FTP 服务 器 
pFTP = m Session.GetFtpConnection(m FtpServer,m User,m Password,atoi(m Port)); 
pFTP-»SetCurrentDirectory(""); Ing SRI 
CFtpFileFind Find(pFTP); /定义 FTP 文件 查找 对 象 
BOOL bFind; // 记 录 查 找 结果 
m_CurDir -IpPath; /设置 当前 目录 
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if (strien(IpPath)--0) 
bFind = Find.FindFile(NULL,INTERNET. FLAG EXISTING CONNECT| 


INTERNET. FLAG RELOAD); /从 FTP 根 目录 开始 查找 
else 
bFind = Find.FindFile(lIpPath,INTERNET_FLAG_EXISTING_CONNECTI 
INTERNET FLAG RELOAD); /查找 指定 目录 
if (bFind) /查找 是 否 成 功 
{ 
CString csFileName,csDataTime,csFileSize; 
while (bFind) In S SR Ea 
t 
bFind = Find.FindNextFile(); /查找 下 一 个 文件 
csFileName = Find.GetFileName(); /获取 文 件 名称 
CTime fileTime; 
Find.GetLastWriteTime(fileTime); // 获 取 文 件 修改 时 间 
/格式 化 文件 修改 时 间 


csDataTime = flleTime.Format("%Y-%m-%d 96H:96M"); 
if (IFind.IsDots() && IFind.IsHidden()) 


__int64 IFileLen = Find.GetLength64(); /获取 文件 长 度 
if (Find.IsDirectory()) IA R8 73 FRE 


{ 
csFileSize = "文件 夹 "; 


else // 如 果 是 文件 

{ 
double fGB = IFileLen /(double)(1024*1024*1024); 
if(fGB < 1) /| 是否 小 于 1GB 
{ 


double {MB = IFileLen / (double)(1024*1024); 
if (fMB < 1) /是 否 小 于 1MB 
{ 
double fBK - IFileLen / (double)(1024); 
if (BK >1) /是 否 小 于 1KB 
{ 
csFileSize.Format("%2.2f KB",fBK); 
) 
else /以 位 为 单位 显示 
{ 
csFileSize.Format("%i B",IFileLen); 


csFileSize.Format("962.2f MB",fMB); 
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csFileSize.Format("962.2f GB",fGB); 


) 


) 
int nltem = Addltem(csFileName,csFileSize,csDataTime); /添加 视图 项 


/设置 文件 显示 的 图 标 

SHFILEINFO shlnfo; 

int nicon = 0; 

CString csName = Find.GetFileName(); 
int nPos = csName.ReverseFind('.); 

if (nPos >0) 


/映射 为 本 地 系统 的 文件 图 标 


/定义 文件 外 壳 信息 


/获取 文件 名 
/查找 扩展 名 
/如果 是 文件 


SHGetFilelnfo(csName,FILE_ATTRIBUTE_NORMAL,&shlnfo,sizeof(shlnfo)， 
SHGFI_ICON |SHGFL_ SMALLICON|SHGFI, USEFILEATTRIBUTES); 


) 


else 


char chPath[MAX. PATH] = (0); 


GetCurrentDirectory(MAX PATH,chPath); 


// 如 果 是 目录 


// 获 取 当 前 目录 


SHGetFilelnfo(chPath,FILE_ATTRIBUTE_NORMAL,&shlnfo,sizeof(shlnfo)， 


SHGFI ICON | SHGFI, SMALLICON); 


) 

Destroylcon(shlnfo.hIcon); 

nicon = shinfo.ilcon; 
Setltem(nltem,0,LVIF_IMAGE,",nlcon,0,0,0); 
/设置 项 目标 记 ，0 表示 文件 ，1 表示 目录 

if (Find.IsDirectory()) 


SetltemData(nltem, 1); 
) 
else 
SetltemData(nltem,0); 
) 
) 
Find.Close(); 


pFTP-»Close(); 
delete pFTP; 


) 


// 获 取 目 录 图 标 


/获取 图 标 索引 


/设置 视图 项 显示 的 图 标 


/设置 视图 项 标记 


// 设 置 视图 项 标记 


/关闭 文件 查找 对 象 
/关闭 FTP 文件 连接 
/释放 FTP 连接 对 象 





(100 处 理 列表 视图 控件 的 双击 事件 ， 如 果 用 户 双 击 的 是 目录 项 目 ， 则 进入 子 目 录 。 代 码 首 先 判 
断 当前 列表 视图 显示 的 是 本 地 系统 目录 信息 ， 还 是 FTP 服务 器 目录 信息 。 以 显示 本 地 系统 目录 信息 为 
例 ， 首 先 获取 当前 视图 项 关联 的 整数 值 ， 来 区 分 当前 视图 项 表示 的 是 文件 还 是 目录 ， 如 果 是 目录 ， 则 
获取 该 目录 的 完整 路 径 , 将 其 作为 参数 传递 到 DisplayPath 方法 中 以 显示 直接 子 目 录 和 文件 。 代 码 如 下 : 


e. 


第 7 章 FTP 管 理 系统 (Visual Studio 2017-TCP/IP 实现 ) 





void CSortListCtrl::OnDblcIKKNMHDR* pNMHDR, LRESULT* pResult) 


int nltem = GetSelectionMark(); // 获 取 当 前 选中 的 视图 项 索引 
if (nltem != -1) 
if (m nListType--0) // 进 入 本 地 系统 子 目录 
int nFlag =GetltemData(nltem); /获取 视图 项 关联 的 整数 值 
if (nFlag==1) // 判 断 是 否 为 目录 
{ 
// 获 取 完 整 的 目录 信息 


CString csFoder = GetltemText(nltem,0); 
csFoder += "\\"; 


/获取 目录 
m_CurDir += csFoder; 
DisplayPath(m_CurDir); // 进 入 子 目 录 
else IEA FTP 服务 器 子 目录 
{ 
int nFlag =GetltemData(nitem); // 获 取 视 图 项 关联 的 整数 值 
if (nFlag==1) // 判 断 是 否 为 目录 
{ 
// 获 取 完整 的 目录 信息 
CString csFoder = GetltemText(nltem,0); 
csFoder += "/"; 
/获取 目录 
m_CurDir += csFoder; 
DisplayPath(m CurDir); // 进 入 子 目 录 


) 


) 
*pResult = 0; 
) 


(11) 处 理 列表 视图 的 WM. KEYDOWN 消息 ， 当 用 户 按 Backspace 键 时 返回 上 一 级 目录 。 代 码 首 
先 判断 列表 视图 显示 的 是 本 地 系统 目录 还 是 FTP 服务 器 目录 ， 如 果 是 本 地 系统 目录 ， 则 根据 当前 目录 
获取 上 一 级 目录 ,然后 调用 DisplayPath 方法 显示 上 一 级 目录 。 如 果 是 FTP 服务 器 目录 ,仍然 根据 当前 
目录 获取 上 一 级 目录 ， 只 是 FTP 服务 器 的 目录 格式 与 本 地 系统 的 目录 格式 不 同 ， 最 后 调用 DisplayPath 
方法 显示 上 一 级 目录 。 代 码 如 下 : 


void CSortListCtrl::OnKeydown(NMHDR* pNMHDR, LRESULT* pResult) 
{ 





LV_KEYDOWN* pLVKeyDow = (LV. KEYDOWN*)pNMHDR; 
if (pL VKeyDow-»wVKey--VK BACK) // 返 回 上 一 级 目录 


if (m nListType == 0) /显示 本 地 系统 目录 
{ 
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if (m BaseDir != m CurDir && m_BaseDir "") // 如 果 为 根 目录 ， 则 取消 操作 


if (m CurDir.Right(1) == "W") 


IRR NU 
m CurDir = m CurDir.Left(m CurDir.GetLength()-1); 
) 
int nPos = m CurDir.ReverseFind(W); 
m CurDir = m CurDir.Left(nPos); // 返 回 上 级 目录 
) 
j 
else /显示 FTP 服务 器 目录 
{ 
CString csTmpDir = m CurDir; 
CString csTmpBase = m BasebDir; 
/去 除 字符 串 两 端的 “/” 符 号 
if (csTmpDir.Right(1)=="/") 
csTmpDir = csTmpDir.Left(csTmpDir.GetLength()-1); 
if(csTmpDir.Left(1)-"/") 
csTmpDir = csTmpDir.Mid(1); 
if (csTmpBase.Right(1)--"/") 
csTmpBase = csTmpBase.Left(csTmpBase.GetLength()-1); 
if(csTmpBase.Left(1)-7"/") 
csTmpBase - csTmpBase.Mid(1); 
if (cSTmpBase == csTmpDir) // 如 果 当 前 目录 已 是 根 目 录 ， 则 退出 
{ 
return; 
) 
if (m, CurDir I ™) 
if (m. CurDir.Right(1) == "/") /目录 是 否 以 “/” 结 尾 
IRR "I" RES 
m CurDir = m CurDir.Left(m CurDir.GetLength()-1); 
) 
int nPos = m CurDir.ReverseFind('); // 反 向 查找 “/” 符 号 
if (nPos != -1) 
m CurDir = m CurDir.Left(nPos) + '/'; // 获 取 上 级 目录 
else 
m_CurDir = ""; 
) 
i 
DisplayPath(m_CurDir); /显示 上 级 目录 
*pResult = 0; 


} 


(12) 添加 全 局 函数 INumber， 判 断 文本 是 否 为 数字 。 因 为 在 排序 列 时 ， 首 先 按 数 字 大 小 排序 。 
代码 如 下 : 


e. 
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// 潮 断 文本 是 否 为 数据 
bool lsNumber(LPCTSTR pszText) 
for(int i = 0; i < Istrlen(pszText); i++) // 遍 历 每 一 个 字符 
if(!_istdigit(pszText[i])) /判断 是 否 为 数值 
return false; 
return true; 


} 


(13) 添加 CompareDataAsNumber 全 局 函数 ， 用 于 进行 数值 比较 。 对 于 排序 函数 来 说 ， 如 果 第 一 
项 位 于 第 二 项 之 前 ， 比 较 函 数 需 要 返回 一 个 负数 ， 如 果 第 一 项 位 于 第 二 项 之 后 ， 比 较 函数 需要 返回 一 
个 整数 。 如 果 两 个 项 相等 ， 比 较 函 数 需 要 返回 零 值 。 代 码 如 下 : 


int CompareDataAsNumber(LPCTSTR pszParam1, LPCTSTR pszParam2) 
{ 

int nNumber1 = atoi(pszParam1); 

int nNumber2 = atoi(pszParam2); 

return nNumber1 - nNumber2; 
) 


(14) 添加 全 局 函数 EDate， 判 断 文本 是 否 为 日 期 。 日 期 格式 需要 采用 “2008-08-08” 的 形式 。 代 
码 如 下 : 


// 判 断 是 否 为 日 期 
bool lsDate(LPCTSTR pszText) 








/格式 为 0000-00-00 

if(Istlen(pszText) < 10) 
return false; 

return | istdigit(pszText[0]) // 判 断 年 部 分 是 否 合法 
&& _istdigit(pszText[1]) 
&& istdigit(pszText[2]) 
&& istdigit(pszText[3]) 
&& pszText[4] == T(-) 
&& _istdigit(pszText[5]) // 判 断 月 部 分 是 否 合法 
&& istdigit(pszText[6]) 
&& pszText[7] == T(-) 
&&  istdigit(pszText[8]) IH] RS EAR 
&& istdigit(pszText[9]); 

) 


C15). 添加 CompareDataAsDate 全 局 函数 ， 进 行 日 期 比较 。 日 期 是 按 年 、 月 、 日 的 先后 顺序 进行 
比较 。 代 码 如 下 : 


// 按 日 期 比较 数据 
int CompareDataAsDate(const CString& strDate1, const CString& strDate2) 


// 先 比较 年 


KI 
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int nYear1 = atoi(strDate1.Mid(0, 4)); 

int nYear2 = atoi(strDate2.Mid(0, 4)); 

if (nYear1 != nYear2) // 如 果 年 不 相等 ， 直 接 得 出 了 日 期 的 大 小 
{ 


return nYear1 - nYear2; 


} 

/比较 月 

int nMonth1 = atoi(strDate1.Mid(5, 2)); 

int nMonth2 = atoi(strDate2.Mid(5, 2)); 

if(nMonth1 != nMonth2) // 如 果 年 相等 ， 月 不 相等 ， 得 出 日 期 的 大 小 
{ 


return nMonth1 = nMonth2; 


/比较 日 
int nDay1 = atoi(strDate1.Mid(8, 2)); 
int nDay2 - atoi(strDate2.Mid(8, 2)); 
if(nDay1 != nDay2) /年 和 月 相等 ， 进 行 日 的 比较 
{ 
return nDay1 - nDay2; 


) 
return 0; // 日 期 相等 ， 返 回 0 
} 


(16) 向 CSortListCtrl. 类 中 添加 静态 成 员 函 数 SortFunction， 用 于 进行 列 排序 。 这 里 需要 注意 的 是 
函数 的 前 两 个 参数 ， 这 两 个 参数 将 作为 两 个 视图 项 关联 数据 ， 如 果 视 图 项 没有 数据 关联 ， 则 参数 为 0， 
之 前 在 加 载 视图 项 时 ， 会 为 视图 项 关联 一 个 CItemData 结构 数据 ， 其 作用 就 在 于 此 。 代 码 如 下 : 


int CALLBACK CSortListCtrl::SortFunction(LPARAM IParam1, LPARAM IParam2, LPARAM IParamData) 
{ 








CSortListCtrl* pListCtrl = (CSortListCtrl*)(IParamData); 
CltemData* pParam1 = (CltemData*)(IParam1); 
CltemData* pParam2 = (CltemData*)(IParam2); 
/获取 排序 列 的 文本 
LPCTSTR pszText1 = pParam1-»m ColumnTexts[pListCtri-»m nSortColumn]; 
LPCTSTR pszText2 = pParam2-»m ColumnTexts[pListCtri-»m nSortColumn]; 
if( IsNumber( pszText1 ) ) // 按 数值 比较 
return pListCtri-»m bAscend ? CompareDataAsNumber(pszText1, pszText2) : 
CompareDataAsNumber(pszText2, pszText1); 
else if(IsDate(pszText1)) / 按 日 期 比较 
return pListCtrl->m_bAscend ? CompareDataAsDate(pszText1, pszText2) : 
CompareDataAsDate(pszText2, pszText1); 
else // 按 文本 比较 
return pListCtrl->m_bAscend ? Istremp(pszText1, pszText2) : Istremp(pszText2, pszText1); 
} 


(17) 向 CSortListCtrl 类 中 添加 Sort 方法 , 调用 列表 视图 的 SortItems 方法 对 某 一 列 进行 升序 或 降 
序 排序 。 代 码 如 下 : 


& 
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void CSortListCtrl::Sort(int iColumn, BOOL bAscending) 
( 


m nSortColumn = iColumn; // 设 置 排 序列 
m_bAscend = bAscending; // 设 置 升序 后 降序 排列 
m ctlHeader.SetSortColomn(m nSortColumn, m bAscend); 
Sortltems(SortFunction, (DWORD this); // 进 行列 排序 


(18) 处 理 列表 视图 控件 列 的 单 击 事件 ， 当 用 户 单 击 某 一 列 时 ， 对 列 进行 排序 。 代 码 如 下 : 
void CSortListCtrl::OnColumnClicK(NMHDR* pNMHDR, LRESULT* pResult) 


( 
NM LISTVIEW* pNMListView = (NM LISTVIEW*)pNMHDR; 


int nColumn = pNMListView-»iSubltem; // 获 取 当 前 列 
// 对 列 进行 排序 

Sort(nColumn, nColumn == m_nSortColumn ? Im_bAscend : TRUE); 
*pResult = 0; 


} 


(19) 改写 列表 视图 控件 的 PreSubclassWindow 方法 ， 将 自 定义 的 列表 控件 关联 到 列表 视图 控件 
中 。 代 码 如 下 : 


void CSortListCtrl::PreSubclassWindow() 








ASSERT(GetStyle() & LVS_REPORT); 
CListCtrl::PreSubclassWindow!(); 
VERIFY(m ctlHeader.SubclassWindow(GetHeaderCtrl()-» GetSafeHwnd())); 


) 

至 此 ， 完 成 了 列表 视图 控件 主要 功能 的 设计 在 列表 视图 控件 销毁 时 需要 释放 项 目 关联 的 数据 结 
构 ， 由 于 篇 幅 限 制 ， 这 里 没有 给 出 相关 代码 ， 详 细 代 码 请 参考 资源 包 中 的 程序 ) 。 
7.4.2 登录 FTP 服务 器 


在 进行 与 FTP 有 关 的 操作 前 ， 首 先 需 要 登录 FTP 服务 器 才能 进行 其 他 相关 操作 。 在 MEC 中 提供 
了 CInternetSession 类 用 于 连接 网 络 服务 器 。 通过 调用 CInternetSession 类 的 GetFtpConnection 方法 可 以 
连接 FTP 服务器， 获取 一 个 与 FTP 服务 器 关联 的 CFtpConnection 对 象 指针 。 主 要 代码 如 下 : 








CString csServer,csPassword,csUser,csPort; 


m ConnectBar.GetDlgltemText(IDC. FTPSERVER,csServer); 1/ 获取 FTP 服务 器 IP 
m_ConnectBar.GetDlgltemText(IDC_FTPPORT,csPort); // 获 取 FTP 服务 器 端口 
m_ConnectBar.GetDlgltemText(IDC_PASSWORD,csPassword);  // 获 取 登 录 密码 
m ConnectBar.GetDlgltemText(IDC, USER,csUser); // 获 取 用 户 名 
if (IcsServer.IsEmpty() && !csPassword.lsEmpty() && 

IcsUser.IsEmpty() && IcsPort.IsEmpty()) /| 独断 登录 信息 是 否 为 空 


{ 
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try 
/开始 登录 服务 器 
m pFtp- Session.GetFtpConnection(csServer,csUser,csPassword,atoi(csPort)); 
m bLoginSucc = TRUE; 
} 
catch(ClnternetException &e) // 进 行 异常 捕捉 
{ 
m bLoginSucc = FALSE; /登录 失败 
delete m pFtp; 
) 
delete m pFtp; /释放 FTP 连接 对 象 


7.4.8 实现 FTP 目录 浏览 


在 登录 服务 器 之 后 ， 需 要 将 FTP 服务 器 上 的 目录 和 文件 信息 显示 在 本 地 的 窗口 中 ， 这 就 需要 实现 
浏览 FTP 目录 。 

为 了 查找 FTP 服务 器 上 的 目录 和 文件 ，MFC 提供 了 CFtpFileFind 类 ， 该 类 与 CFileFind 类 的 作用 、 
用 法 几乎 相同 ， 使 用 FindFile 方法 开始 查找 一 个 文件 ， 使 用 FindNextFile 方法 查找 下 一 个 文件 。 只 是 
CFtpFileFind 类 用 于 搜索 FTP 服务 器 。 此 外 ， 在 定义 一 个 CFtpFileFind 类 对 象 时 ， 需 要 关联 一 个 FTP 
服务 器 的 连接 。 下 面 给 出 实现 FTP 目录 浏览 的 关键 代码 。 





CFtpConnection* pFTP = NULL; /定义 FTP 连接 对 象 指针 
/登录 FTP 服务 器 

pFTP = m Session.GetFtpConnection(m FtpServer,m User,m Password,atoi(m Port)); 
pFTP-»SetCurrentDirectory(""); // 设 置 当前 目录 
CFtpFileFind Find(pFTP); /定义 FTP 文件 查找 对 象 
BOOL bFind; /记录 查找 结果 
m_CurDir =IpPath; // 设 置 当前 目录 


if (strlen(IpPath)--0) 
bFind = Find.FindFile(NULL,INTERNET FLAG EXISTING CONNECT| 


INTERNET FLAG RELOAD); // 从 FTP 根 目录 开始 查找 
else 
bFind = Find.FindFile(IpPath.INTERNET. FLAG EXISTING CONNECT| 
INTERNET FLAG RELOAD); /查找 指定 目录 
if (bFind) /查找 是 否 成 功 
CString csFileName,csDataTime,csFileSize; 
while (bFind) // 人 遍历 当前 目录 
bFind = Find.FindNextFile(); /查找 下 一 个 文件 
csFileName = Find.GetFileName(); // 获 取 文 件 名称 
CTime fileTime; 
Find.GetLastWriteTime(fileTime); // 获 取 文 件 修改 时 间 
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/格式 化 文件 修改 时 间 
csDataTime = fileTime.Format("%Y-%m-%d 96H:96M"); 
if (IFind.IsDots() && !Find.IsHidden()) 


__int64 IFileLen = Find.GetLength64(); 1/ 获取 文件 长 度 
if (Find.IsDirectory()) // 判 断 是 否 为 目录 


csFileSize = "文件 夹 "; 


else // 如 果 是 文件 

{ 
double fGB = IFileLen /(double)(1024*1024*1024); 
if (fGB « 1) /是 否 小 于 1GB 
{ 


double fMB = IFileLen / (double)(1024*1024); 
if (íMB < 1) // 是 否 小 于 1MB 
{ 
double fBK = IFileLen / (double)(1024); 
if (BK >1) /是 否 小 于 1KB 
{ 
csFileSize.Format("%2.2f KB",fBK); 


) 
else /以 位 为 单位 显示 
{ 


csFileSize.Format("%i B",IFileLen); 


csFileSize.Format("%2.2f MB",fMB); 


) 


else 


csFileSize.Format("962.2f GB",fGB); 


} 

} 
$ 
int nltem = Addltem(csFileName,csFileSize,csDataTime); // 添 加 视图 项 
// 设 置 文件 显示 的 图 标 
SHFILEINFO shinfo; /定义 文件 外 壳 信 息 
int nicon = 0; 
CString csName - Find.GetFileName(); // 获 取 文 件 名 
int nPos = csSName.ReverseFind(…); /查找 扩展 名 
if (nPos >0) // 如 果 是 文件 

/映射 为 本 地 系统 的 文件 图 标 


SHGetFilelnfo(csName,FILE ATTRIBUTE NORMAL,&shlnfo,sizeof(shlInfo), 
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SHGFI ICON |SHGFL SMALLICON|SHGFI, USEFILEATTRIBUTES); 


else // 如 果 是 目录 
t 
char chPath|MAX PATH] = {0}; 
GetCurrentDirector(MAX PATH,chPath); // 获 取 当 前 目录 
SHGetFilelnfo(chPath,FILE_ATTRIBUTE_NORMAL,&shlnfo,sizeof(shlnfo), 
SHGFI ICON | SHGFI SMALLICON); // 获 取 目 录 图 标 
} 
Destroylcon(shlnfo.hlcon); 
nlcon = shinfo.ilcon; // 获 取 图 标 索引 
Setltem(nltem,0,LVIF_IMAGE,",nlcon,0,0.0); // 设 置 视图 项 显示 的 图 标 


/设置 项 目标 记 ，0 表示 文件 ，1 表示 目录 
if (Find.IsDirectory()) 


SetltemData(nltem, 1); // 设 置 视图 项 标记 
else 
SetltemData(nltem,0); // 设 置 视图 项 标记 
} 
} 
) 
Find.Close(); /关闭 文件 查找 对 象 
pFTP->Close(); /关闭 FTP 文件 连接 
delete pFTP; /释放 FTP 连接 对 象 





7.4.4 多 任务 下 载 FTP 文件 


在 设计 FTP 文件 传输 管理 软件 时 ， 为 了 实现 多 任务 下 载 ， 并 能 够 对 每 个 下 载 任务 进行 控制 ， 采 用 
了 单独 的 线程 来 下 载 文件 ， 每 一 个 线程 维护 一 个 下 载 任务 。 在 任务 执行 过 程 中 ， 用 户 可 以 通过 挂 起 线 
程 、 唤 醒 线程 来 执行 暂停 、 继 续 任务 ， 通 过 结束 线程 来 取消 任务 。 

为 了 能 够 在 任务 列表 中 执行 挂 起 、 唤 醒 和 终止 线程 操作 ， 需 要 为 每 一 个 任务 关联 一 个 线程 句柄 ， 
笔者 采用 的 方式 是 为 视图 项 关联 一 个 额外 的 整数 值 〈 线 程 句柄 ) 。 利 用 列表 视图 控件 的 SetItemData 方 
法 将 线程 句柄 设置 为 视图 项 的 额外 数据 。 





m_pTastView->m_TastList.SetltemData(nCurltem,(DWORD)hHandle); 


为 了 进行 多 线程 下 载 ， 需 要 单独 定义 一 个 文件 下 载 的 函数 。 当 用 户 下 载 一 个 任务 时 ， 可 以 创建 一 
个 线程 ， 在 线程 函数 中 调用 该 函数 来 执行 下 载 任务 。 该 函数 需要 实现 下 载 指定 的 文件 ， 或 者 下 载 指定 
目录 下 的 所 有 文件 ， 从 功能 描述 可 知 ， 下 载 函数 将 被 设计 为 递归 函数 。 下 面 给 出 下 载 函 数 的 代码 。 


人 


pDlg: 表示 主 窗口 ， 在 这 里 没有 实际 意义 
IpDir: 表示 当前 下 载 的 文件 或 目录 
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csRelativePath: 表 示 文 件 存储 到 本 地 的 相对 路 径 ， 与 IpSaveDir 参数 构成 完整 的 路 径 


nFlag: 表示 结束 标记 ， 如 果 用 户 取消 了 下 载 任务 ， 立 即 退出 DownLoadFile 函数 
blsFile: 表示 当前 的 文件 名 是 否 是 一 个 完整 文件 名 ， 在 首次 调用 DownLoadFile HR, 


blsFile 为 TRUE。 例如 ， 当 下载 的 FTP 目录 为 Data， 如 果 Data 目录 下 的 zone.txt 文件 是 最 后 一 
个 查找 的 文件 ， 则 查找 该 文件 时 获得 的 文件 名 是 Data/zone.txt， 该 文件 名 是 一 个 完整 的 文 
件 名 ， 不 需要 再 添加 父 目 录 


IpServer: 表示 FTP 服务 器 地 址 


IpUser: 表示 登录 用 户 名 
lpPassword: ”表示 登录 密码 
nPort: 表示 端口 号 


IpSaveDir: 表示 下 载 文件 在 本 地 的 根 存储 路 径 

ek R XR XU RE ER ER Y ER E EY RE E YR ER ETE RET E ETE RET EET E ER REV EET EIER Eo EA EE AREA] 

void CMainFrame::DownLoadFile(CMainFrame * pDlg,LPCTSTR IpDir,LPCTSTR csRelativePath, 
DWORD nFlag, BOOL blsFile,LPCTSTR IpServer,LPCTSTR IpUser,LPCTSTR IpPassword, 


( 


int nPort,LPCTSTR IpSavebDir) 


CFtpConnection* pTemp = NULL; /定义 一 个 临时 的 FTP 连接 对 象 
1/ 连接 FTP 服务 器 
pTemp- Session.GetFtpConnection(IpServer,IpUser,IpPassword,nPort); 
CFtpFileFind Find(pTemp); /定义 文件 查找 对 象 
CString filename; 
if (m. dwStop == nFlag) /表示 当前 任务 被 挂 起 
{ 
pTemp-»Close(); II BERE 
delete pTemp; /释放 连接 对 象 
Find.Close(); /关闭 文件 查找 
return; 
) 
BOOL ret; 
if (strlen(IpDir)2-0) // 从 FTP 根 目录 开始 查找 
ret = Find.FindFile(NULL,INTERNET_FLAG_EXISTING_CONNECT); 
else /查找 指定 目录 
ret = Find.FindFile(IpDir,INTERNET_FLAG_EXISTING_CONNECT); 
if (ret) 
{ 
while (Find.FindNextFile()) // 查 找 下 一 个 文件 
{ 
filename = Find.GetFileName(); // 获 取 文 件 名称 
if (Find.IsDirectory()) // 如 果 文 件 是 目录 , 递归 调用 DownLoadFile 
{ 


char csdir[MAX_PATH] = {0}; 
char csRetPath[MAX_PATH] = {0}; 
strcpy(csdirIpDin); 


strcat(csdir,"/"); 

strcat(csdir filename); // 设 置 查找 目录 
strcpy(csRetPath,csRelativePath); // 设 置 本 地 存储 路 径 
strcat(csRetPath,"/"); 

strcat(csRetPath,filename); 


267 
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@ 


else 


DownLoadFile(pDlg,csdir,csRetPath,nFlag false,IpServer,IpUser, 
IpPassword,nPort,IpSaveDir); // 先 遍历 子 目录 


1/ 如果 是 文件 ， 则 下 载 到 本 地 


char csUrl[IMAX_PATH] = (0); 
strcpy(csUrl,lpDir); 


strcat(csUrl,"/"); 

strcat(csUrl,Find.GetFileName()); 1/ 获取 文件 的 FTP 完整 路 径 
filename = Find.GetFileName(); // 获 取 文件 名 

/打开 FTP 服务 器 上 的 文件 


ClnternetFile* pFile = pTemp->OpenFile(csUrl,GENERIC_READ,INTERNET 
_FLAG_TRANSFER_BINARYIINTERNET_FLAG_RELOAD); 
if (pFile!=NULL) 


{ 
DWORD dwLen = Find.GetLength(); /获取 文件 长 度 
DWORD dwReadNum = 0; 
CFile file; /定义 一 个 文件 对 象 
CString csDir = csRelativePath; // 设 置 存 储 路 径 
csDir.Replace('/,V); 


csDir = IpSaveDir + csDir +"\\"; 
pDlg-»MakeSureDirectoryPathExists(csDir; — // 先 创建 目录 

csDir += filename; 1/ 设置 下 载 到 本 地 的 文件 名 
// 创 建文 件 

file.Open(csDir,CFile:modeCreate|CFile::modeWrite); 

void *pBuffer = NULL; 


/在 堆 中 分 配 空间 
HGLOBAL hHeap = GlobalAlloc(GMEM_FIXEDIGMEM_ZEROINIT,8192); 
pBuffer = GlobalLock(hHeap); // 锁 定 堆 空间 
int nNum = 1; 
while (dwReadNum < dwLen) /| 循环 读 取 文件 数据 
if (m_dwStop == nFlag) // 表 示 当前 任务 被 挂 起 
( 
pTemp-»Close(); II] FTP 连接 
delete pTemp; /释放 连接 对 象 
pFile->Close(); /关闭 FTP 文件 
file.Close(); /关闭 本 地 文件 
Find.Close(); /关闭 文件 查找 对 象 
delete pFile; /释放 FTP 文件 
GlobalUnlock(hHeap); // 解 锁 堆 空间 
GlobalFree(hHeap); /释放 堆 空 间 
return; // 退 出 函数 
} 
nNum ++; 
UINT nFact = pFile->Read(pBuffer,8192); // 读 取 文件 数据 到 堆 中 
if (nFact > 0) 


{ 
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file.Write(pBuffer,nFact); 


) 
dwReadNum += nFact; 


) 
GlobalUnlock(hHeap); 
GlobalFree(hHeap); 
pFile-»Close(); 

delete pFile; 
file.Close(); 


) 


H 
/在 文件 查找 后 ， 下 载 最 后 一 个 文件 或 目录 
if (Find.IsDirectory()) 


( 


filename = Find.GetFileName(); 
char csdir[MAX PATH] = (0); 

char csRetPath[MAX PATH] = (0); 
strcpy(csdir,IpDir); 

strcat(csdir,"/"); 

strcat(csdir filename); 
strcpy(csRetPath,csRelativePath); 
strcat(csRetPath,"/"); 
strcat(csRetPath,filename); 


/向 文件 中 写 入 数据 
/记录 接收 的 文件 数量 
// 解 锁 堆 空间 
/释放 堆 空间 

/关闭 FTP 文件 


/释放 FTP 文件 
/关闭 打开 的 文件 


// 判 断 是 否 为 目录 
// 获 取 文件 名 


// 设 置 查找 子 目 录 


// 设 置 本 地 存储 路 径 


DownLoadFile(pDlg,csdir,csRetPath,nFlag false,IpServer,IpUser, 


IpPassword,nPort,IpSaveDir); 


char csUrl|MAX PATH] = (0); 


/递归 调用 DownLoadFile 函数 


/如果 是 文件 


// 当 前 的 文件 名 是 否 是 一 个 完整 文件 名 ， 在 首次 调用 DownLoadFile 函数 时 blsFile 为 TRUE 
// 例 如 ， 当 下 载 的 FTP ARA Data, WR Data 目录 下 的 zone.txt 文件 是 最 后 一 个 查找 的 文件 
// 则 查找 该 文件 时 获得 的 文件 名 是 Data/zone.txt， 该 文件 名 是 一 个 完整 的 文件 名 


// 不 需要 再 添加 父 目 录 
if(blsFile==FALSE) 
{ 
strepy(csUrl,IpDir); 
strcat(csUrl,"/"); 
strcat(csUrl,Find.GetFileName()); 
} 
else 
£ 
strcpy(csUrl,IpDir); 
) 
filename = Find.GetFileName(); 


/打开 FTP 文件 


/文件 名 包含 一 个 相对 路 径 
/设置 完整 的 文件 名 


/文件 名 是 一 个 完整 文件 名 
/直接 复制 文件 名 


/获取 文件 名 


ClnternetFile* pFile = pTemp->OpenFile(csUrl ,GENERIC READ, 
INTERNET FLAG TRANSFER BINARY|INTERNET FLAG RELOAD); 
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if (pFile!=NULL) 


DWORD dwLen = Find.GetLength(); 
DWORD dwReadNum = 0; 
CFile file; 
CString csDir; 
if (blsFile==FALSE) 
t 
csDir = csRelativePath; 
csDir += "/"; 
csDir += Find.GetFileName(); 
csDir.Replace(/,V); 
csDir = IpSaveDir + csDir; 
CString csPath; 
int nPos = csDir.ReverseFind(W); 
csPath = csDir.Left(nPos-*1); 


pDlg-»MakeSureDirectoryPathExists(csPath); 


csDir = IpSaveDir; 
csDir+= V 
csDir += csRelativePath; 


) 
/创建 文件 


/获取 文件 长 度 


/定义 文件 对 象 


/文件 名 中 包含 相对 路 径 


// 设 置 下 载 到 本 地 的 路 径 


// 先 创建 目录 
// 如 果 文件 名 中 包含 完整 路 径 


// 设 置 下 载 到 本 地 的 路 径 


file.Open(csDir,CFile::modeCreate|CFile::modeW/rite); 


void *pBuffer = NULL; 
/在 堆 中 分 配 空间 


HGLOBAL hHeap = GlobalAlloc(GMEM_FIXEDIGMEM_ZEROINIT,8192); 


pBuffer = GlobalLock(hHeap); 
int nNum = 1; 
while (dwReadNum « dwLen) 


if (m dwStop == nFlag) 

t 
pTemp-»Close(); 
delete pTemp; 
pFile-»Close(); 
file.Close(); 
Find.Close(); 
delete pFile; 
GlobalUnlock(hHeap); 
GlobalFree(hHeap); 
return; 


) 
UINT nFact = pFile-» Read(pBuffer,8192); 


if (nFact »0) 
1 


/| 锁定 堆 空间 
// 利 用 循环 写 入 文件 数据 
/表示 当前 任务 被 挂 起 


/关闭 FTP 连接 
/释放 FTP 连接 
/关闭 FTP 文件 
/关闭 本 地 文件 
/关闭 文件 查找 对 象 
// 释 放 FTP 文件 对 象 
// 解 锁 堆 空 间 

// 释 放 堆 空间 


// 读 取 文件 数据 
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file. Write(pBuffer,nFact); /向 文件 中 写 入 数据 
) 
dwReadNum += nFact; 183m 5 ABRE 
} 
GlobalUnlock(hHeap); // 解 锁 堆 空间 
GlobalFree(hHeap); /释放 堆 空 间 
pFile-»Close(); /关闭 FTP 文件 
delete pFile; /释放 FTP 文件 对 象 
file.Close(); /关闭 本 地 文件 
) 
) 
) 
Find.Close(); /关闭 文件 查找 对 象 
delete pTemp; /释放 FTP 连接 


} 


有 了 下 载 函数 ， 就 可 以 在 线程 函数 中 调用 该 函数 实现 文件 下 载 。 但 是 ， 在 线程 函数 中 需要 提供 有 
关 下 载 的 信息 ， 例 如 下 载 的 文件 名 、 下 载 文件 在 本 地 系统 存储 的 路 径 、 线 程 对 应 任务 列表 中 的 视图 项 、 
线程 句柄 等 。 为 此 ， 需 要 单独 定义 一 个 线程 参数 结构 ， 代 码 如 下 : 





struct ThreadParam 
( 
CMainFrame* pDlg; // 当 前 对 话 框 
int nltem; /线程 对 应 列表 中 的 任务 
char m_DownFile[MAX_PATH]; /下载 文 件 
char m_RelativeFile[MAX_PATH]; // 下 载 到 本 地 的 路 径 
int nDownFlag; // 下 载 标记 
HANDLE m_hThread; /| 线程 句柄 


X 
下 面 给 出 下 载 文件 使 用 的 线程 函数 ， 在 线程 函数 中 主要 是 调用 DownLoadFile 方法 实现 文件 下 载 。 
代码 如 下 : 


/下 载 文件 的 线程 函数 
DWORD stdcall DownloadThreadProc(LPVOID IpParameter) 
{ 








ThreadParam *Param = (ThreadParam *)IpParameter; // 获 取 线 程 参数 

CMainFrame * pDlg = Param-»pDlg; // 获 取 主 对 话 框 指针 

int nltem = Param-»nltem; /获取 当前 下 载 任务 对 应 的 视图 项 索引 
char downfile[MAX_PATH] = (0); 

strcpy(downfile,Param->m_DownFile); /复制 下 载 文件 名 

char relfile[MAX_PATH] = (0); 

strcpy(relfileeParam-»m RelativeFile); // 复 制 相 对 路 径 
pDlg->m_pTastView->m_TastList.SetltemText(nltem,4," 正 在 下 载 "); 

if (Param->nDownFlag ==0) // 当 前 选择 的 是 文件 


/调用 DownLoadFile 方法 下 载 文件 
pDIg->DownLoadFile(pDlg,downfile,relfile,(DWORD)Param->m_hThread,true,pDIg->m_csServer， 
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pDIg->m_csUser,pDIg->m_csPassword,pDIg->m_nPort,pDIg->m_csDownDin); 
) 


else if(Param-»nDownFlag ==1) 
// 调 用 DownLoadFile 方法 下 载 文件 


pDlg-»DownLoadFile(pDlg,downfile,relfile[DWORD)Param-»m hThread,false,pDlg-»m csServepDlg-» 
m csUser,pDlg-»m csPassword,pDlg-»m nPort,pDlg-»m csDownDir); 


) 

pDlg-»m pTastView-»m TastList.SetltemText(nltem,3," 7 fk"); 

pDlg-»m pTastView-»m TastList.SetltemText(nltem,4 ," FER"); 

if (pDIg-»m dwStop == (DWORD)Param-»m hThread) /| 终止 线程 后 设置 初始 标记 


pDlg-»m dwStop = 0; /恢复 任务 终止 标记 
) 
/任务 完成 后 删除 任务 列表 中 对 应 的 视图 项 


pDlg-»DeleteltemFormData(&pDlg-»m pTastView-»m TastListDWORD)Param-»m hThread); 
int nCount = pDlg-»m pTastView-»m TastList.GetltemCount(); 


delete Param; /释放 线程 参数 
if (pDlg-»m bTumOff && nCount == 0) // 下 载 后 是 否 关机 
{ 
pDig->TurnOff(); // 关 机 操作 
} 
return 0; 


} 





有 了 下 载 函 数 和 下 载 使 用 的 线程 函数 ， 用 户 在 下 载 文件 时 只 需要 填充 线程 参数 ， 然 后 创建 一 个 线 
程 即 可 。 例 如 ， 使 用 下 面 的 代码 开始 一 个 下 载 任务 。 代 码 如 下 : 





ThreadParam * Param = new ThreadParam(); // 创 建 线程 参数 
Param-»pDlg = this; /填充 线程 参数 
Param-»nltem = nCurltem; 

Param-»nDownFlag 2m pFtpView-»m RemoteFiles.GetltemData(nltem); 
memset(Param-»m DownFile,0,MAX PATH); 

memset(Param-»m RelativeFile,0,MAX PATH); 

strcpy(Param-»m DownFile, m pFtpView-»m RemoteFiles.m CurDir); 
strcat(Param-»m DownFile,text); 

strcpy(Param-»m RelativeFile,text); 

// 创 建新 的 线程 ， 执 行 线程 函数 

HANDLE hHandle = CreateThread(NULL,0,DownloadThreadProc,(void*)Param,0,NULL); 
m_pTastView->m_TastList.SetltemData(nCurltem,(DWORD)hHandle); 


7.4.5 在 任务 列表 中 暂停 、 取 消 某 一 任务 


TE FTP 文件 传输 管理 软件 中 ， 当 任务 列表 中 同时 存在 多 个 任务 时 ， 用 户 可 以 暂停 或 取消 某 一 个 任 
务 。 对 于 任务 的 暂停 , 实现 起 来 比较 简单 ， 只 需要 挂 起 线程 即 可 ， 因 为 任务 列表 中 的 每 一 个 视图 项 (一 
行 数据 ) 关联 一 个 整数 值 ， 即 线程 句柄 ， 有 了 线程 句柄 ， 就 可 以 挂 起 线程 。 代 码 如 下 : 
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void CTastListView::OnBtStop() 


int nSel = m TastList.GetSelectionMark(); // 获 取 当 前 任务 的 视图 项 
if (nSel != -1) 


t 
DWORD nltemData = m TastList.GetltemData(nSel); ^ // 读 取 任 务 对 应 的 线程 句柄 


CString csState = m TastList.GetltemText(nSel,3); 
if (csState != "暂停 ") /任务 是 否 已 挂 起 


( 
SuspendThread((HANDLE)nltemData); // 挂 起 线程 


m_TastList.SetltemText(nSel,3," 暂 停 "); 


} 


这 里 有 一 点 需要 注意 的 是 ， 在 挂 起 线程 时 需要 判断 线程 是 否 已 挂 起 ， 如 果 没 有 则 挂 起 ， 否 则 不 执 
行 操作 。 使 用 判断 的 目的 是 如 果 一 个 线程 已 挂 起 ， 再 进行 挂 起 操作 ， 则 在 唤醒 线程 时 需要 执行 相同 次 
数 的 唤醒 操作 。 

而 对 于 取消 任务 的 实现 就 没有 那么 简单 了 。 读 者 也 许 会 认为 ， 只 要 结束 了 线程 ， 下 载 任务 也 就 取 
消 了 ， 方 法 应 该 与 线程 的 暂停 没有 什么 差别 。 大 家 不 要 忘记 ， 终 止 一 个 线程 的 最 好 方式 是 线程 函数 的 
结束 ， 如 果 使 用 ExitThread、TerminateThread 之 类 的 函数 来 “意外 ”终止 一 个 线程 ， 会 导致 线程 函数 
的 堆栈 不 能 释放 ， 很 容易 出 现 内 存 泄露 。 例 如 ， 在 线程 函数 中 分 配 一 个 堆 空间 ， 此 时 线程 函数 结束 ， 
那么 在 线程 函数 中 其 后 释放 堆 空间 的 代码 就 不 会 被 执行 ， 导 致 内 存 泄露 。 

笔者 采用 的 方式 是 在 主 对 话 框 中 定义 一 个 变量 m_dwStop， 在 线程 函数 中 判断 如 果 m. dwStop 与 当 
前 的 线程 句柄 相同 ， 表 示 用 户 取消 的 任务 ， 则 恢复 m_dwStop 的 初始 值 为 零 。 正 在 进行 取消 任务 操作 
的 代码 位 于 下 载 文件 的 函数 中 ， 在 下 载 函数 DownLoadFile 中 ， 多 处 出 现 类 似 下 面 的 代码 。 





if (m dwStop == nFlag) /表示 当前 任务 被 挂 起 
{ 
pTemp-»Close(); /关闭 FTP 连接 
delete pTemp; IPRC FTP 连接 对 象 
Find.Close(); /关闭 文件 查找 对 象 
return; 


) 
上 述 代码 用 于 判断 是 否 结束 任务 ， 如 果 是 ， 则 立即 退出 下 载 函 数 DownLoadFile， 线 程 函数 立即 结 

束 执行 ， 这 样 通过 提前 退出 线程 函数 实现 了 线程 的 终止 ， 也 就 实现 了 任务 的 取消 。 

7.4.6 利用 鼠标 拖 折 实现 文件 的 上 传 /下 载 


TE FTP 文件 传输 管理 软件 中 ， 为 了 方便 用 户 操作 ， 提 供 了 对 鼠标 拖 奥 操作 的 支持 。 用 户 可 以 利用 
鼠标 直接 将 某 一 个 本 地 文件 拖 放 到 FTP 服务 器 文件 中 ， 实 现 文件 的 上 传 ， 也 可 以 利用 鼠标 将 FTP 服务 
器 上 的 文件 拖 放 到 本 地 信息 的 列表 视图 控件 中 ， 实 现 文件 的 下 载 。 效 果 如 图 7.9 所 示 。 
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图 7.9 鼠标 拖 忠 效果 


对 于 列表 视图 控件 来 说 ， 实 现 鼠 标 拖 电 的 效果 比较 简单 ， 主 要 分 为 3 个 步骤 ， 第 一 步 ， 处 理 列 表 
视图 控件 的 LVN_BEGINDRAG 消息 ， 开 始 鼠 标 拖 忠 。 代 码 如 下 : 





void CFTPView::OnBegindragRemotefiles(NMHDR* pNMHDR, LRESULT* pResult) 


t 
NM LISTVIEW* pNMListView = (NM, LISTVIEW*)pNMHDR; 


*pResult = 0; 

int nitem-pNMListView-»iltem; // 获 取 拖 动 的 视图 项 
POINT pt-pNMListView-»ptAction; // 获 取 当 前 坐标 

m pDragList = m RemoteFiles.CreateDraglmage(nltem,&pt); /创建 一 个 拖 动 图 像 列表 
m pDragList-»BeginDrag(0,CPoint(0,0)); /开始 拖 动 
m_pDragList->DragEnter(NULL,pt); 

SetCapture(); /捕捉 鼠标 

m bDrag = TRUE; // 设 置 拖 动 标记 
*pResult = 0; 


) 
第 二 步 ， 在 鼠标 移动 过 程 中 设置 图 像 拖 动 的 位 置 。 代 码 如 下 : 





void CFTPView::OnMouseMove(UINT nFlags, CPoint point) 


{ 
if (m_bDrag) // 拖 动 过 程 中 
{ 
CRect rect; 
GetWindowRect(&rect); /获取 窗口 区 域 
ClientToScreen(&point); /| 转换 坐标 
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m pDragList-»DragMove(point); // 沿 着 鼠标 拖 动 图 像 
} 
CFormView::OnMouseMove(nFlags, point); 


} 


最 后 一 步 ， 在 释放 鼠标 按钮 时 结束 拖 鬼 。 如 果 拖 放 到 目标 窗口 ， 则 执行 相关 操作 ， 本 例 为 执行 文 
件 下 载 操 作 。 代 码 如 下 : 


void CFTPView::OnLButtonUp(UINT nFlags, CPoint point) 





if(m bDrag) 

( 
m bDrag = FALSE; // 设 置 拖 动 结束 标记 
ClmageList::DragLeave(NULL); /释放 鼠标 拖 动 
ClImageList::EndDrag(); 
ReleaseCapture(); /释放 鼠标 捕捉 
delete m pDragList; /释放 拖 动 的 图 像 列表 
m_pDragList=NULL; 
CRect rect; 


CMainFrame * pDlg = (CMainFrame*)AfxGetMainWnd(); 
pDlg-»m pLocalView-»m LocalFiles.GetWindowRect(&rect); 


ClientToScreen(&point); /| 转换 客户 坐标 
if(rect. PtInRect(point)) // 判 断 是 否 拖 放 到 本 地 列表 视图 中 
pDlg-»OnDownload(); /执行 下 载 操作 


H 
) 
CFormView::OnLButtonUp(nFlags, point); 





7.47 ”直接 创建 多 级 目录 


在 下 载 FTP 文件 时 , 需要 将 FTP 文件 保存 到 本 地 系统 指定 的 目录 下 , 并 且 需 要 保持 文件 在 FTP 服 
务 器 上 的 目录 结构 。 例 如 ， 下 载 FTP 服务 器 上 的 Files 目录 下 的 所 有 文件 ， 需 要 将 Files 目录 下 的 所 有 
文件 和 目录 保持 原来 的 目录 结构 下 载 到 本 地 的 某 一 目录 下 。 这 经 常 涉 及 到 在 多 级 目录 下 创建 文件 ， 如 
果 目 录 不 存在 ,将 导致 创建 文件 失败 。 为 了 防止 文件 创建 失败 ， 在 创建 文件 前 需要 先 创建 文件 目录 ， 
该 目录 可 能 是 一 个 多 级 目录 。 使 用 CreateDirectory 函数 只 能 创建 一 级 目录 ， 如 果 创 建 多 级 目录 ， 需 要 
循环 调用 CreateDirectory 函数 。 为 了 能 够 创建 多 级 目录 ， 可 以 使 用 MakeSureDirectoryPathExist 函数 ， 
该 函数 位 于 dbghelp.dll 动态 链接 库 中 ， 在 开发 环境 下 没有 进行 封装 ， 在 使 用 前 需要 导入 该 函数 。 首 先 
定义 一 个 函数 指针 类 型 。 代 码 如 下 : 


typedef BOOL(  stdcall funMakeSure)(PCSTR DirPath); 


然后 定义 一 个 函数 指针 。 代 码 如 下 : 


funMakeSure * MakeSureDirectoryPathExists; /定义 函数 指针 
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最 后 加 载 dbghelp.dll 动态 链接 库 ， 获 取 MakeSureDirectoryPathExist 函数 地 址 。 代 码 如 下 : 


HMODULE hMod = LoadLibrary("dbghelp.dll"); 
MakeSureDirectoryPathExists = (funMakeSure *)GetProcAddress(hMod,"MakeSureDirectoryPathExists"); 


在 获取 MakeSureDirectoryPathExist 函数 地 址 后 就 可 以 使 用 MakeSureDirectoryPathExists 函数 创建 
多 级 目录 。 代 码 如 下 : 


MakeSureDirectoryPathExists(“c:\\database\\sqlserver\\data”); 


7.4.8. 根据 文件 扩展 名 获取 文件 的 系统 图 标 


在 设计 FTP 文件 传输 管理 软件 时 ， 当 浏览 FTP 服务 器 目录 时 ， 需 要 将 FTP 服务 器 上 的 目录 和 文件 
以 本 地 的 系统 图 标 表示 。 为 此 ， 需 要 实现 根据 文件 的 类 型 ， 也 就 是 文件 扩展 名 获取 文件 的 系统 图 标 。 

根据 文件 类 型 获取 文件 图 标 ， 可 以 通过 搜索 注册 表 来 实现 ， 文 件 类 型 的 图 标 在 注册 表 中 可 以 找到 ， 
但 是 实现 起 来 相对 比较 麻烦 。 笔 者 经 过 测试 , 可 以 通过 使 用 SHGetFileInfo 函数 实现 该 功能 。 代 码 如 下 : 





/根据 文件 类 型 获取 图 标 
HICON C3SortListCtrl::GetlconFromExtendedName(LPCTSTR IpName) 


{ 


} 


SHFILEINFO shinfo; // 定 义 外 这 文件 信息 

int nicon = 0; 

CString extension = IpName; 

CString csName = "text"*extension; // 设 置 一 个 临时 的 文件 名 
int nPos = csName.ReverseFind('.'); /| 判断 是 否 为 文件 

if (nPos >0) 


// 获 取 文 件 图 标 
SHGetFilelnfo(csName,FILE_ATTRIBUTE_NORMAL,&shlnfo,sizeof(shlnfo), 
SHGFI ICON | SHGFI SMALLICON|SHGFI USEFILEATTRIBUTES); 


else /参数 表示 一 个 目录 
{ 
char chPath[MAX_PATH] = (0); 
GetCurrentDirectory(MAX_PATH,chPath); // 获 取 当 前 目录 
SHGetFilelnfo(chPath,FILE_ATTRIBUTE_NORMAL,&shinfo,sizeof(shinfo)， 
SHGFI ICON | SHGFL_ SMALLICON); // 获 取 目 录 图 标 


nPos = shlnfo.ilcon; 
return shlnfo.hicon; // 返 回 获取 的 图 标 


上 述 代 码 中 应 注意 SHGFI_USEFILEATTRIBUTES 标记 ， 该 标记 不 通过 路 径 访问 文件 ， 而 假设 文 
件 已 存在 ， 这 样 ， 返 回 的 就 是 该 文件 类 型 的 图 标 。 
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7.4.9 关闭 工具 栏 时 取消 菜单 项 的 复 选 标记 
在 创建 一 个 单 文档 /视图 结构 的 应 用 程序 时 ， 如 果 用 户 将 工具 栏 拖 出 框架 窗口 ， 然 后 将 其 关闭 ， 则 
“查看 ”菜单 下 的 “工具 栏 ”菜单 项 的 复 选 标记 自动 取消 ， 效 果 如 图 7.10 所 示 。 
zD s0 E wo 
Lm 


图 7.10 取消 菜单 项 的 复 选 标记 
在 设计 FTP 文件 传输 管理 软件 时 ， 也 需要 实现 类 似 的 功能 。 当 用 户 将 登录 信息 栏 拖 出 框架 并 关闭 
时 ，“ 查 看 ”菜单 下 的 “登录 信息 栏 ”按钮 复 选 标记 自动 取消 。 为 了 实现 该 功能 ， 需 要 在 创建 登录 信 
息 栏 时 将 信息 栏 的 ID 设置 为 对 应 的 菜单 项 ID。 例 如 : 


if (Im ConnectBar.Create(this, IDD_CONNECTFTPDLG, CBRS TOP | 
CBRS TOOLTIPS | CBRS. FLYBY|CBRS, SIZE DYNAMIC, ID CONNECTBAR)) 











TRACE0("Failed to create Dialog barn"); 
return -1; 


) 


然后 处 理 菜单 项 的 UPDATE-COMMAND UI 消息 , 根据 信息 栏 是 否 可 见 设置 或 取消 菜单 项 的 复 选 
标记 。 代 码 如 下 : 


void CMainFrame::OnUpdateLoginbar(CCmdUI* pCmdUl) 

{ 
CControlBar* pBar = GetControlBar(pCmdUI->m_nID); // 获 取 控 制 栏 
if (pBar != NULL) 








pCmduUl-»SetCheck((pBar-»GetStyle() & WS VISIBLE) != 0); /设置 控制 栏 是 否 可 见 
return; 


) 
pCmdUl-»ContinueRouting(); /| 继续 传递 消息 





7.5 主 窗口 设计 





7.51 主 窗口 概述 


FTP 文件 传输 管理 软件 主 窗口 由 菜单 、 登 录 信息 栏 、 工 具 栏 、 本 地 信息 窗口 、 远 程 FTP 服务 器 信 
息 窗 口 和 任务 列表 窗口 6 个 部 分 构成 ， 效 果 如 图 7.11 所 示 。 
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图 7.11 FTP 文件 传输 管理 软件 主 窗口 
752 主 窗口 界面 布局 


FTP 文件 传输 管理 软件 主 窗口 主要 由 控制 条 和 视图 窗口 构成 。 窗 口 的 布局 都 是 通过 代码 控制 的 ， 
没有 涉及 设计 期 的 控件 放置 和 属性 设置 操作 。 这 里 笔者 主要 介绍 一 下 视图 窗口 的 布局 ， 视 图 窗口 主要 
分 为 3 个 部 分 ， 分 别 为 本 地 信息 窗口 、 远 程 FTP 服务 器 视图 窗口 和 任务 列表 窗口 。 这 3 个 窗口 是 通过 
视图 分 割 将 其 嵌入 到 框架 中 的 。 下 面 给 出 视图 分 割 的 主要 代码 。 


BOOL CMainFrame::OnCreateClient(LPCREATESTRUCT Ipcs, CCreateContext* pContext) 
if (Im wndSplitter.CreateStatic(this, 2, 1)) /将 主 窗口 分 割 为 2 行 1 列 


TRACE0("Failed to create splitter bar "); 
return FALSE; 


) 
if (Im. ChildSplitter.CreateStatic(&m wndsplitter, 1, 2,WS CHILD|WS, VISIBLE, 
m wndsSplitter.I[dFromRowCol(0,0))) /将 主 窗口 第 1 行 分 割 为 2 列 


TRACE0O("Failed to create splitter bar "); 
return FALSE; 


) 

/在 第 1 行 第 1 列 填充 视图 窗口 

m ChildSplitter.CreateView(0,0,RUNTIME, CLASS(CLocalView),CSize(200, 180), pContext); 
/在 第 1 行 第 2 列 填充 视图 窗口 

m ChildSplitter.CreateView(0,1, RUNTIME, CLASS(CFTPView),CSize(180,180) pContext); 
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IER 2 行 填充 视图 窗口 

m wndSplitter.CreateView(1,0, RUNTIME CLASS(CTastListView),CSize(0,10),pContext); 
/设置 第 1 行 的 高 度 

m_wndSplitter.SetRowlnfo(0,400,50); 

/设置 第 1 行 各 列 的 宽度 

m_ChildSplitter.SetColumninfo(0,400,50); 

m_ChildSplitter.SetColumninfo(1,400,50); 

m_pTastView = (CTastListView*)m wndSplitter.GetPane(1,0); /获取 创建 的 任务 列表 

m pFtpView = (CFTPView*)m ChildSplitter.GetPane(0,1); /获取 创建 的 FTP 服务 器 信息 窗口 
m pLocalView = (CLocalView*)m ChildSplitter.GetPane(0,0); // 获 取 创 建 的 本 地 信息 窗口 
return TRUE; 


7.55.3 主 窗 口 实现 过 程 
FTP 文件 传输 管理 软件 主 窗口 的 实现 过 程 如 下 : 
CD 在 创建 主 窗口 时 ， 创 建 登录 信息 栏 和 工具 栏 窗口 。 代 码 如 下 : 


int CMainFrame::OnCreate(LPCREATESTRUCT IpCreateStruct) 
{ 





if (CFrameWnd::OnCreate(IpCreateStruct) == -1) 
return -1; 


if (Im wndStatusBar.Create(this) || 
im wndStatusBar.Setlndicators(indicators, 
sizeof(indicators)/sizeof(UINT))) // 创 建 状态 栏 


TRACEO("Failed to create status bar\n"); 
return -1; 
) 
if (Im ConnectBar.Create(this, IDD CONNECTFTPDLG, CBRS. TOP | 
CBRS TOOLTIPS | CBRS FLYBY|CBRS SIZE DYNAMIC, ID CONNECTBAR)) 
{ // 创 建 登录 信息 栏 
TRACE0("Failed to create Dialog barn"); 
return -1; 
) 
m ConnectBar.EnableDocking(CBRS, ALIGN TOP | CBRS ALIGN BOTTOM); 


EnableDocking(CBRS. ALIGN ANY); /激活 登录 信息 栏 的 拖 放 功能 
DockControlBar(&m ConnectBar); // 拖 入 登录 信息 栏 
// 设 置 登录 信息 栏 编辑 框 文本 


m_ConnectBar.SetDIgltemText(IDC_FTPSERVER,"192.168.1.23"); 

m_ConnectBar.SetDIgltemText(IDC_FTPPORT,"21"); 

hMutex = CreateMutex(NULL ,false,"mutex1"); /| 创建 一 个 互 斥 对 象 ， 用 于 线程 同步 

HMODULE hMod = LoadLibrary("dbghelp.dll"); // 加 载 dbghelp 动态 链接 库 

MakeSureDirectoryPathExists = (funMakeSure *)GetProcAddress(hMod, 
"MakeSureDirectoryPathExists"); 。 // 获 取 函 数 地 址 

if (Im_ToolBar.Create(this,IDD_TOOLBAR,CBRS_TOP | CBRS TOOLTIPS | 
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CBRS FLYBY|CBRS SIZE DYNAMIC,ID TOOLBARINFO)) 


t /创建 工具 栏 
TRACEO("Failed to create Dialog barn"); 
return -1; 
} 
/激活 工具 栏 的 拖 入 功能 
m_ToolBar.EnableDocking(CBRS_ALIGN_TOP | CBRS ALIGN. BOTTOM); 
EnableDocking(CBRS, ALIGN, ANY); /激活 框架 的 拖 入 功能 
DockControlBar(&m ToolBar); IB NT RES 
m ToolBar.SetDlgltemText(IDC SAVEDIR,"c:"); // 设 置 工具 栏 中 编辑 框 文本 
Setlcon(LoadIcon(AfxGetResourceHandle(),MAKEINTRESOURCE(IDI_MAIN)),TRUE); 
return 0; 


(2) 处 理 “ 查 看 ”菜单 中 “登录 信息 栏 ”菜单 项 的 单 击 事件 ， 显 示 或 隐藏 登录 信息 栏 。 代 码 如 下 : 


void CMainFrame::OnLoginbar() 
{ 


CMenu * pMenu = GetMenu(); 
CMenu * pSub = pMenu-»GetSubMenu(0); // 获 取 子 菜单 
if (pSub != NULL) 
{ 
// 获 取 菜 单 状态 
int nState = pSub-»GetMenuState(ID CONNECTBAR,MF. BYCOMMAND); 
if (nState == MF. CHECKED) 


/取消 菜单 的 复 选 标记 
pSub-»CheckMenultem(ID CONNECTBAR,MF BYCOMMAND|MF UNCHECKED); 
CControlBar* pBar = GetControlBar(ID CONNECTBAR); /获取 控制 栏 
if (pBar (= NULL) /隐藏 控制 栏 
{ 
ShowControlBar(pBar, (pBar->GetStyle() & WS_VISIBLE) == 0, FALSE); 
} 
RecalcLayout(); // 界 面 重新 布局 


} 
else if (nState == MF_UNCHECKED) 


/设置 菜单 复 选 标记 
pSub->CheckMenultem(ID_CONNECTBAR,MF_BYCOMMAND|MF_CHECKED); 
CControlBar* pBar = GetControlBar(ID_CONNECTBAR); // 获 取 控 制 栏 
if (pBar = NULL) /显示 控制 栏 
{ 

ShowControlBar(pBar, (pBar-»GetStyle() & WS, VISIBLE) == 0, FALSE); 


) 
RecalcLayout(); /界面 重新 布局 
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(3) 处 理 “ 查 看 ”菜单 中 “登录 信息 栏 ”菜单 项 的 UPDATE_ COMMAND U 消息 ， 根 据 登 录 信 
息 栏 是 否 可 见 设置 或 取消 菜单 项 的 复 选 标记 。 代 码 如 下 : 
void CMainFrame::OnUpdateLoginbar(CCmdUI* pCmdUl) 


CControlBar* pBar = GetControlBar(pCmdUl-»m nID); IT RUSSES YE 
if (pBar (= NULL) 


/根据 登录 信息 栏 是 否 可 见 设置 或 取消 菜单 复 选 标记 
pCmdUl-»SetCheck((pBar-»GetStyle() & WS, VISIBLE) != 0); 
return; 


) 
pCmdUI-»ContinueRouting(); /| 继续 传递 消息 
} 





(4) 处 理 “ 查 看 ”菜单 中 “工具 信息 栏 ”菜单 项 的 单 击 事件 ,显示 或 隐藏 工具 信息 栏 。 代 码 如 下 : 





void CMainFrame::OnSetToolBar() 


t 
CMenu * pMenu = GetMenu(); 


CMenu * pSub = pMenu-»GetSubMenu(0); // 获 取 子 菜单 
if (pSub != NULL) 
{ 
/获取 菜单 状态 
int nState = pSub->GetMenuState(ID_TOOLBARINFO,MF_BYCOMMAND); 
if (nState == MF. CHECKED) // 判 断 菜单 是 否 有 复 选 标记 
// 取 消 菜单 项 的 复 选 标 记 


pSub->CheckMenultem(ID_TOOLBARINFO,MF_BYCOMMANDIMF_UNCHECKED); 
CControlBar* pBar = GetControlBar(ID_TOOLBARINFO); /获取 控制 条 
if (pBar (= NULL) /隐藏 工具 栏 


ShowControlBar(pBar, (pBar->GetStyle() & WS_VISIBLE) == 0, FALSE); 


) 
RecalcLayout(); /重新 进行 窗口 布局 


} 
else if (nState == MF_UNCHECKED) 


/设置 菜单 项 的 复 选 标记 
pSub->CheckMenultem(ID_TOOLBARINFO,MF_BYCOMMANDIMF_CHECKED); 
CControlBar* pBar = GetControlBar(ID TOOLBARINFO); /获取 控制 栏 

if (pBar != NULL) 


/显示 工具 栏 
ShowControlBar(pBar, (pBar-»GetStyle() & WS, VISIBLE) == 0, FALSE); 
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RecalcLayout(); /重新 进行 窗口 布局 


7.6 登录 信息 栏 设计 








7.6.1 登录 信息 概述 


登录 信息 栏 的 功能 非常 简单 ， 就 是 根据 用 户 输入 的 FTP 服务 器 地 址 、 端 口号 、 用 户 名 和 密码 登录 
FTP 服务 器 。 登 录 信 息 栏 效果 如 图 7.12 所 示 。 
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712 ”登录 信息 栏 


7.60 ”登录 界面 布局 


登录 信息 栏 界面 布局 如 下 : 

(1) 创建 一 个 对 话 框 资源 ， 资 源 ID 为 IDD_CONNECTFTPDLG。 
(2) 向 对 话 框 中 添加 静态 文本 、 编 辑 框 和 按钮 等 控件 。 

G) 设置 主要 控件 属性 ， 如 表 7.1 所 示 。 


表 7.1 登录 信息 栏 窗口 控件 属性 设置 


控件 ID 控件 属性 关联 变量 
IDD CONNECTFTPDLG Sykes- Child CDialogBar: m ConnectBar 
id Border: None dic: 


IDC PASSWORD Password: TRUE 无 
IDC LOGIN FTP Caption: 快速 登录 无 





7.6.3 ”登录 实现 过 程 


登录 信息 栏 实现 过 程 如 下 : 
(1) 在 主 框架 类 CMainFrame 中 定义 一 个 成 员 变量 m_ConnectBar， 类 型 为 CDialogBar。 


CDialogBar m ConnectBar; 


(2) 在 主 框架 类 CMainFrame 的 OnCreate 方法 中 创建 登录 信息 栏 , 设置 登录 信息 栏 中 编辑 框 显 示 


@ 
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的 默认 文本 。 


if (Im ConnectBar.Create(this, IDD CONNECTFTPDLG, CBRS TOP | 
CBRS TOOLTIPS | CBRS FLYBY|CBRS SIZE DYNAMIC, ID CONNECTBAR)) 


( // 创 建 登 录 信 息 栏 
TRACEO("Failed to create Dialog barn"); 
return -1; 
) 
/激活 登录 信息 栏 的 拖 放 功 能 
m_ConnectBar.EnableDocking(CBRS_ALIGN_TOP | CBRS ALIGN BOTTOM); 
EnableDocking(CBRS. ALIGN, ANY); /激活 框架 的 拖 动 功能 
DockControlBar(&m ConnectBar); IH NXESRAS IUE 
// 设 置 登录 信息 栏 编辑 框 文本 


m_ConnectBar.SetDIgltemText(IDC_FTPSERVER,"192.168.1.23"); 
m_ConnectBar.SetDlgltemText(IDC_FTPPORT,"21"); 


(3) 在 主 框架 类 CMainFrame 中 添加 LoginFTP 方法 实现 登录 FTP 服务 器 的 功能 。 








void CMainFrame::LoginFTP() 
t 


CString csServer,csPassword,csUser,csPort; 


m ConnectBar.GetDlgltemText(IDC FTPSERVER,csServer); /获取 FTP 服务 器 IP 
m_ConnectBar.GetDIgltemText(IDC_FTPPORT,csPort); 1/ 获取 FTP 服务 器 端口 
m_ConnectBar.GetDlgltemText(IDC_PASSWORD,csPassword); /获取 登录 密码 
m_ConnectBar.GetDlgltemText(IDC_USER,csUser); /获取 用 户 名 
if (IcsServer.IsEmpty() && IcsPassword.IsEmpty() && 
IcsUser.IsEmpty() && !csPort.IsEmpty()) // 判 断 登 录 信 息 是 否 为 空 
{ 
try 
/开始 登录 服务 器 


m pFtp- Session.GetFtpConnection(csServer,csUser,csPassword,atoi(csPort)); 
m bLoginSucc = TRUE; 
) 


catch(ClnternetException &e) // 进 行 异常 捕捉 
( 
m bLoginSucc = FALSE; /登录 失败 
delete m pFtp; 
} 
delete m_pFtp; /释放 FTP 连接 对 象 


) 


(4) 在 主 框架 类 CMainFrame 的 消息 映射 部 分 添加 消息 映射 宏 ， 将 “快速 登录 ”按钮 的 单 击 事件 
与 LoginFTP 方法 关联 。 


ON_COMMAND(IDC_LOGIN_FTP, LoginFTP) 
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7.7 工具 栏 窗口 设计 





7.7.1 工具 栏 窗口 概述 


FTP 文件 传输 管理 软件 的 工具 栏 窗口 实际 是 一 个 对 话 栏 (CDialogBar) ， 而 不 是 普通 的 工具 栏 
(CToolBar) ， 是 由 于 需要 在 工具 栏 中 设置 静态 文本 和 编辑 框 控件 。 工 具 栏 窗口 效果 如 图 7.13 所 示 。 


| Iu T ] wexmeumm [A = 


图 7.13 工具 栏 窗口 






































7.7.2 工具 栏 窗口 界面 布局 


工具 栏 窗口 界面 布局 如 下 : 
(D 创建 一 个 对 话 杠 资源， 设置 资源 ID 为 IDD_TOOLBAR。 
(2) 向 对 话 框 中 添加 按钮 、 静 态 文本 和 编辑 框 控件 。 
(3) 设置 主要 控件 属性 ， 如 表 7.2 所 示 。 


表 7.2 工具 栏 窗口 控件 属性 设置 


ie ID 关联 变量 

IDD TOOLBAR CDialogBar: m ToolBar 
j Border: None in 

IDC BI UPLOAD E 

IDC SAVEDIR E 

IDC SEIDIR x 





773 工具 栏 窗口 实现 过 程 


工具 栏 窗 口 实现 过 程 如 下 : 
(1) 在 主 框架 类 CMainFrame 中 定义 一 个 成 员 变 量 m_ToolBar， 类 型 为 CDialogBar。 


CDialogBar m ToolBar; 


(2) 在 主 框架 类 CMainFrame 的 OnCreate 方法 中 创建 工具 栏 ， 设 置 工具 栏 中 的 编辑 框 文本 。 





if (Im_ToolBar.Create(this,IDD_TOOLBAR,CBRS_TOP | CBRS_TOOLTIPS | 
CBRS FLYBY|CBRS SIZE DYNAMIC,ID TOOLBARINFO)) 
{ /创建 工具 栏 


TRACEO("Failed to create Dialog bar\n"); 
e. 


return -1; 
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/激活 工具 栏 的 拖 放 功 能 
m_ToolBar EnableDocking(CBRS_ALIGN_TOP | CBRS_ALIGN_BOTTOM); 
EnableDocking(CBRS_ALIGN_ANY); /激活 框架 的 拖 放 功 能 
DockControlBar(&m ToolBar); // 拖 入 工具 栏 
m ToolBar.SetDlgltemText(IDC, SAVEDIR,"c:"); // 设 置 工具 栏 编辑 框 文本 





(3) 向 主 框架 类 CMainFrame 中 添加 SetDownLoad 方法 ， 用 于 设置 工具 栏 中 的 下 载 文件 存储 目录 。 


void CMainFrame::SetDownLoad() 

{ 
BROWSEINFO Browlnfo; /定义 文件 浏览 对 象 
char csFolder[MAX_PATH] = (0); 
memset(&Browlnfo,0,sizeof(BROWSEINFO)); 


Browinfo.hwndOwner = m hWnd; /设置 窗口 拥有 者 
Browlnfo.pszDisplayName = csFolder; /记录 文件 名 
Browlnfo.IpszTitle = "请 选择 文件 "; /设置 浏览 对 话 框 标 题 
Browlnfo.ulFlags = BIF. EDITBOX; /设置 浏览 对 话 框 标记 
ITEMIDLIST *pitem = SHBrowseForFolder(&Browlnfo); // 弹 出 浏览 对 话 框 
if (pitem) 

SHGetPathFromlDList(pitem,csFolder); /获取 目 录 


m_csDownDir = csFolder; 
m_ToolBar.SetDlgltemText(IDC_SAVEDIR,m_csDownDin); 


} 





(4) 在 主 框架 类 CMainFrame 的 消息 映射 部 分 添加 消息 映射 宏 ， 将 “... ”按钮 的 单 击 事件 与 
SetDownLoad 方法 关联 。 


ON_COMMAND(IDC_SETDIR,SetDownLoad) 








C5) 向 主 框架 类 CMainFrame 中 添加 OnDownload 方法 ， 实 现 FTP 目录 或 文件 的 下 载 。 





void CMainFrame::OnDownload() 
t 
if (m bLoginSucc && m pLocalView != NULL) 
{ 
m ToolBar.GetDlgltemText(IDC. SAVEDIR,m csDownDir); // 获 取 本 地 存储 根 目录 
POSITION pos = m pFtpView-»m RemoteFiles.GetFirstSelectedltemPosition(); 
int nSelCount = m pFtpView-»m RemoteFiles.GetSelectedCount(); /获取 下 载 的 任务 数量 
while (pos != NULL) // 利 用 循环 遍历 文件 或 目录 
{ 
int nitem = m_pFtpView->m_RemoteFiles.GetNextSelectedltem(pos); 
LVITEM item; 
item.mask = LVIF TEXT; 
item.cchTextMax = MAX PATH; 
char text[MAX, PATH] = (0); 
item.pszText - text; 
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item.iltem = nltem; 

item.iSubltem = 0; 

m pFtpView-»m RemoteFiles.Getltem(&item); 1/ 获取 视图 项 信息 
int nCount = m_pTastView->m_TastList.GetltemCount(); 

int nCurltem; 

/向 任务 列表 中 插入 一 个 行 数据 ， 表 示 当 前 任务 

nCurltem = m pTastView-»m TastList.Insertltem(nCount,""); 

m pTastView-»m TastList.SetltemData(nCurltem,nCurltem); 

m pTastView-»m TastList.SetltemText(nCurltem,O,text); 

m pTastView-»m TastList.SetltemText(nCurltem, 1," F"); 

m pTastView-»m TastList.SetltemText(nCurltem,2,m csServer); 

m pTastView-»m TastList.SetltemText(nCurltem,3,"1E Zt T $5"); 
ThreadParam * Param = new ThreadParam(); /| 创建 线程 参数 
Param-»pDlg = this; /填充 线程 参数 
Param-»nltem = nCurltem; 

Param->nDownFlag 2m pFtpView-»m RemoteFiles.GetltemData(nltem); 
memset(Param-»m DownFile,0,MAX PATH); 

memset(Param-»m RelativeFile,0, MAX PATH); 

strcpy(Param-»m DownFile, m pFtpView-»m RemoteFiles.m CurDir); 
strcat(Param-»m DownFile,text); 

strcpy(Param-»m RelativeFile,text); 

// 创 建新 的 线程 ， 执 行 线程 函数 

HANDLE hHandle = CreateThread(NULL,0,DownloadThreadProc,(void*)Param,0,NULL); 
m pTastView-»m TastList.SetltemData(nCurltem,(DWORD)hHandle); 





(6) 在 主 框架 类 CMainFrame 的 消息 映射 部 分 添加 消息 映射 宏 ， 将 “下 载 ”按钮 的 单 击 事件 与 
OnDownload 方法 关联 。 





ON_COMMAND(IDC_BT_DOWNLOAD,OnDownload) 





(7) 定义 全 局 的 线程 函数 ， 在 下 载 文件 时 将 在 线程 函数 中 调用 下 载 函数 实现 文件 下 载 。 


/下 载 文件 的 线程 函数 

DWORD _ stdcall DownloadThreadProc(LPVOID IpParameter) 

{ 
ThreadParam *Param = (ThreadParam *)IpParameter; // 获 取 线 程 参数 
CMainFrame * pDlg = Param-»pDlg; RRENA E 
int nltem = Param-»nltem; /获取 当前 下 载 任务 对 应 的 视图 项 索引 
char downfile[MAX_PATH] = (0); 
strcpy(downfile,Param-»m DownFile); // 复 制 下 载 文件 名 
char relfile[MAX_PATH] = (0); 
strcpy(relfile,Param->m_RelativeFile); NABE 
pDlg-»m pTastView-»m TastList.SetltemText(nltem,4," IE Zt F$"); 
if (Param-»nDownFlag ==0) // 当 前 选择 的 是 文件 


// 调 用 DownLoadFile 方法 下 载 文件 
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pDlg->DownLoadFile(pDlg,downfile,relfile,(DWORD)Param->m_hThread,true,pDlg->m_csServer, 
pDlg-»m csUser,pDlg-»m csPassword,pDlg-»m nPort,pDlg-»m csDownbDir); 
) 
else ifí(Param-»nDownFlag ==1) 


{ 
// 调 用 DownLoadFile 方法 下 载 文件 


pDIg->DownLoadFile(pDIlg,downfilerelfile,(DWORD)Param->m_hThread,false,pDIg->m_csServepDIg-> 
m_csUser,pDIg->m_csPassword,pDIg->m_nPort,pDIg->m_csDownDin; 


pDlg->m_pTastView->m_TastList.SetltemText(nltem,3," 完 成 "); 
pDlg->m_pTastView->m_TastList.SetltemText(nltem,4," 下 载 完成 "); 
if (pDlg-»m dwStop == (DWORD)Param->m_hThread) /终止 线程 后 设置 初始 标记 
{ 

pDlg-»m dwStop = 0; /恢复 任务 终止 标记 


) 

/任务 完成 后 删除 任务 列表 中 对 应 的 视图 项 

pDlg-»DeleteltemFormData(&pDlg-»m pTastView-»m TastList,DWORD)Param-»m hThread); 
int nCount = pDlg-»m pTastView-»m TastList.GetltemCount(); 


delete Param; /释放 线程 参数 
if (pDlg-»m bTurnOff && nCount == 0) /下 载 后 是 否 关 机 
{ 
pDIg->TurnOff(); // 关 机 操作 
return 0; 





(8) 向 主 框架 类 CMainFrame 中 添加 OnUpload 方法 ， 实 现 文件 的 上 传 。 文 件 上 传 与 下 载 的 思路 
是 相同 的 ， 均 是 通过 单独 的 线程 来 完成 的 。 


void CMainFrame::OnUpload() 
{ 





if (m_bLoginSucc && m pLocalView != NULL) 
{ 
/获取 本 地 列表 视图 中 选项 的 位 置 
POSITION pos = m pLocalView-»m LocalFiles.GetFirstSelectedltemPosition(); 
/获取 本 地 列表 视图 中 选项 数量 
int nSelCount = m pLocalView-»m LocalFiles.GetSelectedCount(); 
while (pos != NULL) 
{ 
/获取 视图 项 索引 
int nitem = m pLocalView-»m LocalFiles.GetNextSelectedltem(pos); 
LVITEM item; 
item.mask = LVIF TEXT; 
item.cchTextMax = MAX PATH; 
char text[MAX, PATH] = (0); 
item.pszText - text; 
item.iltem = nltem; 
item.iSubltem = 0; 
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m pLocalView-»m LocalFiles.Getltem(&item); /获取 视图 项 信息 
int nCount = m pTastView-»m TastList.GetltemCount(); 
int nCurltem; 
/向 任务 列表 中 添加 上 传 文件 的 任务 信息 
nCurltem = m pTastView-»m TastList.Insertltem(nCount,""); 
m pTastView-»m TastList.SetltemData(nCurltem,nCurltem); 
m pTastView-»m TastList.SetltemText(nCurltem,O,text); 
m pTastView-»m TastList.SetltemText(nCurltem, 1," E f£"); 
m pTastView-»m TastList.SetltemText(nCurltem,2,m csServer); 
m pTastView-»m TastList.SetltemText(nCurltem,3," 1E E. E f£"); 
ThreadParam * Param = new ThreadParam(); /定义 线程 参数 
Param-»pDlg = this; /填充 线程 参数 
Param-»nltem = nCurltem; 
Param->nDownFlag = m pLocalView-»m LocalFiles.GetltemData(nltem); 
memset(Param-»m DownFile,0,MAX PATH); 
memset(Param-»m RelativeFile,0,MAX PATH); 
strcpy(Param-»m DownFile, m pLocalView-»m LocalFiles.m CurDir); 
strcat(Param-»m DownFile,text); // 设 置 下 载 文件 
CString csRelative = m pFtpView-»m RemoteFiles.m BasebDir; 
if (csRelative.Right(1) != "/" && csRelative.GetLength()» 1) 

csRelative += "/"; 
csRelative += m_pFtpView->m_RemoteFiles.m_CurDir; 
if (csRelative.Right(1) != "/" && csRelative.GetLength()>1) 

csRelative += "/"; 
csRelative += text; 
strcpy(Param->m_RelativeFile,csRelative); // 设 置 相 对 路 径 
// 创 建 一 个 线程 ， 执 行文 件 上 传 任务 
HANDLE hHandle = CreateThread(NULL.,0,UploadThreadProc,(void*)Param,0,NULL); 
m pTastView-»m TastList.SetltemData(nCurltem,(DWORD)hHandle); 
Param-»m hThread - hHandle; 





C9) 向 主 框架 类 CMainFrame 中 添加 消息 映射 宏 ， 将 “上 传 ” 按 钮 的 单 击 事件 与 OnUpload 方法 
关联 。 


ON_COMMAND(IDC_BT_UPLOAD,OnUpload) 


C100. 添加 全 局 线程 函数 UploadThreadProc， 在 上 传 文件 时 将 创建 一 个 线程 ， 在 线程 函数 中 调 
上 传 函数 实现 文件 上 传 。 




















/上 传 文件 的 线程 函数 

DWORD _ stdcall UploadThreadProc(LPVOID IpParameter) 

t 
ThreadParam *Param = (ThreadParam *)IpParameter; // 获 取 线 程 参数 
CMainFrame * pDlg = Param-»pDlg; /获取 主 对 话 框 指针 


int nltem = Param-»nltem; 


[3 
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char downfile[MAX_PATH] = (0); 


strcpy(downfile,Param-»m DownFile); // 获 取 下 载 文件 
char relfile[MAX_PATH] = (0); 

strcpy(relfile,Param->m_RelativeFile); /获取 相对 路 径 
pDlg->m_pTastView->m_TastList.SetltemText(nltem,4," 正 在 上 传 "); 

if (Param->nDownFlag ==0) /当前 选择 的 是 文件 


/调用 UpLoadFile 方法 上 传 文件 
pDlg->UpLoadFile(pDIg,downifile,relfile,(DWORD)Param->m_hThread,true,pDIg->m_csServer, 
pDIg->m_csUser,pDIg->m_csPassword,pDIg->m_nPort); 
else if(Param-»nDownFlag ==1) // 当 前 选择 的 是 目录 


// 调 用 UpLoadFile 方法 上 传 文件 
pDIg-»UpLoadFile(pDlg,downfile,relfile ([DWORD)Param-»m hThread,false,pDlg-»m csServer, 
pDlg-*m csUser,pDlg-»m csPassword,pDlg-*m nPort); 
) 


if (pDIg-»m dwStop == (DWORD)Param-»m hThread) /| 终止 线程 后 设置 初始 标记 


pDlg-»m dwStop = 0; /恢复 线程 终止 标记 
) 


pDlg-»m pTastView-»m TastList.SetltemText(nltem,3, "5c p"); 

pDlg-»m  pTastView-»m TastList. SetltemText(nltem,4," LER"); 

/在 文件 上 传 任务 完成 后 从 任务 列表 中 删除 指定 的 任务 信息 
pDlg-»DeleteltemFormData(&pDlg-»m pTastView-»m TastList,DWORD)Param-»m hThread); 


delete Param; /释放 线程 参数 
int nCount = pDlg-»m pTastView-»m TastList.GetltemCount(); 
if (pDIg-»m bTurnOff && nCount--0) // 是 否 为 上 传 后 关机 
pDlg-»TurnOff(); /关机 操作 
) 
return 0; 
) 
详细 代码 请 见 资源 包 中 的 源码 。 


7.8 本 地 信息 窗口 设计 





视频 讲解 


7.8.1 本 地 信息 窗口 概述 


本 地 信息 窗口 的 主要 作用 是 加 载 本 地 系统 目录 和 文件 到 列表 视图 控件 中 ， 并 实现 通过 鼠标 拖 忠 上 
传 文件 。 本 地 信息 窗口 效果 如 图 7.14 所 示 。 
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图 7.14 本 地 信息 窗口 
7.82 ”本 地 信息 窗口 界面 布局 


本 地 信息 窗口 设计 过 程 如 下 : 

COD 新 建 一 个 窗 体 视 图 类 ， 类 名 为 CLocalView， 基 类 为 CFormView。 
(2) 向 对 话 框 中 添加 按钮 、 静 态 文本 、 图 片 、 列 表 视 图 等 控件 。 

G) 设置 控件 属性 ， 如 表 7.3 所 示 。 


X73 ”本 地 信息 窗口 控件 属性 设置 


控件 ID 控件 属性 关联 变量 


Style: Child 
IDD LOCALVIEW_FORM ied Nous CLocalView: m pLocalView 
IDC FRAME Se Toe CStatic: m Frame 

z Color: Black MEE 


Type: Bitmap 


IDC BACK 
u Image: IDB BACKBIN 


IDC LOCALFILES CSoriListCtrl: m LocalFiles 


7.8.3 ”本 地 信息 窗口 实现 过 程 


本 地 信息 窗口 实现 过 程 如 下 : 
CD 向 窗 体 视图 类 中 添加 GetSysDisk 方法 ， 利 用 GetLogicalDriveStrings 函数 获取 系统 磁盘 目录 ， 
将 其 显示 在 组 合 框 中 。 


void CLocalView::GetSysDisk() 
( 





m DiskList.ResetContent(); /删除 组 合 框 中 的 数据 
char pchDrives[128] = (0); 
char* pchDrive; 


e. 
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GetLogicalDriveStrings(sizeof(pchDrives), pchDrives); // 获 取 系 统 磁盘 目录 
pchDrive = pchDrives; 
int nltem = 0; 
while(*pchDrive) /列举 系统 磁盘 目录 
{ 
COMBOBOXEXITEM cbi; /定义 组 合 框 选项 信息 


CString csText; 
cbi.mask = CBEIF IMAGE | CBEIF_INDENT | CBEIF OVERLAY | 


CBEIF SELECTEDIMAGE | CBEIF_TEXT; /设置 组 合 框 选项 标记 
SHFILEINFO shlnfo; IE SUINTESCHEIR BHR 
int nicon; 

/获取 文件 图 标 

SHGetFileInfo(pchDrive,0,&shinfo,sizeof(shInfo),SHGFI_ICON | SHGFI_SMALLICON); 
nlcon = shinfo.ilcon; /获取 图 标 索引 
cbi.iltem = nltem; // 填 充 组 合 框 选项 信息 


cbi.pszText = pchDrive; 
cbi.cchTextMax = strlen(pchDrive); 
cbi.ilmage = nlcon; 
cbi.iSelectedlmage = nlcon; 


cbi.iOverlay = 0; 

cbi.ilndent = (0 & 0x03); 

m DiskList.Insertltem(&cbi); // 向 组 合 框 中 添加 选项 信息 
nltem ++; 

pchDrive += strlen(pchDrive) + 1; // 获 取 下 一 个 磁盘 目录 


} 
(2) 向 窗 体 视图 类 中 添加 GetSysFileImage 方法 ， 获 取 系 统 文件 图 像 列表 。 








void CLocalView::GetSysFilelmage() 


CFTPManageApp *pApp = (CFTPManageApp*)AfxGetApp(); // 获 取 应 用 程序 对 象 指针 
m DiskList.SetlmageList(&pApp-»m ImageList); // 设 置 组 合 框 的 图 像 列表 


m_LocalFiles.SetlmageList(&pApp->m_lmageList,LVSIL_SMALL); /设置 列表 视图 的 图 像 列 表 
) 


G) 在 窗 体 视图 初始 化 时 创建 一 个 群 组 框 显示 系统 磁盘 目录 ， 修 改 列表 视图 控件 的 扩展 风格 ， 向 
列表 视图 控件 中 添加 列 。 


void CLocalView::OnlnitialUpdate() 
{ 





CFormView::OnlnitialUpdate(); 
CRect ComBoxRC; 
m Frame.GetWindowRect(ComBoxRC); // 获 取 静 态 文本 控件 的 区 域 
m Frame.ScreenToClient(ComBoxRC); 
m Frame.MapWindowPoints(this, ComBoxRC); 
ComBoxRC.bottom = ComBoxRC.top--100; 
m DiskList.Create(WS CHILD|WS VISIBLEJCBS DROPDOWNLIST| 
CBS SORT,ComBoxRC.this, 112); // 创 建 组 合 框 控件 


8) 
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/设置 列表 视图 控件 的 风格 

m _LocalFiles.SetExtendedStyle(LVS_EX_TWOCLICKACTIVATE|LVS_EX_FULLROWSELECT); 
/设置 列表 视图 控件 的 列 信息 

m_LocalFiles.SetColumns(_T(" 文 件 名 ,150; 文 件 大 小 ,80; 文 件 日 期 ,150")); 

m bSubClass = TRUE; 


GetSysFilelmage(); JT BUR e SC E84 B 
GetSysDisk(); // 加 载 系统 磁盘 目录 


SIZE szWidth,szHeight; 

szWidth.cx = szWidth.cy = 0; 

SzHeight.cx = szHeight.cy = 0; 

SetScrollSizes(«:MM TEXT,szWidth,szHeight); 
) 


(4) 处 理 窗 体 视图 的 WM. SIZE 消息 ， 当 用 户 调整 窗 体 视图 大 小 时 ， 适 当 调 整 列表 视图 控件 的 大 小 。 


void CLocalView::OnSize(UINT nType, int cx, int cy) 
{ 





CFormView::OnSize(nType, cx, cy); 
if (m bSubClass--TRUE) 
{ 


CRect rc; 

GetClientRect(rc); // 获 取 视 图 窗口 客户 区 域 
rc.DeflateRect(0,40,0,0); /修改 区 域 的 高 度 

m LocalFiles.MoveWindow(rc); // 设 置 列表 视图 控件 显示 的 区 域 


} 





C5) 处 理 组 合 框 中 选项 改变 时 的 事件 ， 根 据 当前 显示 的 磁盘 目录 ， 在 列表 视图 控件 中 显示 相应 的 
子 目录 和 文件 。 





void CLocalView::DiskltemChange() 
t 


COMBOBOXEXITEM cbi; /定义 组 合 框 项 目 信息 
memset(&cbi,0,sizeof( COMBOBOXEXITEM)); Isa tI BIS S. 
int nCurltem = m DiskList.GetCurSel(); // 获 取 当 前 选中 的 项 目 


cbi.mask = CBEIF TEXT; 
char chName[128] = (0); 
cbi.pszText = chName; 
cbi.cchTextMax = 128; 
cbiitem = nCurltem; 


m DiskList.Getltem(&cbi); // 获 取 项 目 信息 
m_LocalFiles.m_BaseDir = chName; // 读 取 项 目 文本 
m LocalFiles.DisplayPath(chName); /根据 当前 磁盘 目录 加 载 本 地 磁盘 信息 


) 
(6) 向 窗 体 视图 中 添加 OnBack 方法 ， 当 用 户 单 击 图 片 控件 时 将 调用 该 方法 返回 上 一 级 目录 。 





void CLocalView::OnBack() 
{ 





@ 
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/处 理 列表 视图 控件 的 WM_KEYDOWN 消息 来 返回 上 一 级 目录 
m LocalFiles.SendMessage(:WM KEYDOWN,VK BACK,0); 
) 





CD) 处 理 列表 视图 控件 的 LVN_BEGINDRAG ÑE, Fia Ub S. 


void CLocalView::OnBegindragLocalfiles(NMHDR* pNMHDR, LRESULT* pResult) 


{ 
NM LISTVIEW* pNMListView = (NM_LISTVIEW*)pNMHDR; 


*pResult = 0; 

int ntem-pNMListView-»iltem; // 获 取 拖 动 的 视图 项 索引 
POINT pt-pNMListView-»ptAction; /获取 坐标 
m_pDragList = m LocalFiles.CreateDraglmage(nltem,&pt); // 创 建 拖 动 的 图 像 列表 
m_pDragList->BeginDrag(0,CPoint(0,0)); ITE EUER d B. 

m pDragList-»DragEnter(NULL, pt); 

SetCapture(); // 设 置 鼠标 捕捉 

m bDrag = TRUE; 

*pResult = 0; 


} 





(8) 在 鼠标 移动 过 程 中 设置 图 像 拖 动 的 位 置 。 


void CLocalView::OnMouseMove(UINT nFlags, CPoint point) 





if (m bDrag) 
{ 
CRect rect; 
GetWindowRect(&rect); /获取 窗口 区 域 
ClientToScreen(&point); /| 转换 区 域 坐标 
m pDragList-»DragMove(point); // 沿 着 鼠标 拖 动 图 像 


} 
CFormView::OnMouseMove(nFlags, point); 


) 


C9) 在 释放 鼠标 按钮 时 结束 拖 忠 。 如 果 拖 放 到 远程 FTP 服务 器 信息 窗口 的 列表 视图 控件 中 ,将 进 
行文 件 上 传 操作 。 


void CLocalView::OnLButtonUp(UINT nFlags, CPoint point) 


ifm bDrag) 

{ 
m_bDrag = FALSE; // 设 置 鼠标 拖 动 结束 标记 
ClmageList::DragLeave(NULL); /鼠标 拖 动 结束 
ClmageList::EndDrag(); 
ReleaseCapture(); /释放 鼠标 捕捉 
delete m pDragList; /删除 图 像 列表 
m_pDragList=NULL; 
CRect rect; 
CMainFrame * pDlg = (CMainFrame*)AfxGetMainWnd(); // 获 取 主 窗口 指针 





KJ 
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/获取 远程 FTP 窗口 中 的 列表 视图 控件 区 域 
pDIg->m_pFtpView->m_RemoteFiles.GetWindowRect(&rect); 


ClientToScreen(&point); /转换 区 域 坐标 
if(rect.PtInRect(point)) IA ER Re ded cde FTP 窗口 的 列表 视图 中 
{ 

pDlg-»OnUpload(); /| 执行 上 传 操作 


} 
) 
CFormView::OnLButtonUp(nFlags, point); 
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7.9.1 远程 FTP 服务 器 信息 窗口 概述 


远程 FTP 服务 器 信息 窗口 的 主要 作用 是 显示 FTP 服务 





器 上 的 文件 和 目录 ， 并 实现 通过 鼠标 拖 忠 来 完成 FTP 文件 





的 下 载 。 远 程 FTP 服务 器 信息 窗口 效果 如 图 7.15 所 示 。 
7.9.2 远程 FTP 服务 器 信息 窗口 界面 布局 


远程 FTP 服务 器 信息 窗口 设计 过 程 如 下 : 

COD 新 建 一 个 窗 体 视图 类 ， 类 名 为 CFTPView， 基 
类 为 CFormView。 

(2) 向 对 话 框 中 添加 按钮 、 静 态 文 本 、 图 片 、 列 表 
视图 等 控件 。 





PT 文件 
S wicosat onos zc 

















i Š 图 7.15 远程 FTP 服务 器 信息 窗口 

(3) 设置 控件 属性 ， 如 表 7.4 所 示 。 
表 7.4 远程 FTP 服务 器 信息 窗口 控件 属性 设置 
控件 ID 控件 属性 关联 变量 

IDD FTPVIEW FORM mye CA CFTPView: FtpVi 

zi Border: None addu, icd 
IDC BACK Typo Bien x 

= Image: IDB_BACKBTN 
IDC REMOTEFILES View: Report CSortListCtrl: m RemoteFiles 





7.9.3 远程 FTP 服务 器 信息 窗口 实现 过 程 
远程 FTP 服务 器 信息 窗口 实现 过 程 如 下 : 


e. 
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(1) 向 窗 体 视图 类 中 添加 GetSysFileImage 方法 ， 获 取 系 统 文件 图 像 列 表 。 
void CFTPView::GetSysFilelmage() 


CFTPManageApp *pApp = (CFTPManageApp")AfxGetApp(); /获取 应 用 程序 指针 
m RemoteFiles.SetlmageList(&pApp-»m ImageList,L VSIL SMALL); // 设 置 列 表 视 图 的 图 像 列表 


} EAA 
(2) 在 窗 体 视图 初始 化 时 设置 列表 视图 控件 风格 、 向 列表 视图 控件 中 添加 列 , 获取 系统 文件 图 标 。 


void CFTPView::OnlnitialUpdate() 

{ 
CFormView::OnlnitialUpdate(); 
/修改 列表 视图 控件 的 扩展 风格 
m_RemoteFiles.SetExtendedStyle(LVS_EX_TWOCLICKACTIVATE|LVS_EX_FULLROWSELECT); 
/设置 列表 视图 的 列 信息 
m_RemoteFiles.SetColumns(_T(" 文 件 名 ,150; 文 件 大 小 ,80; 文 件 日 期 ,150")); 
m bSubClass = TRUE; 
GetSysFilelmage(); // 获 取 系 统 文件 图 像 列 表 
m_RemoteFiles.m_nListType = 1; // 显 示 FTP 服务 器 信息 
SIZE szWidth,szHeight; 
szWidth.cx = szWidth.cy = 0; 
szHeight.cx = szHeight.cy = 0; 
SetScrollSizes(MM TEXT, szWidth szHeight); 
SendMessage(WM SIZE,0,0); 

) 


G) 处 理 窗 体 视图 的 WM SIZE 消息 ， 当 用 户 调整 窗 体 视图 大 小 时 ， 适 当 调 整 列表 视图 控件 的 
大 小 。 


void CFTPView::OnSize(UINT nType, int cx, int cy) 
{ 








CFormView::OnSize(nType, cx, cy); 
if (m bSubClass--TRUE) 
( 


CRect rc; 

GetClientRect(rc); // 获 取 窗 口 客户 区 域 
rc.DeflateRect(0,40,0,0); // 调 整 区 域 大 小 

m RemoteFiles.MoveWindow(rc); // 调 整 列表 视图 控件 区 域 


} 
(4) 向 窗 体 视图 中 添加 OnBack 方法 ， 当 用 户 单 击 图 片 控件 时 将 调用 该 方法 返回 上 一 级 目录 。 
void CFTPView::OnBack() 


/触发 列表 视图 控件 的 WM_KEYDOWN 消息 ， 返 回 上 一 级 目录 
m RemoteFiles.SendMessage(WM KEYDOWN,VK BACK,0); 
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C5) 处 理 列表 视图 控件 的 LVN_BEGINDRAG 消息 ， 开 始 鼠 标 拖 电 。 


void CFTPView::OnBegindragRemotefiles(NMHDR* pNMHDR, LRESULT* pResult) 


t 
NM LISTVIEW* pNMListView = (NM. LISTVIEW*)pNMHDR; 


*pResult = 0; 

int nitem-pNMListView-»iltem; /获取 拖 动 的 视图 项 
POINT pt-pNMListView-»ptAction; /获取 当前 坐标 
m_pDragList = m RemoteFiles.CreateDraglmage(nltem,&pt); /| 创建 一 个 拖 动 图 像 列表 
m_pDragList->BeginDrag(0,CPoint(0,0)); /开始 拖 动 
m_pDragList->DragEnter(NULL,pt); 

SetCapture(); /捕捉 鼠标 

m bDrag = TRUE; /设置 拖 动 标记 
*pResult = 0; 


C6) 在 鼠标 移动 过 程 中 设置 图 像 拖 动 的 位 置 。 


void CFTPView::OnMouseMove(UINT nFlags, CPoint point) 








if (m bDrag) // 拖 动 过 程 中 

{ 
CRect rect; 
GetWindowRect(&rect); // 获 取 窗 口 区 域 
ClientToScreen(&point); /| 转换 坐标 
m_pDragList->DragMove(point); // 沿 着 鼠标 拖 动 图 像 


CFormView::OnMouseMove(nFlags, point); 


} 





CD 在 释放 鼠标 按钮 时 结束 拖 点 。 如 果 拖 放 到 本 地 信息 窗口 的 列表 视图 控件 中 ， 将 进行 文件 下 载 
操作 。 





void CFTPView::OnLButtonUp(UINT nFlags, CPoint point) 


if(m bDrag) 

{ 
m_bDrag = FALSE; // 设 置 拖 动 结束 标记 
ClmageList::DragLeave(NULL); /释放 鼠标 拖 动 
ClmageList::EndDrag(); 
ReleaseCapture(); /释放 鼠标 捕捉 
delete m pDragList; /释放 拖 动 的 图 像 列 表 
m_pDragList=NULL; 
CRect rect; 


CMainFrame * pDlg = (CMainFrame*)AfxGetMainWnd(); 

pDlg-*m pLocalView-»m LocalFiles.GetWindowRect(&rect); 

ClientToScreen(&point); /| 转换 客户 坐标 
if(rect.PtInRect(point)) JH B e s 89] A b pe [re 
í 





e. 
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pDig->OnDownload(); /执行 下 载 操作 


) 
) 
CFormView::OnLButtonUp(nFlags, point); 





710 任务 列表 窗口 设计 





视频 讲解 





7.10.1. 任务 列表 窗口 概述 


任务 列表 窗口 主要 用 于 显示 当前 的 上 传 、 下 载 任 务 ， 用 户 可 以 暂停 或 取消 某 一 任务 。 任 务 列表 窗 
口 如 图 7.16 所 示 。 


| 25-8 IET] 机 信息 iS 
Monson Oce 2010... 上传 192158151 EGER 
































图 7.16 任务 列表 窗口 


7.10.2 任务 列表 窗口 界面 布局 


任务 列表 窗口 界面 布局 如 下 : 

COD 新 建 一 个 窗 体 视 图 类 ， 类 名 为 CTastListView， 基 类 为 CFormView。 
(2). 向 对 话 框 中 添加 按钮 和 列表 视图 等 控件 。 

(3) 设置 控件 属性 ， 如 表 7.5 所 示 。 


表 7.5 任务 列表 窗口 控件 属性 设置 








控件 ID 关联 变量 
IDD TASTLISTVIEW FORM SHE CRM CtastListView: m pTastView 
es E Border: None 
IDC BT STOP Caption; 暂停 无 
IDC TASKLIST View: Report CListCtrl: m TastList 





7.10.3 ”任务 列表 窗口 实现 过 程 


任务 列表 窗口 实现 过 程 如 下 : 
COD 在 窗 体 视图 初始 化 时 设置 列表 视图 控件 风格 ， 向 列表 视图 控件 中 添加 列 ， 调 整 窗口 中 按钮 的 


位 置 。 
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void CTastListView::OnlnitialUpdate() 

t 
CFormView::OnlnitialUpdate(); 
/设置 列表 视图 控件 的 扩展 风格 
m TastList.SetExtendedStyle(LVS EX TWOCLICKACTIVATE|LVS EX FULLROWSELECT| 

LVS EX GRIDLINES); 

/向 列表 视图 控件 中 添加 列 
m_TastList.InsertColumn(0," 任 务 名 称 "LVCFMT_LEFT,120); 
m_TastList.InsertColumn(1," 任 务 类 型 ",LVCFMT_LEFT,80); 
m_TastList.InsertColumn(2," 主 机 信息 ",LVCFMT_LEFT,80); 
m_TastList.InsertColumn(3," 状 态 ",LVCFMT_LEFT,120); 








CRect rc; 

GetClientRect(rc); // 获 取 窗 口 客户 区 域 
rc.DeflateRect(0,0,100,0); // 调 整 区 域 宽度 

m TastList.MoveWindow(rc); // 设 置 列表 视图 显示 的 区 域 
CRect btnRC; /按钮 显示 区 域 


btnRC.left = rc.right + 10; 
btnRC.right = btnRC.left + 80; 
btnRC.top - rc.top * 20; 
btnRC.bottom = btnRC.top + 20; 
btnRC.OffsetRect(0,30); 


m Continue.MoveWindow(btnRC); 


btnRC.OffsetRect(0,30); 

m Stop.MoveWindow(btnRC); 
btnRC.OffsetRect(0,30); 

m Delete.MoveWindow(btnRC); 
m bSubClass = TRUE; 

SIZE szWidth,szHeight; 
szWidth.cx = szWidth.cy = 0; 
szHeight.cx = szHeight.cy = 0; 


// 设 置 “ 继 续 ” 按 钮 的 显示 区 域 
// 设 置 “ 停 止 ” 按 钮 的 显示 区 域 
// 设 置 “ 删 除 ”按钮 的 显示 区 域 


SetScrollSizes(MM_TEXT,szWidth,szHeight); 





(2) 处 理 窗 体 视图 的 WM SIZE 消息 ， 在 窗 体 视图 大 小 改变 时 ， 调 整 列表 视图 控件 的 大 小 以 及 按 
钮 的 位 置 。 


void CTastListView::OnSize(UINT nType, int cx, int cy) 
{ 


CFormView::OnSize(nType, cx, cy); 
if (m bSubClass--TRUE) 
{ 


CRect rc; 

GetClientRect(rc); // 获 取 视 图 窗口 客户 区 域 
rc.DeflateRect(0,0,100,0); // 调 整 区 域 宽度 

m TastList.MoveWindow(rc); // 设 置 列表 视图 控件 的 显示 区 域 
CRect btnRC; // 按 钮 显示 区 域 


btnRC.left = rc.right + 10; 


btnRC.right = btnRC.left + 80; 
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btnRC.top = rc.top + 20; 
btnRC.bottom = btnRC.top + 20; 


btnRC.OffsetRect(0,10); 
m. Stop.MoveWindow(btnRC); // 设 置 “ 暂 停 ” 按 钮 显示 区 域 
btnRC.OffsetRect(0,30); 
m Continue.MoveWindow(btnRC); /设置 “继续 ”按钮 显示 区 域 
btnRC.OffsetRect(0,30); 
m Delete.MoveWindow(btnRC); /设置 “删除 ”按钮 显示 区 域 


} 
G) 处 理 “ 暂 停 ”按钮 的 单 击 事件 ， 暂 停 某 一 个 任务 的 执行 。 
void CTastListView::OnBtStop() 


int nSel = m TastList.GetSelectionMark(); // 获 取 当 前 选中 的 项 目 

if (nSel != -1) 

( 
DWORD nltemData = m TastList.GetltemData(nSel);  // 获 取 与 任务 关联 的 线程 句柄 
CString csState = m TastList.GetltemText(nSel,3); 
if (csState != "暂停 ) 


SuspendThread((HANDLE)nltemData); // 挂 起 线程 
m TastList.SetltemText(nSel,3,"& (&"); // 设 置 任务 状态 


) 





(4) 处 理 “ 继 续 ” 按 钮 的 单 击 事件 ， 恢 复 某 一 个 暂停 的 任务 。 





void CTastListView::OnBtContinue() 


int nSel = m TastList.GetSelectionMark(); // 获 取 当 前 选中 的 选项 

if (nSel != -1) 

( 
DWORD nltemData = m TastList.GetltemData(nSel); /获取 任务 对 应 的 线程 句柄 
CString csType = m TastList.GetltemText(nSel,1); 
ResumeThread((HANDLE)nltemData); // 聊 醒 线 程 
if (csType==" 下 载 ") 


m_TastList.SetltemText(nSel,3," 正 在 下 载 "); // 设 置 任务 的 当前 状态 
} 
else 

m TastList.SetltemText(nSel,3," IE ££ Ef&"); 1/ 设置 任务 的 当前 状态 
} 
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C5) 处 理 “ 删 除 ” 按 钮 的 单 击 事件 ， 将 取消 某 一 任务 的 执行 。 
void CTastListView::OnBtDelete() 


int nSel = m TastList.GetSelectionMark(); /获取 当前 选择 的 项 目 
if (nSel != -1) 


DWORD nltemData = m TastList.GetltemData(nSel); 。“”// 获 取 当 前 任务 的 线程 句柄 
CMainFrame * pDlg = (CMainFrame*)AfxGetMainWnd(); // 获 取 主 窗口 指针 
pDlg-»m dwStop = nltemData; /设置 任务 结束 标记 为 当前 的 线程 句柄 


7.11 项 目 文件 清单 


FTP 管理 系统 项 目 文件 清单 如 表 7.6 所 示 。 
表 7.6 项 目 文件 清单 


文件 名 称 文件 描述 
FTPManage.cpp 主 架构 
FTPManage rc 分 类 控制 
FTPManageDoc cpp 分 类 列表 控制 
FTPManageView.cpp 任务 列表 
FTPView epp 本 地 信息 





712 本 章 总 结 


FTP 管理 系统 是 通过 Visual Studio 2017 实现 的 ， 实 现 的 功能 是 使 局 域 网 内 任意 计算 机 都 能 多 任务 
上 传 和 下 载 文件 。 通 过 本 章 的 学 习 ， 希 望 读 者 能 够 了 解 开发 的 流程 ， 以 及 有 关 TCP/IP 协议 的 知识 ， 并 
能 够 将 本 章 的 系统 应 用 在 生活 中 。 
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媒体 播放 器 


( Visual Studio 2017+Direct Show 实现 ) 


在 互联 网 上 有 许多 优秀 的 媒体 播放 器 软件 ， 功 能 也 各 上 有 具 千 秋 ， 例 
如 金山 影 需 、 影 音 风 暴 、Windows 的 MediaPlayer 等 。 本 章 将 要 设计 
一 个 媒体 播放 器 ， 特 色 功 能 就 是 实现 字幕 登 加 ， 以 及 图 像 的 亮度 、 饱 
和 度 、 对 比 度 的 设置 。 
通过 学 习 本 章 ， 读 者 可 以 学 到 : 
MW 视频 图 像 的 字幕 又 加 
» 视频 图 像 的 亮度 、 饱 和 度 、 
对 比 度 设置 
视频 图 像 的 黑白 效果 显示 
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8.1 开发 背景 














随 着 社会 的 发 展 ， 越 来 越 多 的 人 开始 接触 计算 机 ， 也 有 越 来 越 多 的 人 喜欢 在 上 网 、 工 作 时 ， 播 放 
一 些 音乐 ， 适 当 娱 乐 一 下 ， 缓 解 一 下 紧张 情绪 。 所 以 ， 应 运 而 生 的 是 音频 播放 器 软件 ， 能 够 为 用 户 播 
放 常 见 格式 的 音频 文件 。 并 且 ， 在 使 用 的 过 程 中 ， 也 尽 可 能 使 设计 更 人 性 化 。 比 如 ， 能 最 小 化 到 托盘 
并 可 以 进行 操作 。 良 好 的 人 机 交互 界面 ， 也 能 给 人 以 美好 的 感官 享受 。 
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目前 ， 市 场 上 已 经 有 很 多 音乐 播放 器 ， 因 此 本 次 的 设计 不 仅 可 以 控制 播放 进度 、 音 量 大 小 、 全 屏 
切换 等 基本 功能 ， 还 具备 以 下 特点 。 

回 ESSERE. 

回 “能够 控制 图 像 颜 色 。 

回 用户 可 以 通过 设计 自己 的 过 滤器 实现 以 上 两 个 特色 功能 。 


83 系统 设计 


8.3.1 系统 目标 


音乐 播放 器 这 个 系统 能 够 方便 用 户 使 用 ， 操 作 起 来 灵活 ， 视 觉 上 美观 。 设 计 本 系统 时 应 该 完成 以 
下 几 个 目标 。 

加 ”播放 器 的 界面 美观 。 

回 在 屏幕 上 有 固定 的 格式 。 

回 ”能 够 写 入 计算 机 磁盘 音乐 。 

回 ”运行 稳定 、 安 全 可 靠 。 


































































































打开 文件 
8.3.2 ”系统 功能 结构 & LL rax 
3j 放 方 式 
B 71 us img 
系统 功能 结构 如 图 8.1 所 示 。 D 本 
E sie 音乐 时 长 

833 系统 览 -š 
A E 播放 时 长 

媒体 播放 器 主要 包括 媒体 播放 器 、 视 频 显示 、 文 件 播放 列表 、 











字幕 登 加 和 视频 设置 5 个 窗口 ， 下 面 分 别 给 出 各 个 窗口 的 效果 图 。 图 8.1 媒体 播放 器 系统 功能 图 
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媒体 播放 器 主 窗口 如 图 8.2 所 示 。 在 该 模块 中 ， 能 够 显示 媒体 文件 的 播放 进度 、 播 放 时 间 等 ， 并 能 
控制 播放 进度 、 音 量 大 小 以 及 调用 字幕 又 加 、 视 频 设置 等 子 窗口 。 
视频 显示 窗口 用 于 显示 视频 图 像 画面 ， 效 果 如 图 8.3 所 示 。 
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图 8.2 媒体 播放 器 主 窗口 图 8.3 视频 显示 窗口 


文件 播放 列表 窗口 如 图 8.4 所 示 。 该 模块 主要 用 于 播放 一 组 媒体 文件 , 用 户 可 以 在 磁盘 中 选择 要 加 
载 的 媒体 文件 ， 同 时 可 以 设置 一 组 媒体 文件 循环 播放 或 随机 播放 。 

字幕 登 加 窗口 如 图 8.5 所 示 。 该 模块 主要 用 于 字幕 的 添加 与 删除 ， 用 户 可 以 设置 显示 字幕 的 内 容 、 
字体 和 位 置 。 
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图 8.4 文件 播放 列表 窗口 图 8.5 FREMAD 
视频 设置 窗口 如 图 8.6 所 示 。 在 该 模块 中 , 用户 可 以 完成 对 视频 进行 色调 、 饱 和 度 、 亮 度 和 对 比 度 





的 设置 。 
8.3.4 业务 流程 图 


媒体 播放 器 的 业务 流程 图 如 图 8.7 所 示 。 
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图 8.6 视频 设置 窗口 图 8.7 飓风 影音 业务 流程 图 
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视频 讲解 “| 


8.4.1 如 何 使 用 Direct Show FRE 


DirectX 是 微软 公司 推出 的 一 套 基于 Windows 平台 的 图 像 、 声 音 、 输 入 /输出 和 网 络 游戏 的 编程 接 
口 。DirectX 被 定义 为 与 设备 无 关 性 ， 即 DirectX 可 以 使 用 与 设备 无 关 的 方法 提供 设备 相关 的 高 性 能 。 
DirectX 是 一 个 大 家 族 ， 其 成 员 主要 包括 Direct Input, Direct Play, Direct Setup. Direct Music, Direct 
Sound, DirectX Media Objects, DirectX Graphics 和 Direct Show 等 。 其 中 , Direct Show 主要 为 Windows 
平台 处 理 媒体 文件 播放 、 语 音 视 频 采 集 提 供 了 完整 的 解决 方案 。 

在 使 用 Direct Show 之 前 , 需要 安装 DirectX 开发 包 和 Direct Show 开发 包 。 用户 可 以 到 微软 的 官方 
网 站 上 进行 下 载 。. 这 里 需要 说 明 的 是 ,在 DirectX8.1 SDK 版 本 中 包含 有 Direct Show SDK, 在 DirectX9.0C 
SDK 的 第 一 个 版 本 DirectX SDK Summer 2004 中 也 包含 有 Direct Show SDK, 之 后 , 在 DirectX SDK 中 
没有 包含 Direct Show SDK, Direct Show SDK 以 Extras 的 形式 单独 发 布 。 

本 章程 序 采用 的 DirectX SDK 为 Microsoft DirectX SDK (April 2006), Direct Show SDK 为 DirectX 
SDK Extras Frebruary 2005. 

在 安装 完 DirectX SDK 和 Direct Show SDK 之 后 ， 为 了 能 够 在 程序 中 使 用 Direct Show， 首先 需要 
将 目录 下 的 BaseTsd.h 文件 复制 到 Direct Show SDK 安装 目录 的 Include 目录 下 。 

完成 上 面 的 配置 之 后 , 还 需要 引用 dshow.h 头 文件 , 链接 Strmiids 和 quartz 库 文件 就 可 以 在 程序 中 
使 用 Direct Show SDK。 


#include "dshow.h" 


#pragma comment (lib,"Strmiids") 
#pragma comment (lib,"quartz") 


8.4.2 使 用 Direct Show 开发 程序 的 方法 


Direct Show 提供 了 一 个 很 有 用 的 工具 一 一 GraphEit， 在 Direct Show 安装 目录 的 Utilities 目录 下 。 
在 使 用 Direct Show 开发 应 用 程序 前 ， 可 以 使 用 GraphEit 预先 设置 出 过 滤 图 表 。 以 播放 一 个 DAT 文件 
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为 例 ， 使 用 graphedt 打开 DAT 文件 ，GraphEit 将 根据 系统 信息 生成 过 滤 图 像 ， 如 图 8.8 所 示 。 
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图 8.8 过 滤 图 表 
如 果 需 要 使 用 Direct Show 实现 播放 DAT 文件 的 功能 ， 只 要 按照 图 表 中 显示 的 过 滤器 一 一 创建 ， 
并 按 顺序 连接 过 滤器 即 可 。 当 然 ， 另 一 种 更 简单 的 方法 就 是 使 用 过 滤 图 表 对 象 的 RenderFile 方法 ， 该 
方法 将 根据 文件 名 自动 生成 过 滤 图 表 。 下 面 给 出 播放 媒体 文件 的 关键 代码 。 





IGraphBuilder *pGraph; // 定 义 ” 渡 图 表 接口 
ICaptureGraphBuilder2 * pBuilder; /定义 图 表 构 建 接口 对 象 
IMediaControl *pMediaControl; /定义 媒体 控制 接口 
CoCreatelnstance(CLSID_CaptureGraphBuilder2,0,CLSCTX_INPROC_SERVER, 

IID_ICaptureGraphBuilder2,(void**)&pBuilder); // 创 建 图 表 构 建 的 接口 对 象 
CoCreatelnstance(CLSID_FilterGraph, NULL, CLSCTX_INPROC_SERVER, 

IID. IFilterGraph2, (void **)&pGraph); /创建 ” 滤 图 表 接口 对 象 
pBuilder-»SetFiltergraph(pGraph); /设置 RAR 
pGraph-»RenderFile(strFile.AllocSysString(), NULL); || 媒体 文件 构建 ” 认 的 ” 滤 图 表 
pGraph-»QueryInterface(IID IMediaControl,(void**)&pMediaControl); /获取 媒体 控制 对 象 
pMediaControl-»Run(); /开始 播放 文件 





8.4.3 使 用 Direct Show 如 何 确定 媒体 文件 播放 完成 


在 设计 媒体 播放 器 时 ， 需 要 在 媒体 文件 播放 完成 后 得 到 通知 。 因 为 在 设计 文件 播放 列表 时 ， 需 要 
在 一 个 媒体 文件 播放 完成 后 播放 下 一 个 文件 。 在 Direct Show 中 ,可 以 通过 媒体 控制 接口 和 一 个 单独 的 
线程 来 实现 。 具 体 步 又 如 下 : 

(1) 创建 一 个 媒体 控制 接口 对 象 。 


IMediaEventEx *pEvent; /定义 媒体 事件 接口 对 象 
pGraph->Querylnterface(lID_IMediaEventEx, (void **)&pEvent); // 获 取 媒 体 事件 接口 对 象 


(2) 创建 一 个 线程 ， 执 行 线程 函数 ， 在 线程 函数 中 判断 媒体 文件 是 否 播放 完成 ， 如 果 没 有 播放 完 
成 ， 发 送 CM POSCHANGE 自 定义 消息 ， 如 果 播 放 完 成 ， 发 送 CM_COMPLETE 自 定 义 消 息 。 相 应 代 
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码 如 下 : 


DWORD WINAPI ThreadProc(LPVOID IpParameter) 
{ 


CDirectShowEventDlg* pWnd = (CDirectShowEventDlg*)lpParameter; /获取 主 窗口 指 
HANDLE hEvent; /定义 事件 句柄 
pWnd->pEvent->GetEventHandle((OAEVENT*) &hEvent); // 获 取 事 件 句柄 
long code,p1,p2; /定义 事件 代码 参数 
BOOL done = FALSE; 

while (Idone) /开始 执行 循环 


pWnd-»SendMessage(CM POSCHANGE); 


IIR | CM POSCHANGE 消息 


if (WaitForSingleObject(hEvent,80)--WAIT OBJECT 0) /Direct Show 是 否 有 事件 产生 
/获取 事件 代码 
while (SUCCEEDED(pWnd->pEvent->GetEvent(&code,&p1,&p2,0))) 
pWnd->pEvent->FreeEventParams(code,p1,p2); I 放 事 件 参数 
if (code==EC_COMPLETE) // 是 否 为 播放 完成 
pWnd->m_Completed = TRUE; // 设 置 播放 完成 状态 


pWnd-»SendMessage(CM COMPLETE); 
doneztrue; 


IIR CM COMPLETE 消息 
1/ 出 循环 ， 结 束 线程 





8.4.4 使 用 Direct Show 行 。 和 播放 度 的 控制 
对 于 媒体 播放 软件 来 说 ,实现 音量 调节 和 播放 进度 的 控制 是 不 可 获取 的 功能 。 在 Direct Show 中 可 
以 使 用 IBasicAudio 接口 来 实现 音量 的 控制 。 该 接口 提供 了 get Volume fil put Volume 方法 用 于 获取 和 
设置 音量 。 如 果 想 设置 为 静音 ， 可 以 将 音量 设置 为 -10000L。 下 面 的 代码 演示 了 音量 的 控制 。 
IBasicAudio* pAudio = NULL; 


if (pGraph != NULL) 
t 


/定义 IBasicAudio 接口 指 


pGraph->Querylnterface(lID_IBasicAudio,(void**)&pAudio); // 获 取 IBasicAudio 接口 对 象 


if (pAudio = NULL) IRA ”数据 
{ 
pAudio->get_Volume(&m_IVolumn); 1/ 获取 当 前 的 
if (m IVolumn <0) // 当 前 不 是 最 大 
m_IVolumn += 200; /增加 
pAudio->put_Volume(m_IVolumn); Ing & 





(eo, 
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else 


t 
m IVolumn = 0; /当前 ”为 最 大 


H 
} 


如 果 想 要 控制 播放 的 进度 ， 可 以 使 用 IMediaPosition 接口 来 实现 。 该 接口 提供 有 get StopTime 方 
法 获取 文件 播放 结束 时 的 停止 事件 ， 提 供 有 get_CurrentPosition 方法 获取 当前 的 播放 时 间 ， 提 供 有 
put_CurrentPosition 方法 设置 播放 时 间 ， 即 设置 播放 进度 。 有 了 这 些 方 法 ， 实 现 播放 进度 的 控制 就 易 如 
反 掌 。 相 应 代码 如 下 : 


IMediaPosition* pPosition = NULL; /定义 1IMediaPosition 接口 指 
if (pGraph != NULL) 





pGraph-»QueryInterface(IID IMediaPosition,(void**)&pPosition; ^ //ZkHX IMediaPosition 接口 对 象 
if (pPosition t» NULL) 
{ 


REFTIME curTime,endTime; 
pPosition->get_StopTime(&endTime); // 获 取 播 放 的 停止 时 
pPosition->get_CurrentPosition(&curTime); // 获 取 当 前 的 播放 时 
curTime += 5; // 设 置 快 
if (curTime <=endTime) 
pPosition-»put, CurrentPosition(curTime); // 设 置 当前 播放 的 时 
else 
pPosition-»put, CurrentPosition(endTime); // 设 置 当 前 播放 时 ”为 停止 时 





8.44.5 使 用 Direct Show 实现 字幕 到 加 


在 设计 媒体 播放 器 时 ， 添 加 的 一 个 特色 功能 之 一 就 是 实现 字幕 琶 加 功能 ， 效 果 如 图 8.9 所 示 。 


A LRE 


—— HR Er o— 


HTTP;//WWW.MRBCCD.COM ”垂询 热线 :400-675-1066 
图 8.9 字幕 到 加 效果 
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在 Direct Show 中 只 实现 字幕 到 加 功能 ， 可 以 有 两 种 方式 ， 一 种 是 自己 写 一 个 字幕 倒 加 的 过 滤器 ， 
将 其 插入 到 视频 解码 过 滤器 和 视频 显示 过 滤器 之 间 ， 这 样 可 以 实现 字幕 琶 加 功能 ， 但 是 在 设计 亮度 、 
饱和 度 和 对 比 度 调节 功能 时 发 现 字幕 琶 加 过 滤器 与 其 产生 冲突 ; 而 采用 另 一 种 方式 ， 即 使 用 
VideoMixingRenderer9 过 滤器 实现 视频 显示 ， 笔 者 会 将 实现 字幕 琶 加 功能 的 过 滤器 源 代 码 放置 在 本 书 
资源 包 中 。 下 面 介 绍 使 用 VideoMixingRenderer9 过 滤器 实现 字幕 琶 加 。 默 认 情况 下 ，Direct Show 使 用 
Video Renderer 过 滤器 来 显示 视频 图 像 ， 该 过 滤器 没有 实现 字幕 到 加 功能 ， 需 要 将 该 过 滤器 替换 为 
VideoMixingRenderer9 过 滤器 ，VideoMixingRenderer9 过 滤器 支持 IVMRMixerBitmap9 接口 ,该 接口 提 
HET SetAlphaBitmap 方法 可 以 实现 字幕 琶 加 功能 。 主 要 代码 如 下 : 


CoCreatelnstance(CLSID VideoMixingRenderer9, NULL, CLSCTX ALL, 





IID IBaseFilter, (void **)&pRender); /| 创建 VideoMixingRenderer9 滤器 
实现 使 用 VideoMixingRenderer9 过 滤器 替换 默认 的 视频 显示 过 滤器 的 相应 代码 如 下 。 
IBaseFilter *pRenderFiler = NULL; /定义 IBaseFilter 接口 对 象 


/获取 1BaseFilter 接口 对 象 
pWnd->pGraph->FindFilterByName(L"Video Renderer" (IBaseFilter**)&pRenderFiler); 
if (pRenderFiler!- NULL) /包含 视 信息 
{ 
pWnd->m_bViewPlay = TRUE; 
IPin* pVideoln = NULL; 
pVideoln = pWnd-»FindPin(pRenderFiler,PINDIR INPUT); ”// 查 找 入 引 脚 


if (pVideoln) 

pVideoln-»Disconnect(); // 先 断 开 入 引 脚 与 视 ”解码 的 接 
) 
pWnd-»pGraph-»RemoveFilter(pRenderFiler); I% 认 的 视 显示 滤器 
pWnd-»pGraph-»AddFilter(pWnd-»pRender,L"Render"); /添加 VideoMixingRenderer9 ”滤器 
/获取 视 解码 器 


pWnd-»pGraph-»FindFilterByName(L"MPEG Video Decoder" (IBaseFilter**)&pWnd-»pBase); 
if (pWnd-»pBase) 
{ 


IPin* pOutPin = NULL; /定义 出 引 脚 接口 指 
/获取 视 ”解码 的 出 引 脚 
pOutPin = pWnd-»FindPin(pWnd-»pBase,PINDIR OUTPUT); 
if (pOutPin I2 NULL) 
{ 
IPin* pColorln = NULL; 
IPin* pColorOut = NULL; 
/获取 入 和 出 引 脚 
IPin *pTextIn = NULL; 
IPin *pTextOut = NULL; 
IPin *pbRenderln = NULL; 
/查找 入 引 脚 
pRenderln = pWnd->FindPin(pPWnd->pRender,PINDIR_INPUT); 
HRESULT hRet = 0; 
hRet = pOutPin->Disconnect(); 1/ 断 开 出 引 脚 
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|| 接 视 解码 的 出 引 脚 与 VideoMixingRenderer9 ”滤器 的 “入 引 脚 
hRet = pWnd-»pGraph-»ConnectDirect(pOutPin,pRenderln, NULL); 


pWnd->m_bViewPlay = FALSE; // 没 有 视 ”信息 
} 


利用 VideoMixingRenderer9 过 滤器 实现 字幕 琶 加 功能 。 相 应 代码 如 下 : 


IVMRMixerBitmap9 * pBmp9 = NULL; IIX IVMRMixerBitmap9 接口 指 
pRender-»QuerylInterface(IID IVMRMixerBitmapS9,(void**)&pBmp9); //3& BX IVMRMixerBitmap9 接口 对 象 
if (pBmp9!- NULL) 

{ 


COverlayText OverlayDlg; // 定 义 字 幕 全 加 对 话 框 
if (OverlayDIg.DoModal()--IDOK) II SE ERIT VE 
t 

BYTE byR,byG,byB; /定义 EF 

byR = GetRValue(OverlayDlg.m TextColor); // 获 取 文 本 色 


byG = GetGValue(OverlayDlg.m TextColor); 
byB = GetBValue(OverlayDlg.m TextColor); 


LOGFONT logfont = OverlayDIg.m_LogFont; // 获 取 字 体 信息 

int nX = OverlayDIg.m_HorPos; // 获 取 坐 标 

int nY = OverlayDlg.m VerPos; 

IVideoWindow * pVideoWnd = NULL; /定义 IVideoWindow 接口 指 


long IVideoWidth, IVideoHeight; 

/获取 IVideoWindow 接口 指 

pRender->Querylnterface(lID_IVideoWindow, (void**)&pVideoWnd); 

if (pVideoWndl- NULL) 

( 
pVideoWnd-»get Width(&lVideoWidth); // 获 取 视 ”窗口 的 宽度 
pVideoWnd-»get Height(&lVideoHeight); // 获 取 视 窗口 的 E 
/创建 一 个 设备 上 下 文 
HDC hBmpDC = CreateCompatibleDC(GetDC()-»m hDC); 


CFont Font; /定义 字体 对 象 
Font.CreateFontIndirect(&logfont); // 创 建 字体 
/中 字体 对 象 


HFONT holdFont = (HFONT) SelectObject(hBmpDC,Font.m hObject); 

int nLength, nTextBmpWidth, nTextBmpHeight; 

SIZE szText-(0); 

nLength = strien(OverlayDlg.m Text); // 获 取 字 符 串 的 E 

/获取 文本 的 度 和 E 

GetTextExtentPoint32(hBmpDC, OverlayDIg.m_Text, nLength, &szText); 

nTextBmpHeight = szText.cy; 

nTextBmpWidth = szText.cx; 

HBITMAP hBmp = CreateCompatibleBitmap(GetDC()-»m hDC, 
nTextBmpWidth, nTextBmpHeight); // 创 建 位 图 
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BITMAP bmObj; /定义 位 图 信息 对 象 
HBITMAP hbmOld; /定义 位 图 句柄 
GetObject(hBmp, sizeof(bmObj), &bmObj); // 获 取 位 图 信息 
hbmold = (HBITMAP)SelectObject(hBmpDC, hBmp); /中 位 图 
/定义 文本 的 矩形 区 域 

RECT rcText; 


SetRect(&rcText, 0, 0, nTextBmpWidth, nTextBmpHeight); 
/设置 背景 色 ， 注 意 与 文本 Eik ， 否 则 效果 不 好 
SetBkColor(hBmpDC, RGB(byR, byG, byB-1)); 


SetTextColor(nBmpDC, RGB(byR, byG, byB)); // 设 置 文本 色 
TextOut(hBmpDC, 0, 0,OverlayDIg.m Text, nLength); — // ”出 文本 
VMR9AlphaBitmap bmplnfo; /定义 参数 
ZeroMemory(&bmplnfo, sizeof(bmplnfo)); /初始 化 参数 
bmplnfo.dwFlags = VMRBITMAP_HDC; // 设 置 参数 标记 
bmplnfo.hdc = hBmpDC; /设置 设备 上 下 文 
/等 比例 出 文字 


double xRate = (double)nTextBmpWidth /IVideoWidth; 

double yRate = (double)nTextBmpHeight / IVideoHeight; 

double fX = (double)nX / IVideoWidth; /确定 文本 ”出 比例 
double fY = (double)nY / IVideoHeight; 

bmpinfo.rDest.left = fX; 

bmplnfo.rDest.right = fX*xRate; 

bmpinfo.rDest.top = fY; 

bmplnfo.rDest.bottom = fY+ yRate; 


bmplnfo.rSrc = rcText; // 设 置 文本 显示 区 域 
bmplnfo.cirSrcKey = RGB(byR, byG, byB-1); IngEx & 


bmplnfo.dwFlags |= VMRBITMAP SRCCOLORKEY; 
bmpinfo.fAlpha = 1.0; 
pBmp9-»SetAlphaBitmap(&bmplnfo); IISc3RER RE ERIT 





8.4.6 使 用 Direct Show 实现 亮度 、 ”和 度 和 对 比 度 调节 


在 媒体 播放 器 中 ， 实 现 了 对 视频 图 像 的 亮度 、 饱 和 度 和 对 比 度 的 设置 。 主 要 方法 是 使 用 
VideoMixingRenderer9 过 滤器 支持 的 IVMRMixerControl9 接口 实现 的 ， 该 接口 提供 了 SetProcAmpControl 
方法 用 于 设置 图 像 的 亮度 、 饱 和 度 和 对 比 度 等 信息 。 主 要 代码 如 下 : 


void CDirectShowEventDlg::SetViewlnfo(int nFlag, float fValue) 


( 
IVMRMixerControl9 * pControl = NULL; /定义 IVMRMixerControl9 接口 指 


if (pRender != NULL) 
/获取 IVMRMixerControl9 接口 对 象 


pRender-»QuerylInterface(IID IVMRMixerControl9,(void**)&pControl); 
if (pControl != NULL) 
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VMR9ProcAmpControl vmrParam; /定义 参数 
memset(&vmrParam,0,sizeof(VMR9ProcAmpControl); /初始 化 参数 
vmrParam.dwSize = sizeof(VMR9ProcAmpControl); /设置 参数 大 小 
vmrParam.dwFlags = nFlag; // 设 置 标记 
vmrParam.Brightness = fValue; // 设 置 亮度 值 
vmrParam.Contrast = fValue; /设置 对 比 度 值 
vmrParam.Hue = fValue; // 设 置 色调 值 
vmrParam.Saturation = fValue; // 设 置 、 和 度 值 
pControl->SetProcAmpControl(0,&vmrParam); RER Mg 色 信 息 


84.7 ”设计 显示 目录 和 文件 的 树 视图 控件 


在 设计 本 模块 的 文件 播放 列表 功能 时 ,需要 以 树 结构 显示 磁盘 
目录 和 文件 信息 。 但 是 , 在 Visual C++ 中 没有 现成 的 控件 可 以 使 用 ， TES neocean 


op 5 滞 言 从 入 门 到 情 通 《 第 水 
mop SVN 


为 此 ， 设 计 了 一 个 显示 磁盘 目录 和 文件 的 树 控件 ， 效 果 如 图 8.10 
所 示 。 

树 控件 的 主要 设计 思路 是 首先 获取 系统 的 磁盘 目录 , 将 其 作为 
根 节 点 添加 到 树 控件 中 ， 然 后 向 每 个 根 节点 下 添加 一 个 空 的 子 节 
点 ， 作 用 是 让 根 节 点 显示 一 个 “+” 符 号 ， 表 示 有 子 目录 或 文件 。 
当 用 户 单 击 某 一 个 根 节点 要 展开 子 节点 时 ， 首 先 删除 空 的 子 节点 ， 
然后 遍历 该 目录 下 的 子 目录 或 文件 (注意 是 直接 子 目 录 和 文件 , 而 
不 是 该 目录 下 的 所 有 目录 和 文件 ) ， 而 用 户 单 击 “-” 符 号 收缩 子 节点 时 将 删除 该 目录 的 所 有 节点 ， 然 
后 添加 一 个 空 的 子 节点 。 至 于 各 个 节点 的 图 标 ， 可 以 使 用 SHGetFileInfo 函数 来 获取 系统 关联 的 文件 图 
标 。 树 控件 的 具体 设计 步骤 如 下 : 

(1) 从 CTreeCtrl 类 派生 一 个 子 类 一 一 CSysTreeCtrl， 向 该 类 中 添加 成 员 变 量 。 


ClmageList m ImageList; /图像 列表 


(2) 向 CSysTreeCtrl 类 中 添加 IsSubDir 方法 ， 作 用 是 判断 当前 的 目录 是 否 有 子 目录 或 文件 。 如 果 
有 子 目录 文件 ， 在 添加 该 节点 时 将 为 其 插入 一 个 空 的 子 节点 以 显示 “+” 符 号 ， 表 示 有 子 目 录 或 文件 。 
实现 代码 如 下 : 


BOOL CSysTreeCtrl::IsSubDir(LPCTSTR strPath) 
{ 


System Volume Iriormalion. 
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CFileFind flFind; /定义 文件 查找 对 象 
CString csPath = strPath; 

BOOL bFind = FALSE; 

/保证 径 以 VW.* 结 尾 

if ( tcslen(strPath) == 3) 

1 
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if (strPath[1] == '* && strPath[2] =='\') 


csPath += "*.*"- 
else 
csPath += "V.*": 


csPath += "V." 


) 
bFind = flFind.FindFile(csPath); 
while (bFind) 


bFind - flFind.FindNextFile(); 
if (IflFind.IsDots()) 
{ 


return TRUE; 
) 


) 
return FALSE; 
) 


// 浏 断 字符 串 结尾 字符 


/开始 查 找 文件 


/查找 下 一 个 文件 
// 判 断 是 否 有 子 目 录 或 文件 





(3) 向 CSysTreeCtrl 类 中 添加 EnumSysDir 方法 ， 列 举 系 统 磁盘 目录 。 实 现代 码 如 下 : 





void CSysTreeCtrl::EnumSysDir() 
( 
char pchDrives[128] = (0); 
char* pchDrive; 


GetLogicalDriveStrings(sizeof(pchDrives), pchDrives); 


pchDrive = pchDrives; 
while(*pchDrive) 


HTREEITEM hParent = Addltem(TVI, ROOT, pchDrive); 


if (ISSubDir(pchDrive)) 
Insertltem("", 0, 0, hParent); 
pchDrive += strlen(pchDrive) + 1; 


/定义 字符 数组 
/定义 字符 指 
/获取 磁盘 目录 


/向 树 控件 中 添加 根 节点 
/是 否 有 子 目录 或 文件 
/| 插入 空 的 节点 

// 获 取 下 一 个 磁盘 目录 


Le 


(4) 向 CSysTreeCtrl 类 中 添加 ExtractPath 方法 ， 当 遍历 目录 或 文件 时 ， 将 获取 目录 或 文件 的 完整 
名 称 ， 包 含 详细 的 路 径 信息 ， 该 方法 的 作用 就 是 只 显示 相对 的 目录 和 文件 名 ， 不 包含 路 径 。 实 现代 码 
如 下 : 


{ 
CString csPath = ""; 
int nPos; 
csPath - strPath; 
if (csPath.Right(1) == v) 


CString CSysTreeCtri::ExtractPath(LPCTSTR strPath) 


l 去 结尾 的 \" 
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csPath.SetAt(csPath.GetLength() - 1, ^0"); 
) 


nPos = csPath.ReverseFind(W); // 反 向 查找 “\” 字 符 
if (nPos != -1) 

csPath = csPath.Mid(nPos + 1,csPath.GetLength()); /截取 字符 串 
return (LPCTSTR)csPath; l DARRAS 


} 


(5) 向 CSysTreeCrl 类 中 添加 GetFullPath 方法 ， 该 方法 的 作用 是 返回 某 一 节点 对 应 的 完整 的 目录 
或 文件 名 。 实 现代 码 如 下 : 


CString CSysTreeCtrl::GetFullPath(HTREEITEM hltem) 
{ 





CString csRet; // 记 录 目 录 

CString csCurDir; // 当 前 目录 

HTREEITEM hParent = hltem; 

csRet ="; 

while (hParent) ! ARPA 

{ 
csCurDir = GetltemText(hParent); // 获 取 当 前 节点 文本 
csCurDir += "V; /结尾 添加 “\” 符 号 
csRet = csCurDir + csRet; /累计 目录 
hParent = GetParentltem(hParent); // 获 取 上 级 节点 

) 

if (csRet.Right(1) == v) // 去 结尾 的 “\” 符 号 
csRet.SetAt(csRet.GetLength() - 1, ^0); 

return csRet; || 回 结果 


) 





C6) 向 CSysTreeCtrl 类 中 添加 GetFileImage 方法 ， 获 取 系 统 的 文件 图 像 列表 。 实 现代 码 如 下 : 





BOOL CSysTreeCtrl::GetFilelmage() 
{ 


SHFILEINFO shinfo; // 定 义 外 这 文件 信息 对 象 
memset(&shlnfo,0,sizeof(SHFILEINFO)); /初始 化 外 壳 文 件 信息 对 象 
HIMAGELIST hlmage = NULL; /定义 图 像 列表 句柄 

// 获 取 系 统 文件 图 像 列 表 


himage = (HIMAGELIST)SHGetFilelnfo("C:\\",0,&shinfo, sizeof(SHFILEINFO), 
SHGFI_SYSICONINDEX | SHGFI_SMALLICON); 


if (Inlmage) 
{ 

return FALSE; 
) 
m ImageList.Attach(hlmage); /1 加 系统 文件 图 像 列表 
SetlmageList(&m ImageList, TVSIL_NORMAL); // 设 置 树 控件 的 图 像 列表 
return TRUE; 


j 一 
C7) 向 CSysTreeCtrl 中 添加 LoadPath 方法 ， 将 根据 某 一 个 目录 加 载 其 直接 子 目 录 和 文件 ， 不 包 
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括 间接 子 目 录 和 文件 。 实 现代 码 如 下 : 


void CSysTreeCtrl::LoadPath(HTREEITEM hParent, LPCTSTR strPath) 
( 


CFileFind flFind; /定义 文件 查找 对 象 
CString csPath = strPath; 
BOOL bFind; 
CSortList strDirArray; /定义 字符 串 数 组 ， 用 于 排序 和 记录 目录 
CSortList strFileArray; /定义 字符 串 数组 ， 用 于 排序 和 记录 文件 名 
if (csPath.Right(1) (= V") // 在 目录 结尾 添加 \*.* 符 号 
csPath += "\\"; 
csPath += "*.*": 
bFind = flFind.FindFile(csPath); /开始 查 找 文件 
while (bFind) 
bFind = flFind.FindNextFile(); /查找 下 一 个 文件 
if (flFind.IsDirectory() && !flFind.IsDots()) /判断 是 否 为 目录 
strDirArray.Add(flFind.GetFilePath()); // 记 录 目 录 名 
) 
if (IflFind.IsDirectory()) /是 否 为 文件 
strFileArray.Add(flFind.GetFilePath()); // 记 录 文 件 名 
Cmm // 对 目录 行 排序 
SetRedraw(FALSE); 
CWaitCursor wait; 
for (int i = 0; i < strDirArray.GetSize(); i++) /将 目录 添加 到 树 控件 中 
{ 


HTREEITEM hitem = Addltem(hParent, strDirArray.GetAt(i)); 
if (ISSubDir(strDirArray.GetAt(i))) 


Insertitem("", 0, 0, hitem); In 5 ga 
) 
strFileArray.Sort(); // 对 文件 名 THF 
for (i = 0; i < strFileArray.GetSize(); i++) /将 文件 名 添加 到 树 控件 中 
{ 


HTREEITEM hltem = Addltem(hParent, strFileArray.GetAt(i)); 


) 
SetRedraw(TRUE); 
} 


(8) 向 CSysTreeCtrl 中 添加 LoadTree 方法 ， 加 载 磁盘 根 目 录 到 树 节点 中 。 实 现代 码 如 下 : 


BOOL CSysTreeCtrl::LoadTree(LPCTSTR strPath) 
{ 


DWORD dwstyle = GetStyle(); /获取 控件 格 
if (dwStyle & TVS_EDITLABELS) 
( 
ModifyStyle(TVS. EDITLABELS, 0); // 设 置 控件 格 
} 
DeleteAllltems(); I ”所 有 的 树 节点 
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if (IGetFilelmage()) /获取 系统 文件 图 像 列表 
return FALSE; 
if (strPath == NULL || strPath[0] == ^0") 


EnumSysDir(); /加 “系统 磁盘 目录 


) 
return TRUE; 
) 


(9) 向 CSysTreeCtr] 类 中 添加 Expandltem 方法 ， 该 方法 的 作用 是 展开 某 一 个 子 节点 ， 显 示 子 节 
点 。 实 现代 码 如 下 : 


void CSysTreeCtrl::Expandltem(HTREEITEM hltem, UINT nCode) 
{ 


CString strPath; 
if (nCode == TVE EXPAND) // 如 果 为 展开 节点 
{ 
HTREEITEM hChild = GetChildltem(hltem); /获取 子 节点 
while (hChild) 
Deleteltem(hChild); // 第 一 个 ” 目 为 空 ， 目 的 是 显示 加 号 
hChild = GetChildltem(hltem); /获取 下 一 个 子 节点 
j 
strPath = GetFullPath(hltem); // 获 取 完 整 目录 
LoadPath(hltem, strPath); /加 “所 有 子 目 录 和 文件 


} 





(10) 处 理 树 控件 的 TVN_ITEMEXPANDED 反射 消息 ， 当 用 户 展开 或 收缩 节点 时 显示 或 者 删除 
节点 。 实 现代 码 如 下 : 





void CSysTreeCtrl::OnltemExpanded(NMHDR *pNMHDR, LRESULT *pResult) 
( 
NM. TREEVIEW* pNMTreeView = (NM. TREEVIEW*)pNMHDR; 
CString strPath; 
if (QNMTreeView-»itemNew.state & TVIS EXPANDED) // 如 果 为 展开 节点 


Expanditem(pNMTreeView->itemNew.hltem, TVE_EXPAND); // 展 开 所 有 子 节点 


else /收缩 节点 
{ 
HTREEITEM hChild = GetChildltem(pNMTreeView-»itemNew.hltem); 。“”// 获 取 子 节点 
while (hChild) /利用 循环 删 所 有 子 节点 
Deleteltem(hChild); /1/ 删 ”节点 


hChild = GetChilditem(pNMTreeView->itemNew.hltem);”// 获 取 下 一 个 子 节点 


} 
Insertitem("", pNMTreeView->itemNew.hltem); /插入 空 的 子 节点 
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*pResult = 0; 
) 









至 此 ，CSysTreeCtrl 控件 设计 完成 。 











8.5 媒体 播放 器 主 窗口 设计 
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8.5.4 媒体 播放 器 主 窗口 概 


媒体 播放 器 主 窗口 主要 用 于 显示 媒体 文件 的 播放 进度 、 播 放 时 间 等 ， 并 控制 播放 进度 、 音 量 大 小 
以 及 调用 字幕 琶 加 、 视 频 设置 等 子 窗口 。 媒 体 播放 器 主 窗口 效果 如 图 8.11 所 示 。 


[e snm =) 


当前 进度 





















































图 8.11 m-— 
852 ”媒体 播放 器 主 窗口 界 设计 


媒体 播放 器 主 窗口 界面 设计 过 程 如 下 : 

(OD 创建 一 个 对 话 框 类 ， 类 名 为 CDirectShowEventDlg。 
(2) 向 对 话 框 中 添加 按钮 、 静 态 文本 和 滑 块 控件 。 

(3) 设置 主要 控件 属性 ， 如 表 8.1 所 示 。 


表 8.1 媒体 播放 器 主 窗口 控件 属性 设置 











控件 ID 控件 属性 关联 变 
Caption: 控制 列表 i 
IDC_CTLLIST Border: FALSE CCustomGroup: m CtlList 
IDC GRAY Caption: 黑白 图 像 CButton: m GrayBtn 
IDC PROCESSCTRL 默认 CCustomSlider: m ProgressCtrl 





Caption: 空 


Ie s Border: FALSE 





CNumLabel: m CurPos 
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8.5.0 ”媒体 播放 器 主 窗 口 实现 程 


媒体 播放 器 主 窗口 实现 过 程 如 下 : 
(1) 引用 Direct Show 相关 头 文件 和 库 文件 。 代 码 如 下 : 


#include "dshow.h" 

#include "D3d9.h" 

#include "vmr9.h" 

#include "Objbase.h" 

#pragma comment (lib,"Strmiids") 
#pragma comment (lib,"quartz") 


(2) 在 应 用 程序 初始 化 时 初始 化 Com 库 ， 因 为 Direct Show 操作 是 基于 Com 技术 实现 的 。 





Colnitialize(NULL); // 初 始 化 Com Ee 
G) 向 对 话 框 中 添加 FindPin 方法 ， 用 于 查找 某 一 过 滤器 的 输入 、 输 出 引 脚 。 相 应 代码 如 下 : 
/查找 引 脚 
IPin* CDirectShowEventDlg::FindPin(IBaseFilter *pFilter, PIN DIRECTION dir) 
t 
IEnumPins* pEnumPins; /定义 IEnumPins 接口 指 
IPin* pOutpin; /定义 IPin 接口 指 
PIN. DIRECTION pDir; /定义 引 脚 方向 
pFilter-»EnumPins(&pEnumPins); /列举 ”滤器 引 脚 
while (pEnumPins-»Next(1,&pOutpin,NULL)--S OK) 
( 
pOutpin-»QueryDirection(&pDir); // 获 取 引 脚 方向 ( 入 或 ”出 引 脚 ) 
if (pDir--dir) IPRS A E 
{ 
return pOutpin; 


) 


(4) 向 对 话 框 中 添加 Done 方法 ， 当 用 户 播放 一 个 媒体 文件 时 ， 将 创建 一 个 线程 ， 用 于 检测 媒体 
文件 是 否 播放 完成 ， 如 果 播 放 完成 ， 将 向 主 窗口 发 送 自 定义 消息 CM_COMPLETE， 该 消息 关联 Done 
方法 。Done 方法 的 作用 是 在 媒体 文件 播放 完成 之 后 终止 线程 ， 隐 藏 Direct Show 的 视频 显示 窗口 ， 释 
放 媒体 控制 接口 对 象 指针 ， 释 放 过 滤 图 标 ， 恢 复 对 话 框 的 成 员 变量 为 初始 状态 ， 修 改 视频 显示 窗口 ， 
使 得 在 媒体 文件 播放 完成 后 不 可 以 调整 窗口 大 小 。 实 现代 码 如 下 : 


void CDirectShowEventDIg::Done(WPARAM wParam, LPARAM IParam) 
if (m hThread) // 判 断 线程 是 否 1T 


{ 
TerminateThread(m hThread,0); /| 终止 线程 
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m_hThread = NULL; 


) 

if (pMediaControl != NULL) 

( 
pMediaControl-»Stop(); 
m bStop = TRUE; 
if (pViewWnd != NULL) 
{ 


pViewWnd-»put Visible(FALSE); 


) 


) 
if (pMediaControl) 


pMediaControl-»Release(); 
pMediaControl = NULL; 

) 

if (pGraph) 

{ 
pGraph->Release(); 
pGraph = NULL; 

} 

if (pEvent) 

{ 
pEvent->Release(); 
pEvent = NULL; 


} 

m_bFullScreen = FALSE; 
pViewWnd = NULL; 
pBaseVideo = NULL; 
pBase = NULL; 
m_bViewPlay = FALSE; 
m lVolumn = 0; 

m bMute = FALSE; 

m bSpeed = FALSE; 

m bBack- FALSE; 

m bGraylmage = FALSE; 


m fSaturation = m fBright = m fContrast = m fHue = 1; 


pRender = NULL; 

m bStop = m bPause = FALSE; 
m hThread = NULL; 

m Stop.SetWindowText("S 1E"); 
m GrayBtn.SetWindowText(" 白 图 像 "); 
m_Pause.SetWindowText(" 暂 停 "); 
m_Progress.SetText("00:00:00"); 
m CurPos.SetText("00:00:00"); 

m ProgressCtrl.SetPos(0); 

/播放 完成 

m Previewed = FALSE; 

m Completed = TRUE; 


/是 否 正在 播放 
/停止 播放 
/是 否 显示 视 图 像 
1 藏 视 窗口 


// 判 断 媒 体 控制 接口 指 ”是 否 为 空 
|| 放 媒 体 控制 接口 指 


/判断 滤 图 表 接 口 指 me 
l 放 BAREO 


U 放 媒 体 控制 对 象 


RRE “恢复 为 原来 的 状态 


/设置 “停止 ” 按 的 文本 
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m DisplayWnd.ModifyStyle(WS SIZEBOX,0); /修改 视 显示 窗口 的 格 
m DisplayWnd.m Panel.ModifyStyle(SS BLACKRECT,SS BITMAP); 
m DisplayWnd.m Panel.SetBitmap(m DisplayWnd.bmp); // 设 置 、 认 的 位 图 
m_DisplayWnd.SetWindowPos(NULL,0,0,m_OriginRC.Width(), 
m_OriginRC.Height(),SWP_NOMOVE); // 恢 复 视 ”窗口 大 小 
} 


(5) 向 对 话 框 中 添加 OnPosChange 方法 ， 用 于 显示 当前 的 播放 时 间 ， 当 播放 一 个 媒体 文件 时 ， 将 创 
建 一 个 线程 判断 媒体 文件 是 否 播放 完成 ， 如 果 没 有 播放 完成 ， 则 发 送 自 定义 消息 CM POSCHANGE, 该 消 
息 关 联 OnPosChange 方法 。 相 应 代码 如 下 : 


void CDirectShowEventDlg::OnPosChange() 
{ 





if (pGraph != NULL) 


( 
IMediaPosition* pPosition = NULL; /定义 1IMediaPosition 接口 指 
/获取 1IMediaPosition 接口 对 象 
pGraph->QueryInterface(lID_IMediaPosition, (void**)&pPosition); 
if (pPosition {= NULL) 
{ 


REFTIME endTime; 

pPosition->get_CurrentPosition(&endTime); // 获 取 当 前 的 播放 时 

m ProgressCtrl.SetPos(endTime); // 设 置 ” 度 条 的 显示 位 置 

int nHour = endTime / 3600; /将 秒 ” 换 为 小 时 :分 : 秒 的 形式 


int nMinute = (endTime - nHour*3600)/60; 
int nSecond = (int)endTime 96 60; 
CString csTime,csSpace; 
csSpace ="; 
if (nHour«10) 
csSpace += "096d:"; 
else 
csSpace += "%d:"; 
if (nMinute<10) 
csSpace += "0%d:"; 
else 
csSpace += "%d:"; 
if (nSecond«10) 
csSpace += "0%d"; 
else 
csSpace += "%d"; 
csTime.Format(csSpace,nHournMinute,nSecond); /格式 化 字符 串 
m CurPos.SetText(csTime); /显示 播放 时 


} 


C6) 向 对 话 框 中 添加 PlayFile 方法 ， 播 放 指定 的 媒体 文件 。 该 方法 首先 判断 当前 是 否 正在 播放 媒 
体 文件 ， 如 果 是 则 调用 Done 方法 结束 媒体 文件 的 播放 ， 然 后 构建 适当 的 过 滤 图 表 ， 在 构建 完 过 滤 图 表 
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之 后 ， 将 创建 一 个 线程 ， 该 线程 的 作用 是 修改 过 滤 图 表 ， 默 认 情 况 下 ，Direct Show 使 用 Video Renderer 过 
滤器 来 显示 视频 图 像 ， 该 过 滤器 不 能 实现 字幕 到 加 功能 ， 不 能 够 调节 视频 图 像 的 亮度 、 饱 和 度 和 对 比 度 ， 
需要 将 该 过 滤器 蔡 换 为 VideoMixingRenderer9 过 滤器 , 线程 函数 的 作用 就 是 使 用 VideoMixingRenderer9 
过 滤器 替换 Video Renderer 过 滤器 。 接 着 在 PlayFile 方法 中 将 判断 媒体 文件 是 否 包含 视频 显示 ， 如 果 是 
则 显示 视频 窗口 ， 最 后 获取 媒体 文件 的 长 度 ， 创 建 一 个 单独 的 线程 来 检测 媒体 文件 是 否 播放 完成 ， 实 
现代 码 如 下 : 


void CDirectShowEventDIg::PlayFile(LPCTSTR IpFileName) 
{ 


if (pGraph != NULL) /之 前 已 经 播放 文件 或 者 正在 播放 文件 
{ 
Done(0,0); /停止 播放 
) 
m bStop = FALSE; // 初 始 化 变 
pBuilder = NULL; 
pGraph = NULL; 


pMediaControl = NULL; 
m FileName - IpFileName; 
CoCreatelnstance(CLSID. CaptureGraphBuilder2,0,CLSCTX INPROC, SERVER, 

IID. ICaptureGraphBuilder2, (void**)&pBuilder); /创建 图 表 构 建 接口 对 象 
CoCreatelnstance(CLSID_FilterGraph, NULL, CLSCTX_INPROC_SERVER, 

IID. IFilterGraph2, (void **)&pGraph); /创建 ” 滤 图 表 对 象 
pBuilder->SetFiltergraph(pGraph); IS — iABS BAR 
m_blnvalidFile = FALSE; 
pRender = NULL; 

CoCreatelnstance(CLSID_VideoMixingRenderer9, NULL, CLSCTX ALL, 

IID. IBaseFilter, (void **)&pRender); /创建 VideoMixingRenderer9 ”滤器 

m ThreadStop = FALSE; 
// 创 建 一 个 单独 的 线程 实现 视 显示 滤器 的 替换 
HANDLE hHandle = CreateThread(NULL,0,PlayVideoFile,(void*)this,0,NULL); 


while (Im_ThreadStop) /| 等 待 线程 函数 执行 完成 
MSG msg; 
::GetMessage(&msg,NULL,0,WM_USER); /在 循环 ， 程 中 响应 界 ”操作 
:TranslateMessage(&msg); 
::DispatchMessage(&msg); 

} 

if (m. blnvalidFile) /文件 法 
Done(0,0); /停止 播放 
return; 


) 

pViewWndz NULL; 

/获取 RAO 

pGraph-»Querylnterface(IID IVideoWindow,(void**)&pViewWnd); 
if (pViewWnd) 


/设置 “ 览 窗口 的 拥有 者 


@ 


第 8 章 媒体 播放 器 ( Visual Studio 2017+Direct Show 实现 ) 








pViewWnd-»put Owner((long)m DisplayWnd.m Panel.m hWnd); 


pViewWnd-»put, Left(0); 
pViewWnd-»put. Top(0); 

/获取 览 窗口 格 

long style; 
pViewWnd->get_WindowStyle(&style); 
style = style & -WS CAPTION; 

style = style & -WS DLGFRAME; 
style - style & WS CHILD; 
pViewWnd-»put WindowStyle(style); 
/设置 ” 览 窗 口 的 宽度 和 E 

CRect rc; 

m DisplayWnd.m Panel.GetClientRect(rc); 
pViewWnd-»put Height(rc.Height()); 
pViewWnd-»put Width(rc.Width()); 


pViewWnd-»put MessageDrain((OAHWND)m DisplayWnd.m Panel. m hWnd ); 


) 
if (m bViewPlay) 
{ 
m DisplayWnd.ShowWindow(SW SHOW); 
m DisplayWnd.ModifyStyle(0,WS SIZEBOX); 
) 
else 
{ 
m DisplayWnd.ShowWindow(SW. HIDE); 
m DisplayWnd.ModifyStyle(WS SIZEBOX,0); 
) 
m hThread = NULL; 
1/ 获取 媒体 控制 接口 对 象 


// 显 示 视 显示 窗口 
// 设 置 视 显示 窗口 格 


|| 藏 视 显示 窗口 
// 设 置 视 显示 窗口 格 


pGraph-»QueryInterface(IID IMediaControl,(void**)&pMediaControl); 


pMediaControl-»Run(); 
IMediaPosition* pPosition = NULL; 
1/ 获取 IMediaPosition 接口 对 象 


// 开 始 播放 文件 
// 定 义 IMediaPosition 接口 指 


pGraph->Querylnterface(lID_IMediaPosition,(void**)&pPosition); 


if (pPosition != NULL) 
{ 
REFTIME curTime,endTime; 
pPosition-»get StopTime(&endTime); 
pPosition-»get CurrentPosition(&curTime); 
m ProgressCtrl.SetRange(curTime,endTime); 
// 将 秒 ” 换 为 小 时 :分 : 秒 的 形式 
int nHour = endTime / 3600; 
int nMinute = (endTime - nHour*3600)/60; 
int nSecond = (int)endTime % 60; 
CString csTime,csSpace; 
csSpace = ""; 
if (nHour«10) 
csSpace += "0%d:"; 
else 


// 获 取 文 件 播放 的 停止 时 
/获取 文件 播放 的 当前 时 
/设置 度 条 的 范围 


/获取 小 时 
/获取 分 
/获取 秒 
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csSpace += "96d:"; 
if (nMinute«10) 
csSpace += "096d:"; 
else 
csSpace += "%d:"; 
if (nSecond«10) 
csSpace += "0%d"; 
else 
csSpace += "%d"; 
csTime.Format(csSpace,nHour,nMinute,nSecond); /格式 化 字符 串 
m Progress.SetText(csTime); // 设 置 显示 时 
) 
pEvent = NULL; 
/获取 1ID_IMediaEventEx 接口 对 象 
pGraph->QueryInterface(lID_IMediaEventEx, (void **)&pEvent); 
m Completed = FALSE; 
DWORD threadlD; 
// 开 始 一 个 线程 ， 检 测 文件 是 否 播放 完成 
m_hThread = CreateThread(NULL,0,ThreadProc,(void*)this,0,&threadID); 
m Previewed = TRUE; 





(7) 添加 PlayVideoFile 全 局 函数 ， 该 函数 作为 一 个 线程 函数 ， 当 构建 完 媒体 文件 的 过 滤 图 表 之 
后 ， 将 创建 一 个 线程 执行 线程 函数 PlayVideoFile， 用 于 使 用 VideoMixingRenderer9 过 滤器 替换 Video 
Renderer 过 滤器 。 相 应 代码 如 下 : 





DWORD WINAPI PlayVideoFile(LPVOID IpParameter) 


( 


@ 


/获取 主 窗口 指 

CDirectShowEventDlg* pWnd = (CDirectShowEventDlg*)IpParameter; 

CString strFile= pWnd-»m FileName; // 获 取 播 放 的 文件 名 
/构建 RB 





HRESULT hRet = pWnd->pGraph->RenderFile(strFile.AllocSysString(), NULL); 
if(hRet!=S_OK) 
{ 
pWnd->m_blnvalidFile = TRUE; I 法 的 文件 
return 1; 


) 

/获取 VideoRender filter 

pWnd-»pBase == NULL; 

IBaseFilter *pRenderFiler = NULL; 

/获取 AWR 显示 滤器 

pWnd-»pGraph-»FindFilterByName(L"Video Renderer"(IBaseFilter**)&pRenderFiler); 


if (pRenderFilerI- NULL) // 包 含 视 信息 

{ 
pWnd->m_bViewPlay = TRUE; 
IPin* pVideoln = NULL; /定义 引 脚 接口 指 
/查找 入 引 脚 


pVideoln = pWnd->FindPin(pRenderFiler,PINDIR_INPUT); 
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if (pVideoln) 

pVideoln-»Disconnect(); /与 视 解码 滤器 断 开 dE 
} 
pWnd-»pGraph-»RemoveFilter(pRenderFiler); I% 视 显示 滤器 


/添加 VideoMixingRenderer9 滤器 
pWnd->pGraph->AddFilter(pWnd->pRender,L"Render"); 
/获取 视 解码 器 
pWnd->pGraph->FindFilterByName(L"MPEG Video Decoder" (IBaseFilter**)&pWnd-»pBase); 
if (pWnd-»pBase) 
{ 
IPin* pOutPin = NULL; 
/获取 视 ”解码 的 出 引 肢 
pOutPin = pWnd-»FindPin(pWnd-»pBase,PINDIR OUTPUT); 
if (pOutPin != NULL) 
t 
IPin* pColorln = NULL; 
IPin* pColorOut = NULL; 
/获取 入 和 出 引 脚 
IPin *pTextln = NULL; 
IPin *pTextOut = NULL; 
IPin *pRenderln = NULL; 
pRenderln = pWnd-»FindPin(pWnd-»pRender,PINDIR INPUT); 
HRESULT hRet = 0; 
hRet = pOutPin-»Disconnect(); IT HE 
|| 接 视 解码 滤器 出 引 脚 与 VideoMixingRenderer9 ”滤器 入 引 肢 
hRet = pWnd->pGraph->ConnectDirect(pOutPin,pRenderIn, NULL); 


} 


else 


{ 
pWnd->m_bViewPlay = FALSE; // 没 有 视 信息 


pWnd->m_ThreadStop = TRUE; 
return 0; 


) 


(8) 添加 一 个 全 局 函数 ThreadProc， 该 函数 将 作为 一 个 线程 函数 。 当 播放 一 个 媒体 文件 时 将 创建 
一 个 线程 来 检测 媒体 文件 是 否 播放 完成 ， 如 果 没 有 播放 完成 ， 则 向 主 窗口 发 送 CM_POSCHANGE 消息 
执行 OnPosChange 方法 显示 当前 的 播放 时 间 , 否则 向 主 窗口 发 送 CM. COMPLETE 消息 执行 Done 方法 
结束 媒体 文件 播放 。 实 现代 码 如 下 : 


DWORD WINAPI ThreadProc(LPVOID IpParameter) 

t 
CDirectShowEventDlg* pWnd = (CDirectShowEventDlg*)IpParameter; /获取 主 窗口 指 
HANDLE hEvent; /定义 事件 句柄 
pWnd->pEvent->GetEventHandle((OAEVENT*) &hEvent); // 获 取 事 件 句柄 
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long code,p1,p2; /定义 事件 代码 参数 

BOOL done = FALSE; 

while (Idone) /开始 执行 循环 
pWnd-»SendMessage(CM POSCHANGE); li | CM POSCHANGE 消息 


if (WaitForSingleObject(hEvent,80)-- WAIT. OBJECT. 0) /Direct Show 是 否 有 事件 产生 


/获取 事件 代码 
while (SUCCEEDED(pWnd->pEvent->GetEvent(&code,&p1,&p2,0))) 


pWnd->pEvent->FreeEventParams(code,p1,p2);  // 放 事 件 参 数 


if (code==EC_COMPLETE) /是 否 为 播放 完成 

{ 
pWnd-»m Completed = TRUE; /设置 播放 完成 状态 
pWnd->SendMessage(CM_COMPLETE); lI CM_COMPLETE 消息 
done-true; /出 循环 ， 结 束 线程 

) 


) 


return 0; 


} 


CO) 处 理 “ 打 开 文件 ”按钮 的 单 击 事件 ， 利 用 文件 打开 对 话 框 选择 一 个 媒体 文件 ， 然 后 调用 PlayFile 
方法 播放 媒体 文件 。 相 应 代码 如 下 : 


void CDirectShowEventDlg::OnSetFile() 








CFileDialog fDIg(TRUE,NULL,NULL,OFN HIDEREADONLY | OFN. OVERWRITEPROMPT, 
"avi 文 件 |*.avi;*.dat;*.mp3;*.wav;*.mpeg| 所 有 文件 |*.*||",this); 。 // 定 义 文件 打开 对 话 框 
if (fDlg.DoModal()==IDOK) 


m_FileName = fDlg.GetPathName(); // 获 取 文 件 名 
m_Stop.SendMessage(WM_LBUTTONDOWN,0,0); 
PlayFile(m FileName); // 开 始 播放 媒体 文件 


(10) 处 理 “ 抓 图 ”按钮 的 单 击 事件 ， 将 抓 取 当 前 视频 窗口 的 图 像 信 息 ， 将 其 保存 到 磁盘 文件 中 。 
主要 方法 是 使 用 TbasicVideo 接口 的 GetCurrentImage 方法 来 获得 位 图 的 信息 和 位 图 数据 。 相 应 代码 如 下 : 


void CDirectShowEventDlg::OnSnap() 


CFileDialog flIDIg(FALSE,"","Snap.bmp"); /定义 文件 保存 对 话 框 

if (pGraph != NULL) 

t 
IBasicVideo * pBasicVideo = NULL; /定义 IBasicVideo 接口 指 
/获取 1IBasicVideo 接口 对 象 
pGraph->Querylnterface(lID_IBasicVideo, (void **)&pBasicVideo); 
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if (pBasicVideo != NULL) 


pMediaControl-»Pause(); I8 838 TC 

if (fIDIg.DoModal()--IDOK) 

* CString csSaveName = fiDIg.GetPathName(); // 获 取 文 件 名 
/获取 图 像 大 小 ， 包 含 位 图 信息 头 
long IBmpSize; 
if (SUCCEEDED(pBasicVideo-»GetCurrentlmage(&IBmpSize, 0))) 


{ 

// 定 义 图 像 数 据 缓冲 区 ， 获 取 图 像 数据 

BYTE* pData = new BYTE[IBmpSize]; 

if (SUCCEEDED(pBasicVideo-»GetCurrentlmage(&IBmpSize, (long*)pData))) 

f 
BITMAPFILEHEADER bFile; 
bFile.bfReserved1 = bFile.bfReserved2 = 0; 
bFile.bfSize = sizeof(BITMAPFILEHEADER); 
bFile.bfType = 0x4d42; 
bFile.bfOffBits = sizeof(BITMAPFILEHEADER)* 

Sizeof(BITMAPINFOHEADER); 

CFile file; /定义 文件 对 象 
// 创 建 并 打开 文件 
file.Open(csSaveName,CFile::modeCreate|CFile:modeReadWrite); 
// 写 入 文件 数据 
file.Write(&bFile,sizeof(BITMAPFILEHEADER)); 
file. WriteHuge(pData,IBmpSize); 
file.Close(); HX 文件 

) 

delete [] pData; I 放 位 图 数据 

pBasicVideo->Release(); I| 放 IBasicVideo 接口 指 

) 
) 
pMediaControl-»Run(); /| 继续 播放 媒体 文件 


(QD 处 理 “ 全 屏 ” 按 钮 的 单 击 事件 ， 调 用 视频 窗口 对 象 的 put_FullScreenMode 方法 设置 全 屏 模 
式 。 实 现代 码 如 下 : 


void CDirectShowEventDlg::OnFullScreen() 
t 
if (pViewWnd!= NULL && m bStop--FALSE) 
t 
pViewWnd-»put, FullScreenMode(-1); Ing ES BESEUR 
m bFullScreen = TRUE; 
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(12). 改写 对 话 框 的 PreTranslateMessage 方法 ， 在 全 屏 模式 下 按 Esc 键 将 取消 全 屏 显示 。 实 现代 
码 如 下 : 


BOOL CDirectShowEventDlg::PreTranslateMessage(MSG* pMsg) 
if (pMsg-»message == WM_KEYDOWN) /是 否 为 按 消息 
if (pMsg->wParam == VK ESCAPE) /是 否 为 Esc 


if (pViewWndl- NULL) 


{ 
pMsg->wParam == 0; 
pViewWnd->put_FullScreenMode(0); /取消 全 屏 显示 
m bFullScreen = FALSE; 
return TRUE; 


) 


) 
return CDialog::PreTranslateMessage(pMsg); 
) 


(13). 向 对 话 框 中 添加 SetViewInfo 方法 ， 用 于 设置 视频 图 像 的 颜色 ， 如 亮度 、 饱 和 度 、 对 比 度 的 
信息 。 相 应 代码 如 下 : 








void CDirectShowEventDlg::SetViewlnfo(int nFlag, float fValue) 


IVMRMixerControl9 * pControl = NULL; // 定 义 IVMRMixerControl9 接口 指 
if (pRender != NULL) 
{ 
/获取 IVMRMixerControl9 接口 对 象 
pRender-»QuerylInterface(IID IVMRMixerControl9,(void**)&pControl); 
if (pControl != NULL) 
( 
VMR9ProcAmpControl vmrParam; /定义 参数 
memset(&vmrParam,0,sizeof(VMR9ProcAmpControl)); /初始 化 参数 
vmrParam.dwSize = sizeof(VMR9ProcAmpControl); // 设 置 参 数 大 小 


vmrParam.dwFlags = nFlag; // 设 置 标记 
vmrParam.Brightness = fValue; // 设 置 亮度 值 
vmrParam.Contrast = fValue; // 设 置 对 比 度 值 
vmrParam.Hue = fValue; Ing E ist 
vmrParam.Saturation = fValue; // 设 置 、 和 度 值 
pControl->SetProcAmpControl(0,&vmrParam); RER BM 色 信息 


) 


(14). 处 理 “ 快 进 ” 按 钮 的 单 击 事件 ， 利 用 IMediaPosition 接口 的 put. CurrentPosition 方法 来 设置 
当前 播放 的 位 置 ， 以 实现 快 进 功能 。 实 现代 码 如 下 : 


@ 
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void CDirectShowEventDlg::OnAddSpeed() 


IMediaPosition* pPosition = NULL; 
if (pGraph != NULL) 
{ 


pGraph->Querylnterface(IID_IMediaPosition,(void**)&pPosition); 


if (pPosition != NULL) 
{ 
REFTIME curTime,endTime; 


pPosition-»get StopTime(&endTime); 
pPosition-»get CurrentPosition(&curTime); 


curTime += 5; 
if (curTime «zendTime) 


{ 


pPosition->put_CurrentPosition(curTime); 


} 


else 


{ 


pPosition->put_CurrentPosition(endTime); 


) 


} 


/定义 IMediaPosition 接口 指 


/| 获取 IMediaPosition 接口 对 象 


/获取 播放 的 停止 时 
/获取 当前 的 播放 时 
/设置 快 


/设置 当前 播放 的 时 


/设置 播放 时 ”为 停止 时 





(150 处 理 “ 增 大 音量 ”按钮 的 单 击 事件 ， 利 用 IbasicAudi 接口 的 put. Volume 方法 来 调节 音量 。 


相应 代码 如 下 : 





void CDirectShowEventDlg::OnVolumnmax() 


IBasicAudio* pAudio = NULL; 
if (pGraph != NULL) 
{ 


pGraph->Querylnterface(lID_IBasicAudio,(void**)&pAudio); 


if (pAudio != NULL) 


{ 
pAudio-»get Volume(&m lVolumn); 
if (m IVolumn <0) 
t 
m lVolumn += 200; 
pAudio-»put Volume(m lVolumn); 
i 
else 
{ 
m_IVolumn = 0; 
} 
i 


/定义 IBasicAudio 接口 指 
// 获 取 IBasicAudio 接口 对 象 
// 如 果 有 ”数据 


/获取 当前 的 
// 当 前 不 是 最 大 


/增加 
1/ 设置 


// 当 前 ”为 最 大 
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(16) 处 理 “ 黑 白 图 像 ”按钮 的 单 击 事件 ， 调 节 视频 图 像 的 饱和 度 为 最 小 值 ， 这 样 就 实现 了 黑白 
图 像 的 效果 。 实 现代 码 如 下 : 


void CDirectShowEventDlg::OnGray() 
t 
IVMRMixerControl9 * pControl = NULL; /定义 IVMRMixerControl9 接口 指 
if (pRender != NULL) 
t 
/获取 IVMRMixerControl9 接口 对 象 
pRender-»Querylnterface(IID IVMRMixerControl9,(void**)&pControl); 
if (pControl != NULL) 
( 
VMR9ProcAmpControl vmrParam; /定义 参数 
memset(&vmrParam,0,sizeof(VMR9ProcAmpControl)); /初始 化 参数 
vmrParam.dwSize = sizeof(VMR9ProcAmpControl); /设置 参数 大 小 
vmrParam.dwFlags = ProcAmpControl9 Saturation; // 设 置 参数 标记 
/获取 ”和 度 的 最 小 值 
VMR9ProcAmpControlRange range; 
range.dwSize = sizeof(VMR9ProcAmpControlRange); 
range.dwProperty = ProcAmpControl9 Saturation; 
pControl-» GetProcAmpControlRange(0, &range); 
/设置 “和 度 为 最 小 值 
if (m bGraylmage--FALSE) /设置 和 白 图 像 
{ 
VMR9ProcAmpControl getParam; // 定 义 参数 
memset(&getParam,0,sizeof(VMR9ProcAmpControl)); /初始 化 参数 
getParam.dwSize = sizeof(VMR9ProcAmpControl); /设置 参数 大 小 
getParam.dwFlags = ProcAmpControl9_Saturation; /设置 参数 标记 


pControl-»GetProcAmpControl(0,&getParam); /获取 ME 
m fSaturation = range.MinValue; 
vmrParam.Saturation = m fSaturation; IE “和 度 值 


m bGraylmage = TRUE; 





m GrayBtn.SetWindowText(" K & E18"); 
) 
else // 设 置 彩色 图 像 
{ 


m fSaturation = 1; 

m GrayBtn.SetWindowText( 白 图 像 "); 
vmrParam.Saturation = m fSaturation; 
m bGraylmage - FALSE; 


} 
ME 和 白 图 像 或 彩色 图 像 
HRESULT hRet = pControl->SetProcAmpControl(0,&vmrParam); 


第 8 章 媒体 播放 器 (Visual Studio 2017+Direct Show 实现 ) 


8.6 ”视频 显示 窗口 设计 





8.6.1 视 显示 窗口 概 


视频 显示 窗口 用 于 显示 视频 图 像 画面 ， 在 该 窗口 中 用 户 可 以 打开 新 的 媒体 文件 ， 全 屏 显 示 视 频 图 
像 ， 设 置 黑 白 图 像 、 彩 色 图 像 以 及 停止 播放 等 。 视 频 显示 窗 s (ei NE 
口 效 果 如 图 8.12 所 示 。 


8.6.2 视 显示 窗口 界 设计 


视频 显示 窗口 界面 设计 过 程 如 下 : 

(1) 创建 一 个 对 话 框 类 ， 类 名 为 CDisplayWnd。 

(2) 向 对 话 框 中 添加 一 个 图 片 控件 , 设置 图 片 控件 的 类 
型 为 Bitmap， 设 置 Image 属性 为 程序 中 导入 的 位 图 资源 ID 。 


8.6.3 视 显示 窗口 实现 程 | — 
图 8.12 视频 显示 窗口 




















视频 显示 窗口 实现 过 程 如 下 : 
(1) 向 对 话 框 中 添加 两 个 菜单 对 象 ， 用 于 在 鼠标 右 击 对 话 框 时 弹出 菜单 。 


ClconMenu* m SubMenu; 
ClconMenu m Menu; 


C2) 在 对 话 框 初始 化 时 加 载 菜单 资源 。 相 应 代码 如 下 : 


BOOL CDisplayWnd::OnlnitDialog() 





CDialog::OnlnitDialog(); 
m Menu.LoadMenu(IDR VIDEOMENU); // 加 ”菜单 资源 
m Menu.ChangeMenultem(&m Menu); 
return TRUE; 
) 


(3) 处 理 对 话 框 的 WM_CONTEXTMENU 消息 ， 在 鼠标 右 击 对 话 框 时 弹出 菜单 的 代码 如 下 
void CDisplayWnd::OnContextMenu(CWnd* pWnd, CPoint point) 
{ 
CMenu* pMenu = m Menu.GetSubMenu(0); // 获 取 子 菜单 
// 弹 出 子 菜单 
pMenu->TrackPopupMenu(TPM_LEFTBUTTONITPM_LEFTALIGN,point.x,point.y,this); 
} 


(4) 处 理 对 话 框 的 WM_SIZE 消息 ， 在 播放 视频 文件 时 ， 调 整 对 话 框 大 小 的 同时 ， 调 整 视频 图 像 
的 大 小 使 其 填充 整个 窗口 。 相 应 代码 如 下 : 
893) 
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void CDisplayWnd::OnSize(UINT nType, int cx, int cy) 


CDialog::OnSize(nType, cx, cy); 

/获取 主 窗口 指 

CDirectShowEventDlg *pDlg = (CDirectShowEventDlg *)AfxGetMainWnd(); 
if (pDIg-»m bViewPlay) 

í 


CRect ClientRC,rc; 

GetClientRect(ClientRC); /获取 当前 窗口 的 客户 区 域 
m Panel.MoveWindow(ClientRC); 

m Panel.ModifyStyleSS BITMAP,SS BLACKRECT); /修改 ， 态 文本 控件 格 


m Panel.GetClientRect(rc); // 获 取 ” 态 文本 控件 区 域 
pDlg->pViewWnd->put_Height(rc.Height()); // 设 计 视 图 像 的 E 
pDlg-»pViewWnd-»put, Width(rc.Width()); IRER 图像 的 宽度 


} 


(5) 处 理 “ 播 放 文件 ”菜单 项 的 单 击 事件 ， 调 用 主 窗口 中 的 OnSetFile 方法 来 播放 视频 文件 。 相 
应 代码 如 下 : 


void CDisplayWnd::OnPlayfile() 


/获取 主 窗口 指 
CDirectShowEventDlg *pDlg = (CDirectShowEventDlg *)AfxGetMainWnd(); 
pDlg-»OnSetFile(); // 调 用 主 对 话 框 的 打开 文件 按 ”的 单 击 事件 函数 播放 文件 








8.7.1 字幕 到 加 窗口 概 


字幕 到 加 窗口 用 于 为 视频 图 像 添 加 或 删除 字幕 信息 ， 在 设计 字幕 信息 时 用 户 可 以 设置 字体 大 小 、 
字体 颜色 、 文 本 信息 和 文本 的 坐标 位 置 等 。 字 幕 琶 加 窗口 如 图 8.13 所 示 。 
字幕 到 加 的 视频 窗口 效果 如 图 8.14 所 示 。 
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872 ”字幕 又 加 窗口 因 ”设计 


字幕 琶 加 窗口 设计 过 程 如 下 : 

COD 新 建 一 个 对 话 框 类 ， 类 名 为 COverlayText。 

(2) 向 对 话 框 中 添加 按钮 、 静 态 文本 、 群 组 框 等 控件 。 
(3) 设置 控件 属性 ， 如 表 8.2 所 示 。 


表 8.2 字幕 全 加 窗口 控件 属性 设置 


控件 ID 控件 属性 关联 变 
IDC FONT Read only: TRUE CString: m Font 





IDC HORPOS Number: TRUE UINT: m HorPos 
IDC VERPOS Number: TRUE UINT: m VerPos 





IDC TEXT CString: m Text 


8.7.3 ”字幕 到 加 窗口 实现 程 


字幕 登 加 窗口 实现 过 程 如 下 : 
(1) 处 理 “ 字 体 ”按钮 的 单 击 事件 ， 弹 出 字体 设置 对 话 框 ， 设 置 字体 的 大 小 、 颜 色 等 信息 。 相 应 
代码 如 下 : 





void COverlayText::OnSetFont() 
{ 


UpdateData(); 

CFontDialog ftDlg; /定义 字体 对 话 框 

if (ftDlg.DoModal()==IDOK) 

{ 
ftDig.GetCurrentFont(&m LogFont); /获取 用 户 设置 的 字体 
m_TextColor = ftDlg.GetColor(); 1/ 获取 字体 色 
m Font = ftDIg.GetFaceName(); // 获 取 字 体 名 称 


UpdateData(FALSE); 


) 





(2) 处 理 “确认 ”按钮 的 单 击 事件 ， 关 闭 对 话 框 的 相应 代码 如 下 。 
void COverlayText::OnConfirm() 


EnaDialog(IDOK); // 关 ”对话 框 
H 


G) 处 理 “取消” 按钮 的 单 击 事件 ， 取 消 字幕 信息 ， 关 闭 对 话 框 。 实 现代 码 如 下 : 


void COverlayText::OnCancel() 
i 
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m_Text=""; 

UpdateData(FALSE); 

this-»GetFont()-»GetLogFont(&m LogFont); IRA ” 认 的 字体 
EndDialog(IDOK); IX ”对 话 框 


} 


在 字幕 倒 加 窗口 模块 并 没有 实现 字幕 倒 加 和 取消 字幕 到 加 的 功能 ， 它 只 是 提供 字幕 信息 ， 实 现 字 
幕 琶 加 和 取消 字幕 到 加 是 在 主 窗口 中 实现 的 。 下 面 给 出 主 窗口 中 实现 字幕 倒 加 的 相关 代码 。 


void CDirectShowEventDlg::OnOverlayText() 
{ 





if (pRender ! NULL) 
{ 
IVMRMixerBitmap9 * pBmp9 = NULL; /定义 IVMRMixerBitmap9 接口 指 
/获取 IVMRMixerBitmap9 接口 对 象 
pRender-»Querylnterface(IID IVMRMixerBitmap9,(void**)&pBmp9); 
if (pBmp9!- NULL) 
( 


COverlayText OverlayDlg; /定义 字幕 叠加 对 话 框 
if (OverlayDIg.DoModal()--IDOK) // 显 示 字幕 一 加 对 话 框 
{ 

BYTE byR,byG,byB; /定义 EF 


byR = GetRValue(OverlayDIg.m TextColor; /获取 文本 色 
byG = GetGValue(OverlayDlg.m TextColor); 
byB = GetBValue(OverlayDlg.m TextColor); 
LOGFONT logfont = OverlayDlg.m LogFont; ”// 获 取 字 体 信 息 


int nX = OverlayDIg.m_HorPos; // 获 取 坐 标 
int nY = OverlayDlg.m VerPos; 
IVideoWindow * pVideoWnd = NULL; /定义 IVideoWindow 接口 指 


long IVideoWidth, IVideoHeight; 
/获取 IVideoWindow 接口 指 
pRender-»Querylnterface(IID IVideoWindow, (void**)&pVideoWnd); 
if (pVideoWnd!- NULL) 
t 
pVideoWnd-»get Width(&lVideoWidth); /获取 视 ”窗口 的 宽度 
pVideoWnd-»get Height(&IVideoHeight); // 获 取 视 ”窗口 的 度 
// 创 建 一 个 设备 上 下 文 
HDC hBmpDC = CreateCompatibleDC(GetDC()-»m hDC); 


CFont Font; /定义 字体 对 象 
Font.CreateFontIndirect(&logfont); // 创 建 字体 
// 中 字体 对 象 


HFONT holdFont = (HFONT) SelectObject(hBmpDC,Font.m, hObject); 
int nLength, nTextBmpWidth, nTextBmpHeight; 

SIZE szText-(0); 

nLength = strlen(OverlayDig.m Text); 。“”// 获 取 字符 串 的 度 

/获取 文本 的 度 和 E 

GetTextExtentPoint32(hBmpDC, OverlayDIg.m_Text, nLength, &szText); 
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nTextBmpHeight = szText.cy; 
nTextBmpWidth = szText.cx; 


HBITMAP hBmp = CreateCompatibleBitmap(GetDC()-»m hDC, 


nTextBmpWidth, nTextBmpHeight); 
BITMAP bmObj; 

HBITMAP hbmOld; 

GetObject(hBmp, sizeof(bmObj), &bmObj); 


hbmOld = (HBITMAP)SelectObject(hnBmpDC, hBmp); 


/定义 文本 的 矩形 区 域 
RECT rcText; 


// 创 建 位 图 
/定义 位 图 信息 对 象 
/定义 位 图 句柄 
/获取 位 图 信息 

1/ 中 位 图 


SetRect(&rcText, 0, 0, nTextBmpWidth, nTextBmpHeight); 


/设置 背景 ” 色 ， 注 意 与 文本 E ,否则 效果 不 好 
SetBkColor(hBmpDC, RGB(byR, byG, byB-1)); 
SetTextColor(hBmpDC, RGB(byR, byG, byB)); 
TextOut(hBmpDC, 0, 0,OverlayDIg.m_Text, nLength); 


VMR9AlphaBitmap bmplnfo; 
ZeroMemory(&bmplnfo, sizeof(bmplnfo)); 
bmpinfo.dwFlags = VMRBITMAP HDC; 
bmpinfo.hdc = hBmpDC; 

/等 比例 出 文字 


double xRate = (double)nTextBmpWidth /IVideoWidth; 
double yRate = (double)nTextBmpHeight / IVideoHeight; 


double fX = (double)nX / IVideoWidth; 
double fY = (double)nY / IVideoHeight; 
bmpinfo.rDest.left = fX; 
bmplnfo.rDest.right = fX*xRate; 
bmpinfo.rDest.top = fY; 
bmpinfo.rDest.bottom = fY+ yRate; 
bmpinfo.rSrc = rcText; 

bmplinfo.clrSrcKey = RGB(byR, byG, byB-1); 


bmplinfo.dwFlags |= VMRBITMAP. SRCCOLORKEY; 


bmpinfo.fAlpha = 1.0; 
pBmp9-»SetAlphaBitmap(&bmplnfo); 


/设置 文本 色 
|| HA 

/定义 参数 

// 初 始 化 参数 

// 设 置 参 数 标记 
// 设 置 设备 上 下 文 


// 确 定 文本 ”出 比例 


// 设 置 文本 显示 区 域 
IRER Ë 


/实现 图 像 字幕 琶 加 





8.8.1 


8.8 视频 设置 窗口 设计 


视 设置 窗口 概 





视频 设置 窗口 主要 用 于 设置 视频 图 像 的 色彩 信息 ， 包 括 视频 图 像 的 亮度 、 饱 和 度 和 对 比 度 等 。 视 
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频 设置 窗口 如 图 8.15 所 示 。 = 二 li = 
| ERE 
3 a PS eg 和 Fo 
882 视 设置 窗口 办 设计 wer R— — — peus 


视频 设置 窗口 设计 过 程 如 下 mam 4— — —— 

COD 新 建 一 个 对 话 框 类 ， 类 名 为 CVideoSet。 m [^w 7] 

(2) 向 对 话 框 中 添加 按钮 、 静 态 文本 、 群 组 框 、 编 辑 框 、 
滑 块 等 控件 。 

(3) 设置 控件 属性 ， 如 表 8.3 所 示 。 NINE NEN 


表 8.3 视 设置 窗口 控件 属性 设置 
控件 ID 关联 变 
IDC HUENUM CEdit; m HueNum 
IDC HUE CCustomslider 
IDC_CONTRASTNUM CEdit，m_ConNum 
IDC CONTRAST CCustomSlider: m Contrast 
IDC DEFAULT x 


























8.8.3 视 设置 窗口 实现 程 


(1) 处 理 对 话 框 的 WM_HSCROLL 消息 ， 在 用 户 拖 动 滑 块 时 ， 将 执行 该 消息 处 理 函 数 ， 设 置 视 
频 图 像 相应 的 信息 。 实 现代 码 如 下 : 


void CVideoSet::OnHScroll(UINT nSBCode, UINT nPos, CScrollBar* pScrollBar) 





if (pScrollBar != NULL) 

{ 
CDirectShowEventDlg *pMainDlg NULL; 
/获取 对 话 框 主 窗口 指 
pMainDlg = (CDirectShowEventDlg *)AfxGetMainWnd(); 
pMainDlg-»m bGraylmage = FALSE; 


pMainDlg-»m GrayBtn.SetWindowText" 白 图 像 "); Ing SEES 文本 
pMainDlg-»m GrayBtn.Invalidate(); /更 新 按 
if (pScrollBar->m_hWnd==m_Hue.m_hWnd) // 色 调 滑 块 的 滚动 消息 
if (nSBCode==SB_THUMBPOSITION) // 皂 动 滚动 块 
t 
m Hue.SetPos(nPos); // 设 置 滑 块 位 置 
} 
int nCurPos = m_Hue.GetPos(); /获取 滑 块 位 置 
CString csPos; 


csPos.Format("96i" ,nCurPos); 
m HueNum.SetWindowText(csPos); 
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) 


// 调 用 主 对 话 框 的 SetViewlnfo 方法 设置 视 图像 的 色调 


pMainDIg->SetViewlInfo(ProcAmpControl9_Hue,nCurPos); 


pMainDIg->m_fHue = nCurPos; 
} 
else if (pScrollBar->m_hWnd==m_Saturation.m_hWnd) 
( 
if(nSBCode--SB THUMBPOSITION) 
f 
m_Saturation.SetPos(nPos); 
) 
int nCurPos = m Saturation.GetPos(); 
CString csPos; 
csPos.Format("96i" nCurPos); 
m SatNum.SetWindowText(csPos); 


// 调 用 主 对 话 框 的 SetViewlnfo 方法 设置 视 图像 的 和 度 


1/ ”和 度 滑 块 的 滚动 消息 
// 拖 动 滚动 块 
/设置 滑 块 位 置 

// 获 取 滑 块 位 置 


pMainDIg->SetViewlnfo(ProcAmpControl9_Saturation,nCurPos/100.0); 


pMainDlg-»m fSaturation = nCurPos/100.0; 
) 
else if (pScrollBar-»m hWnd--m Brightness.m hWnd) 
{ 

if (nSBCode--SB THUMBPOSITION) 


{ 
m Brightness.SetPos(nPos); 


int nCurPos = m Brightness.GetPos(); 
CString csPos; 
csPos.Format("96i",nCurPos); 

m BrightNum.SetWindowText(csPos); 


// 调 用 主 对 话 框 的 SetViewlnfo 方法 设置 视 图 像 的 亮度 


// 亮 度 滑 块 的 滚动 消息 
// 拖 动 滚动 块 

// 设 置 滑 块 位 置 

// 获 取 滑 块 位 置 


pMainDlg-»SetViewInfo(ProcAmpControl9 Brightness,nCurPos); 


pMainDlg-»m fBright = nCurPos; 
) 
else if (pScrollBar-»m hWnd--m Contrast.m hWnd) 
{ 
if (nSBCode--SB THUMBPOSITION) 
t 
m Contrast.SetPos(nPos); 
) 
int nCurPos = m Contrast.GetPos(); 
CString csPos; 
csPos.Format("96i",nCurPos); 
m ConNum.SetWindowText(csPos); 


// 调 用 主 对 话 框 的 SetViewlnfo 方法 设置 视 图 像 的 对 比 度 


/对比度 滑 块 的 滚动 消息 
// 拖 动 滚动 块 

// 设 置 滑 块 位 置 

// 获 取 滑 块 位 置 


pMainDIg->SetViewlInfo(ProcAmpControl9_Contrast,nCurPos/100.0); 


pMainDIg->m_fContrast = nCurPos/100.0; 
) 


CDialog::OnHScroll(nSBCode, nPos, pScrollBar); 
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(2) 在 对 话 框 初始 化 时 获取 当前 视频 图 像 各 项 信息 的 默认 值 ， 作 为 视频 设置 窗口 的 初始 值 。 相 应 
代码 如 下 : 


BOOL CVideoSet::OnlnitDialog() 
t 
CDialog::OnlnitDialog(); 
CDirectShowEventDlg *pMainDlg = NULL; 
// 获 取 对 话 框 主 窗口 指 
pMainDlg = (CDirectShowEventDlg *)AfxGetMainWnd(); 
if (pMainDlg) 
{ 
/设置 色调 滑 块 的 滚动 范围 
m_Hue.SetRange(pMainDIg->m_HueRange.MinValue,pMainDIg->m_HueRange.MaxValue); 
WPARAM wParam; 
MAKEWPARAM(SB THUMBPOSITION,pMainDlg-*m fHue); 
m Hue.SetPos(100); 
m Hue.SetPos(pMainDlg-»m fHue); 
/执行 对 话 框 的 WM. HSCROLL 消息 处 理 函 数 
SendMessage(WM HSCROLL,wParam,(LPARAM)m Hue.m hWnd); 
/设置 ”和 度 滑 块 的 滚动 范 
m Saturation.SetRange(pMainDlg-»m SatRange.MinValue*100, 
pMainDlg-»m SatRange.MaxValue*100); 
MAKEWPARAM(SB THUMBPOSITION,pMainDlg-»m fSaturation*100); 
m Saturation.SetPos(100); 
m Saturation.SetPos(pMainDlg-»m fSaturation*100); 
/执行 对 话 框 的 WM. HSCROLL 消息 处 理 函 数 
SendMessage(WM HSCROLL,wParam,(LPARAM)m Saturation.m hWnd); 
/设置 亮度 滑 块 的 滚动 范围 
m Brightness.SetRange(pMainDlg-»m BrightRange.MinValue, 
pMainDlg-»m BrightRange.MaxValue); 
MAKEWPARAM(SB, THUMBPOSITION,pMainDlg-»m  fBright); 
m Brightness.SetPos(100); 
m Brightness.SetPos(pMainDlg-»m fBright); 
/执行 对 话 框 的 WM. HSCROLL 消息 处 理 函 数 
SendMessage(WM HSCROLL,wParam,(LPARAM)m Brightness.m hWnd); 
/设置 对 比 度 滑 块 的 滚动 范围 
m_Contrast.SetRange(pMainDIg->m_ConRange.MinValue*100, 
pMainDIg->m_ConRange.MaxValue*100); 
MAKEWPARAM(SB THUMBPOSITION, 1*100); 
m Contrast.SetPos(100); 
m Contrast.SetPos(1*100); 
/执行 对 话 框 的 WM HSCROLL 消息 处 理 函 数 
SendMessage(WM HSCROLL,wParam,(LPARAM)m Contrast.m hWnd); 





) 
return TRUE; 


G) 处 理 “ 上 默认 ”按钮 的 单 击 事件 ， 恢 复 视频 图 像 的 默认 效果 。 实 现代 码 如 下 : 


(m, 
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void CVideoSet::OnDefault() 


{ 
CDirectShowEventDlg *pMainDlg = NULL; 


pMainDlg = (CDirectShowEventDlg *)AfxGetMainWnd(); // 获 取 主 对 话 框 指 
if (pMainDlg) 
{ 
/设置 色调 滑 块 的 滚动 范围 
m Hue.SetRange(pMainDlg-»m HueRange.MinValue,pMainDlg-»m HueRange.MaxValue); 
WPARAM wParam; 


MAKEWPARAM(SB THUMBPOSITION,1); 

m Hue.SetPos(100); 

m Hue.SetPos(1); 

/执行 对 话 框 的 WM_HSCROLL 消息 处 理 函 数 

SendMessage(WM HSCROLL,wParam,(LPARAM)m Hue.m hWnd); 

pMainDlg-»m fHue = 1; 

/设置 “和 度 滑 块 的 滚动 范围 

m Saturation.SetRange(pMainDlg-»m SatRange.MinValue*100, 
pMainDlg-»m SatRange.MaxValue* 100); 

MAKEWPARAM(SB THUMBPOSITION, 1*100); 

m  Saturation.SetPos(100); 

m Saturation.SetPos(1*100); 

/执行 对 话 框 的 WM. HSCROLL 消息 处 理 函 数 

SendMessage(WM HSCROLL,wParam,(LPARAM)m Saturation.m hWnd); 

pMainDlg-»m fSaturati 

1/ 设置 亮度 滑 块 的 滚动 

m Brightness.SetRange(pMainDlg-»m BrightRange.MinValue, 
pMainDlg-»m BrightRange.MaxValue); 

MAKEWPARAM(SB THUMBPOSITION,1); 

m Brightness.SetPos(100); 

m Brightness.SetPos(1); 

/执行 对 话 框 的 WM HSCROLL 消息 处 理 函 数 

SendMessage(WM HSCROLL,wParam,(LPARAM)m Brightness.m hWnd); 

pMainDlg-»m fBright = 1; 

/设置 对 比 度 滑 块 的 滚动 

m Contrast.SetRange(pMainDlg-»m ConRange.MinValue*100, 
pMainDlg-»m ConRange.MaxValue*100); 

MAKEWPARAM(SB THUMBPOSITION, 1*100); 

m Contrast.SetPos(100); 

m Contrast.SetPos(1*100); 

/执行 对 话 框 的 WM HSCROLL 消息 处 理 函 数 

SendMessage(WM HSCROLL,wParam,(LPARAM)m Contrast.m hWnd); 

pMainDlg-»m fContrast = 1; 








(4) 处 理 “ 色 调 ” 编 辑 框 的 文本 改变 时 的 事件 ， 当 用 户 在 编辑 框 中 输入 色调 值 时 将 设置 滑 块 显示 
的 位 置 ， 这 样 会 触发 对 话 框 的 WM_HSCROLL 消息 ， 最 终 在 WM HSCROLL 消息 处 理 函数 中 设置 色 
调 信息 。 相 应 代码 如 下 : 
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void CVideoSet::OnChangeHuenum() 
{ 


CString csText; 
m HueNum.GetWindowText(csText); 
if (IcsText.lsEmpty()) 


m Hue.SetPos(atoi(csText)); 





QOO 
8.9.4. 文件 播放 列表 窗口 概 


文件 播放 列表 的 主要 功能 是 能 够 播放 一 组 媒体 
文件 ， 在 一 组 媒体 文件 中 ， 当 播放 完 一 个 文件 之 后 ， 
会 随机 或 按 顺序 播放 下 一 个 文件 。 用 户 可 以 将 一 组 媒 
体 文件 以 列表 形式 保存 到 磁盘 文件 中 , 这 样 可 以 通过 
载 入 列表 功能 将 文件 列表 添加 到 播放 列表 中 。 文件 播 


放 列 表 窗口 如 图 8.16 所 示 。 
8.9.0 文件 播放 列表 窗口 界 “” 设 计 
文件 播放 列表 窗口 设计 过 程 如 下 : 


(1) 创建 一 个 对 话 框 类 ， 类 名 为 CFileList。 

(2) 向 对 话 框 中 添加 静态 文本 、 按 钮 、 列 表 框 、 
树 视图 、 复 选 框 等 控件 。 

(3) 设置 主要 控件 属性 ， 如 表 8.4 所 示 。 


/获取 色调 值 


/设置 色调 滑 块 位 置 
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图 8.16 文件 播放 列表 窗口 


表 8.4 文件 播放 列表 窗口 属性 设置 
控件 ID 控件 属性 


关联 变 





Has buttons: TRUE 
IDC_TREELIST Has Lines: TRUE 
Lines as root: TRUE 


CSysTreeCtrl: m DirList 





IDC LIST Sort: FALSE 


CListBox: m FileList 





Caption: 添加 
Disable: TRUE 


IDC ADD FILE 


CButton: m AddFile 





Cation: 循环 播放 


IDC LOOPCHECK 


Auto: TRUE 





CButton m LoopCheck 
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8.9.3 ”文件 播放 列表 窗口 实现 程 


文件 播放 列表 窗口 实现 过 程 如 下 : 
(1) 处 理 树 节点 选中 状态 改变 时 的 事件 ， 判 断 当前 节点 是 目录 还 是 文件 ， 如 果 为 文件 "usn" 
按钮 可 用 ， 否 则 “添加 ”按钮 不 可 用 。 相 应 代码 如 下 : 


void CFileList::OnSelchangedTreelist(NMHDR* PNMHDR, LRESULT* pResult) 


{ 
NM TREEVIEW* PNMTreeView = (NM. TREEVIEW*)pNMHDR; 


HTREEITEM hSelltem 7 m DirList.GetSelectedltem(); /获取 中 的 
if (hSelltem) /有 ”被 中 
£ 
CString csPath = m DirList.GetFullPath(hSelltem); // 获 取 文 件 的 完整 名 称 
CFileFind flFind; 
BOOL bFind - flFind.FindFile(csPath); /查找 文件 
m AddFile.EnableWindow(FALSE); // 禁 用 “添加 ” 按 
if (bFind) 
{ 
flFind.FindNextFile(); /查找 下 一 个 文件 
if (IflFind.IsDirectory()) // 如 果 不 是 目录 
m AddFile.EnableWindow(); /激活 “添加 ” 按 
) 
} 
m_AddFile.Invalidate(); // 更 新 “添加 ” 按 
} 
*pResult = 0; 


} 


(2) 处 理 双击 树 节点 时 的 事件 ， 判 断 当前 节点 是 目录 还 是 文件 ， 如 果 为 文件 ， 将 当前 文件 添加 到 
列表 中 。 相 应 代码 如 下 : 


// 处 理 树 视图 的 双击 事件 
void CFileList::OnDblclkTreelist( NMHDR* pNMHDR, LRESULT* pResult) 





HTREEITEM hSelltem = m DirList.GetSelectedltem(); /获取 中 的 
if (hSelltem) 
{ 
CString csPath = m, DirList.GetFullPath(hSelltem); // 获 取 文件 名 
CFileFind flFind; 
BOOL bFind = flFind.FindFile(csPath); /查找 文件 
if (bFind) 
( 
flFind.FindNextFile(); /查找 下 一 个 文件 
if (flFind.IsDirectory()) // 如 果 不 是 目录 
{ 
m FileList.AddString(csPath); /将 文件 添加 到 列表 中 
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) 
} 
) 
*pResult = 0; 
) 


G) 处 理 “ 删 除 ” 按 钮 的 单 击 事件 ， 删 除 文件 列表 中 的 指定 文件 。 实 现代 码 如 下 : 





void CFileList::OnDeleteFile() 


int nCurSel = m FileList.GetCurSel(); // 获 取 当 前 中 的 B 
if (nCurSel != -1) 
m FileList.DeleteString(nCurSel); I) 当前 中 的 目 
if (nCurSel != 0) 
m FileList.SetCurSel(nCurSel-1); // 将 下 一 个 ” 目 设 置 为 当前 中 的 目 
} 


} 





(4) 处 理 “ 载 入 列表 ”按钮 的 单 击 事件 ， 加 载 一 组 媒体 文件 到 列表 中 。 实 现代 码 如 下 : 





void CFileList::OnImportList() 


CFileDialog fIDlg(TRUE,",",OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT, 
"XIRI Ist AH." /定义 文件 打开 对 话 杠 

if (fIDlg.DoModal()--IDOK) 

t 


CString csFileName = flDIg.GetPathName(); // 获 取 加 ”的 文件 名 
/获取 媒体 文件 数 
int nCount = GetPrivateProfilelnt("FileOperation","FileCount",0,csFileName); 
if (nCount > 0) 
( 
m FileList. ResetContent(); // 删 ”文件 列表 中 的 所 有 
for(int i=0; i«nCount; i++) // 利 用 循环 加 ”文件 到 列表 中 
{ 
char csList[MAX_PATH] = (0); 
CString pchSection; 
pchSection.Format("FileList%i",i); 
// 读 取 文件 名 
GetPrivateProfileString("FileList",pchSection,"",csList,MAX_PATH ,csFileName); 
if (stremp(csList,"")!=0) 
m_FileList.AddString(csList); /将 文件 名 添加 到 文件 列表 中 
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C5) 处 理 “ 保 存 列表 ”按钮 的 单 击 事件 ， 保 存 文 件 列表 中 的 媒体 文件 到 磁盘 文件 中 。 相 应 代码 如 下 : 


void CFileList::OnSaveList() 


int nltemCount = m FileList.GetCount(); 1/ 获取 列表 数 
if (nitemCount > 0) 
CFileDialog flDIg(FALSE,"","MediaList.Ist"); /定义 文件 保存 对 话 框 
if (flIDIg.DoModal()--IDOK) 
{ 
CString csFileName = fiDIg.GetPathName(); // 获 取 文 件 名 
CString csCount; 
csCount.Format("96d",nItemCount); /获取 目 数 
CString csList; 
DeleteFile(csFileName); || S xt 
// 写 入 数 
WritePrivateProfileString("FileOperation","FileCount",csCount,csFileName); 
for(int i=0; ienltemCount; i++) // 利 用 循环 写 入 各 个 文件 名 
{ 
char chCount[10] = (0); 
CString pchSection; 
pchSection.Format("FileList9oi" i); 
m FileList.GetText(i,csList); /获取 当 前 。 文件 名 


) 


/将 文件 名 写 入 INI 文件 中 
WritePrivateProfileString("FileList",pchSection,csList,csFileName); 
pchSection.ReleaseBuffer(); 


MessageBox(" 文 件 列表 为 空 "" 提 示 "); 


(6) 处 理 “ 开 始 播放 ”按钮 的 单 击 事件 ， 播 放 文 件 列表 中 的 媒体 文件 。 实 现代 码 如 下 : 





void CFileList::OnPlayList() 


int nCount = m FileList.GetCount(); // 获 取 列 表 数 

if (nCount>0) 

( 
// 获 取 主 对 话 框 指 
CDirectShowEventDlg *pDlg = (CDirectShowEventDlg *)AfxGetMainWnd(); 
CString csName; 


m bStop = FALSE; 
m bStopComplete = FALSE; 
for(int i20; i«nCount; i++) 


{ 
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if (m bRandPlay) 


i = rand() 96 nCount; 
) 


m FileList.GetText(i,csName); 
m bPlayList = TRUE; 
pDlg-»PlayFile(csName); 

m FileList.SetCurSel(i); 

if(m bStop) 


pDlg-»Done(0,0); 
m bStopComplete = TRUE; 
break; 


) 
while(pDlg-»m Completed--FALSE) 
t 


MSG msg; 
GetMessage(&msg,0,0,WM USER); 
TranslateMessage(&msg); 
DispatchMessage(&msg); 

if (m bStop) 


pDlg-»Done(0,0); 
m bStopComplete = TRUE; 
return; 


) 

) 

if (m bLoopPlay--TRUE || m bRandPlay--TRUE) 
if (izznCount-1) 
t 


i= -1; 


) 


) 


/如 果 为 ”机 播放 


/获取 播放 的 媒体 文件 名 


/播放 媒体 文件 
/1 中 当前 的 文件 


/停止 播放 列表 


// 在 循环， 程 中 响应 界 操作 


/停止 播放 列表 


/循环 播 放 


(7) 处 理 文件 列表 控件 双击 时 的 事件 ， 将 播放 当前 选项 中 的 媒体 文件 。 实 现代 码 如 下 : 


void CFileList::OnDblclkList() 


{ 
int nCount = m FileList.GetCount(); 
int nCurPos = m FileList.GetCurSel(); 
if (nCurPos != -1 && nCount>0) 


/获取 主 对 话 框 指 


/获取 列表 数 
/获取 当前 列表 索引 


CDirectShowEventDlg *pDlg = (CDirectShowEventDlg *)AfxGetMainWnd(); 


@ 
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CString csName; 

m bStop = FALSE; 

m bStopComplete = FALSE; 

pDlg-»Invalidate(); /更 新 主 对 话 框 
int i = nCurPos; 

for(; i<nCount; i++) 


{ 


m FileList.GetText(i,csName); IIR RR M Sc e 
m bPlayList = TRUE; 
pDlg-»PlayFile(csName); /开始 播放 文件 
m FileList.SetCurSel(i); /在 列表 中 中 
if(m bStop) 
pDlg-»Done(0,0); /停止 播放 列表 
m bStopComplete = TRUE; 
break; 


) 
while(pDlg-»m Completed--FALSE) 
{ 


MSG msg; 

GetMessage(&msg,0,0,WM USER); /在 循环 ， 程 中 响应 界 ”操作 
TranslateMessage(&msg); 

DispatchMessage(&msg); 

if (m bStop) 


pDlg-»Done(0,0); /停止 播放 列表 
m bStopComplete = TRUE; 
return; 
) 
) 
if (m bRandPlay) /如果 为 ”机 播放 
i= rand() % nCount; 
} 
if (m_bLoopPlay==TRUE || m_bRandPlay==TRUE) // 循 环 播放 


if (i==nCount-1) 
t 


) 


i= -1; 


i 


(8) 处 理 “ 循 环 播放 ” 复 选 框 的 单 击 事件 ， 如 果 复 选 框 被 选中 ， 将 循环 播放 列表 中 的 文件 。 实 现 
代码 如 下 : 


void CFileList::OnLoopcheck() 
{ 
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int nState = m_LoopCheck.GetCheck(); IRRE EBRA 
if (nState) /是 否 为 ”中 状态 
m bLoopPlay = TRUE; /表示 循环 播放 


else 


m bLoopPlay = FALSE; 
) 


810 项 目 文件 清单 


飓风 影音 的 项 目 文件 清单 如 表 8.5 所 示 。 
表 8.5 ” 目 文件 清单 


CustomGroup.cp [NomLabelcpp | 源 文件 | 
CustomSlider.cpp 
DirectShowEvent cpp 


DirectShowEvent.re 
. 
FileList cpp | | | 





飓风 影音 设计 的 媒体 播放 器 采用 的 是 Direct Show 实现 的 。 使 用 Direct Show 不 仅 可 以 控制 播放 进 
度 、 音 量 大 小 、 全 屏 切 换 ， 还 可 以 实现 字幕 琶 加 、 图 像 颜 色 控 制 等 ， 对 于 额外 的 特色 功能 ， 用 户 可 以 
通过 设计 自己 的 过 滤器 来 实现 。 希 望 对 读者 在 以 后 的 开发 中 有 所 帮助 。 


A I 


z5 E 
吃 豆子 游戏 


(Visual Studio 2017 实现 ) 


吃 豆子 游戏 的 英文 名 称 为 PacMan， 可 在 多 种 系统 、 平 台 上 运行 ， 
是 一 款 非常 有 名 的 动作 休闲 游戏 。 本 章 将 使 用 Windows API， 依 照 面 
向 对 象 的 设计 方法 ， 逐 步 完 成 一 个 让 人 爱不释手 的 迷你 游戏 。 
通过 学 习 本 章 ， 读 者 可 以 学 到 : 


ml 
Ld 


x 


了 解 Windows 消息 循环 的 工作 原理 


掌 栓 如 何 建 立 一 个 Windows 窗口 
应 用 程序 


掌握 父 类 与 子 类 设计 
掌握 少量 的 GDI 国 数 
了 解 图 数 模板 和 动态 分 配 的 实际 用 途 





配置 说 明 
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91 开发 背景 


随 着 社会 的 发 展 ， 科 技术 平 的 不 断 提高 ， 网 络 游戏 已 经 成 为 人 们 日 常 娱乐 的 一 部 分 。 大 多 数 的 游 
戏 都 具备 传染 性 与 普 适 性 ， 不 受 地 域 限制 。 一 个 高 质量 的 游戏 就 像 一 个 火种 ， 将 会 点 燃 游戏 玩家 的 激 
情 ， 并 迅速 蔓延 ， 占 据 整 个 需求 市 场 。 


9.2 需求 分 析 


好 的 游戏 会 令 玩 家 爱不释手 ， 因 此 设计 与 开发 出 高 质量 的 游戏 才能 满足 广大 游戏 爱好 者 的 需求 ， 
所 以 本 章 设计 了 一 个 吃 豆子 游戏 ， 主 要 面向 青少年 和 老人 ， 用 于 开发 智力 ， 消 遗 娱 乐 。 





93 系统 设计 


”视频 讲解 


9.3.1 系统 目标 


本 章 中 设计 了 一 款 吃 豆子 游戏 (PacMan) ， 
此 游戏 将 具有 以 下 特点 。 

回 ”规则 简单 。 

ED ”运行 速度 快 。 

E itu. 

E 容易 上 手 。 

玩家 可 以 操作 的 角色 是 一 张 “ 大 嘴 ”， 当 
它 避 开 所 有 障碍 物 吃 掉 所 有 的 豆子 时 则 疗 关 成 
功 ， 否 则 韶关 失败 。 


9.3.2 系统 览 
游戏 的 运行 效果 如 图 9.1 一 图 9.3 所 示 。 
9.3.3 业务 流程 图 











吃 豆子 游戏 的 业务 流程 如 图 9.4 所 示 。 91 吃 豆子 游戏 第 1 关 





$93 吃 豆 子 游戏 (Visual Studio 2017 实现 ) 
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9.4 技术 分 析 





在 开始 项 目 之 前 , 读者 需要 对 将 要 用 到 的 技术 和 技巧 有 一 定 的 掌握 ， 以 便 更 好 地 理解 和 学 习 本 项 目 。 


9.4.1 建立 Windows 窗口 应 用 程序 


使 用 Visual Studio 2017 创建 Win32 窗口 程序 的 步骤 如 下 : 
(1) 打开 Visual Stuido 2017， 选 择 菜单 项 “文件 ”一 “新 建 ”一 “项 目 ”命令 ， 如 图 9.5 所 示 ， 弹 
出 新 建 窗 口 。 


网 Microsoft Visual sucio 
340 | wo NE) Gr) HOO IAM Vea GN) S500 EDW) 


"md M 
xis @ 选择 “新 建 ” 命 令 | | 所 





























9.5 HEME 
(2) 在 弹出 的 窗口 中 依次 选择 Visual C++ 一 Win32 一 Win32 项 目 ， 在 “名 称 ” 文 本 框 中 输入 项 目 


名 称 pacman， 最 后 单 击 “确定 ”按钮 ， 如 图 9.6 所 示 。 


ms p| GB "Visual CH” "AGE BUR 
ar 2] gwesmes 
e 

















E] wer Venice 














| 回 选择 “Win32 项 目 ” 





























Qui “me” HL 

















[ 图 输入 项 目 名 “pacman” 
回路 径 保持 默认 即 可 ， 也 可 单 
































1 

exo mana | | 击 右键 “浏览 ”按钮 更 改 Ce 

oo Dp 
Eee 











图 9.6 新 建 项 目 之 输入 项 目 名 称 
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G) 在 弹出 的 “Win32 应 用 程序 向 导 ” 对 话 框 中 直接 单 击 “ 下 一 步 ”按钮 ， 如 图 9.7 所 示 。 


mw ni 
欢迎 使 用 wins2 应 用 程序 向 导 
这 些 是 当前 项 目 设置 


Yindows 应 用 程序 
在 任 一 军 口中 单 击 “完成 ”， 撞 要 当前 设置 * 


Mee. 请 参阅 该 项 目的 rendne txt 文件 ， 了 解 有 关 项 目 功能 和 所 生成 的 文件 


















图 9.7 “Win32 应 用 程序 向 导 ” 对 话 框 
(4) 选中 “Windows 应 用 程序 ” 单 选 按钮 ， 然 后 单 击 “ 完 成 ”按钮 ， 如 图 9.8 所 示 。 


Ur 应 用 程序 设置 (D 选中 “Windows 应 用 程序 ? 
m uk 


添加 公共 头 文件 以 用 于 - 
Ciao) 
OEHAGRERE 0 " 
omw 
ORRO 


附加 选项 
Oma 


回 安 全 开发 生命 周期 EDL) 检 查 民 ) 


© 单 击 “完成 ”按钮 








图 9.8 应 用 程序 设置 
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C5) 进行 上 述 操作 后 生成 的 项 目 如 图 9.9 所 示 。 
9.9 是 进行 以 上 操作 后 生成 的 程序 文件 。 这 是 一 个 只 使 用 Win32API, 没 使 用 其 他 框架 (如 MFC) 
的 Windows 窗口 程序 。 
至 此 ,我 们 尚未 输入 一 行 代码 ，IDE〈 集 成 开发 工具 ， 这 里 用 的 是 Visual Studio 2017) 已 经 生成 了 
一 个 窗口 程序 。 接 下 来 会 在 此 程序 的 基础 上 进行 调整 ， 逐 步 实现 快乐 吃 豆 子 游戏 程序 。 
按照 图 9.10 所 示 的 运行 方法 ， 查 看 本 阶段 的 成 果 ， 如 图 9.11 所 示 。 


-S588/o54- 
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b D Resourceh 
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D ++ pacman.cpp. 
++ stdafxcpp 
4 5 资源 文件 
E pacmanico 
团 pacman.rc. 
E smallico 
ReadMe.t«t 
8) MO MUM) 工具 中。 VisualSVN RS) 
Debug - x86 -| b. 本地 Windows WEB ~ 
图 9.9 生成 项 目 文件 图 9.10 运行 方法 
paenan z x -— dec m 





ET 




















图 9.11 自动 生成 项 目 运行 结果 
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9.4.2 wWinMain 函数 


一 个 程序 是 如 何 实现 的 , 首先 要 从 程序 的 入 口 函数 来 观察 。 fWinMain 是 封装 了 WinMain 的 函数 ， 
此 处 不 作 详 细 讲 解 ， 其 参数 列表 如 下 : 
int APIENTRY wWinMain(HINSTANCE hlnstance, 
HINSTANCE hPrevinstance, 


LPTSTR IpCmdLine, 
int ncmdShow) 


HINSTANCE 代表 的 是 程序 的 实例 。 第 一 个 参数 代表 本 程序 的 实例 。 第 二 个 参数 代表 上 一 个 程序 
的 实例 ， 是 系统 用 来 管理 程序 而 使 用 的 标识 。 第 三 个 和 第 四 个 参数 表示 的 是 控制 台 参 数 的 设置 。 这 个 
函数 就 是 窗口 应 用 程序 中 的 主 函数 ， 相 当 于 控制 台 应 用 程序 中 的 Main 函数 。 

下 面 将 介绍 _tWinMain 函数 中 的 参数 。 

首先 可 以 看 到 的 是 两 个 宏 。 


UNREFERENCED_PARAMETER(hPrevInstance); 
UNREFERENCED. PARAMETER(IpCmdLine); 





hPrevinstance 5j IpCmdLine 这 两 个 参数 几乎 不 会 被 用 到 ， 所 以 使 用 了 一 个 UNREFERENCED - 
PARAMETER 的 宏 ， 用 来 忽略 来 自 编译 器 的 “未 使 用 过 的 参数 ”警报 。 


MSG msg; 
HACCEL hAccelTable; 


MSG 是 一 个 结构 体 ， 它 是 Windows 消息 的 记录 形式 ， 而 下 面 的 HACCEL 是 窗口 中 的 热 键 表 。 


LoadString(hInstance, IDS_APP_TITLE, szTitle, MAX, LOADSTRING); 
LoadString(hInstance, IDC. PACMAN, szWindowClass, MAX, LOADSTRING); 


在 工程 项 目 中 选中 左 侧 的 “资源 视图 ”选项 ， 可 以 看 到 这 个 项 目 包含 的 资源 内 容 ， 如 图 9.12 所 示 。 
在 图 9.12 中 ， 从 上 向 下 依次 是 热 键 表 、 对 话 框 、 图 标 、 菜 单 和 字符 表 ， 字 符 表 中 














存储 着 一 些 字符 数据 。 b 9* Accelerator 
LoadString 函数 用 于 将 程序 一 开始 定义 的 两 个 全 局 字符 串 变量 szTitle、 b 1 Dialog 

szWindowClass 初始 化 为 String Table 中 对 应 ID 的 字符 串 的 值 。 需 要 重点 讲解 的 Ql 

是 下 面 这 个 函数 一 一 MyRegisterClass(HINSTANCE hInstance) s P. Ii String Table 





在 本 程序 中 所 使 用 的 窗 体 是 已 经 定义 好 的 一 个 窗口 类 , MyRegisterClass 函数 o 资源 视图 
完成 了 此 项 工作 。 在 代码 中 可 以 找到 这 个 函数 ， 其 内 容 如 下 


ATOM MyRegisterClass(HINSTANCE hinstance) 

{ 
WNDCLASSEX wcex; 
wcex.cbSize = sizeof( WNDCLASSEX); 
wcex.style = CS; HREDRAW | CS VREDRAW; 


8) 
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} 


wcex.IpfnWndProc = WndProc; 

wcex.cbClsExtra = 0; 

wcex.cbWndExtra = 0; 

wcex.hinstance = hinstance; 

wcex.hlcon = Loadlcon(hInstance, MAKEINTRESOURCE(IDI PACMAN)); 
wcex.hCursor = LoadCursor(NULL, IDC. ARROW); 

wcex.hbrBackground = (HBRUSH)(COLOR WINDOW?^1); 
wcex.IpszMenuName = MAKEINTRESOURCE(IDC. PACMAN); 
wcex.lpszClassName = szWindowClass; 

wcex.hlconSm = Loadlcon(wcex.hInstance, MAKEINTRESOURCE(IDI SMALL)J; 
return RegisterClassEx(&wcex); 


这 个 函数 在 主 函 数 内 调用 ， 所 接收 的 实 参 就 是 本 程序 的 HINSTANCE. WNDCLASSEX 是 一 个 结 
构 体 ， 是 所 使 用 的 窗口 类 ， 其 参数 在 函数 内 初始 化 。 


[ra] 
回 


ERKEKEREKEKHKRIRSNIKN 


cbSize: 代表 窗口 类 结构 体 所 占 大 小 。 

style: 窗口 的 样式 ，CS_HREDRAW 、CS_VREDRAW 分 别 代表 窗口 在 水 平和 竖 直 方向 运动 
时 ， 窗 口 的 画面 重 绘 。 

IpfnWndproc: 指向 窗口 过 程 函数 的 指针 。 

cbClsExtra: 在 窗口 类 后 添加 的 字 节 数 ， 经 常 置 为 0。 

cbWndExtra: 在 窗口 句柄 后 添加 的 字 节 数 ， 同 样 经 常 置 为 0。 

hInstance: 在 本 应 用 程序 的 函数 中 ， 已 经 将 其 值 传递 到 MyRegisterClass 中 。 
hIcon: 程序 图 标 。 

hCursor: 鼠标 的 图 标 。 

hbrBackground: 背景 色 。 

lpzsMenuName: 菜单 的 名 称 。 

IpzsClassName: 窗口 类 的 名 称 。 

hIconSm: 窗口 的 小 图 标 。 


本 
wm 
别 不 同 程序 的 标识 。 


这 个 结构 体 中 设置 了 窗口 的 一 般 信 息 ， 最 后 使 用 函数 RegisterClassEx 注册 了 窗口 类 。 这 个 函数 是 
一 个 Windows API (Applicaton Programming Interface) 函数 ， 是 微软 公司 提供 的 Windows 应 用 程序 开 
发 者 的 接口 函数 ， 具 体 实 现 则 被 封装 起 来 。 

可 以 观察 到 ， 在 初始 化 窗口 类 参数 时 ， 使 用 了 一 些 API 函数 ， 如 下 所 示 。 


回 
回 


LoadIcon: 载 入 程序 图 标 。 
MAKEINTRESOURCE: 将 资源 菜单 中 相应 ID 的 项 作为 资源 。 
LoadCursor: 载 入 鼠标 图 标 。 


如 何 更 好 地 使 用 这 些 API 不 是 本 节 的 重点 。 相 应 地 ， 理 解 Windows 程序 的 工作 原理 更 为 重要 。 


e. 
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注册 完 窗口 类 ， 主 函数 内 又 执行 了 这 样 一 段 代码 : 


if ('Initinstance (hInstance, nCmdShow)) 





return FALSE; 
) 


在 代码 中 查找 到 名 为 InitInstance 的 函数 ， 其 内 容 如 下 : 


BOOL Initlnstance(HINSTANCE hlnstance, int nCmdShow) 
{ 





HWND hWnd; 
hinst = hinstance; // 将 实例 句柄 存储 在 全 局 变 中 
hWnd = CreateWindow(szWindowClass, szTitle, WS_OVERLAPPEDWINDOW, 
CW. USEDEFAULT, 0, CW_USEDEFAULT, 0, NULL, NULL, hinstance, NULL); 
if (IhnWnd) 
{ 
return FALSE; 


} 
ShowWindow(hWnd, nCmdShow); 
UpdateWindow(hWnd); 
return TRUE; 
) 


HWND 是 窗口 句柄 的 缩写 ， 是 系统 管理 窗口 的 一 个 标识 。 之 后 使 用 了 Windows API 函数 
CreateWindow 创建 了 一 个 窗口 句柄 ， 赋 值 给 hWnd 变量 。CreateWindow 函数 传 入 的 实数 的 意义 如 下 。 
szWindowClass: 是 本 文件 定义 的 一 个 TCHAR 类 型 的 数组 ， 用 来 存储 类 名 。 
szTitle: 同样 是 全 局 变量 ， 存 储 的 是 窗 体 的 标题 。 

WS_OVERLAPPEDWINDOW: 该 参数 所 对 应 的 形 参 代表 的 是 窗口 的 风格 。 

第 4、5 个 参数 表示 窗口 的 左上 和 角 在 屏幕 中 的 位 置 ， 使 用 CW USDEFAULT 是 使 x 坐标 为 默 
认 值 ， 这 种 情况 下 y 坐标 无 须 设置 ， 可 以 置 为 0。 

第 6、7 个 参数 表示 的 是 窗口 横向 和 纵向 大 小 ， 同 样 设 为 默认 。 

第 8 个 参数 代表 这 个 窗口 所 属 的 父 类 窗口 句柄 ， 本 窗口 不 使 用 ， 则 设置 为 NULL。 

第 9 个 参数 代表 使 用 的 菜单 句柄 ， 本 程序 的 菜单 已 在 注册 窗口 类 时 通过 资源 加 入 进来 ， 没 有 
使 用 相应 的 句柄 ， 则 设置 为 NULL。 

回 第 10 个 参数 hInstance 是 本 程序 的 标识 ， 代 表 着 创建 的 窗口 属于 哪个 应 用 程序 。 

最 后 一 个 参数 代表 Windows 参数 ， 本 例 不 使 用 。 

如 果 创 建 失败 返回 FALSE， 则 主 函数 会 调用 retum 语句 结束 程序 。 当 创建 成 功 后 ， 主 函数 会 调用 
Windows API 函数 ShowWindow 来 显示 窗口 ， 调 用 函数 UpdateWindow 来 更 新 窗口 的 改动 。 


9.4.3 Windows 消息 循环 





运行 程序 之 后 ， 窗 口 一 直 显 示 的 原因 是 在 主 函数 中 存在 着 一 个 消息 循环 。 它 不 但 维持 着 窗口 程序 
行 ， 还 起 着 消息 中 转 站 的 作用 。 这 里 所 用 到 的 函数 都 是 Windows API 函数 。 
KO] 


的 运 
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while (GetMessage(&msg, NULL, 0, 0)) 
if (ITranslateAccelerator(msg.hwnd, hAccelTable, &msg)) 


TranslateMessage(&msg); 
DispatchMessage(&msg); 


De 


GetMessage 函数 获取 消息 之 后 会 通过 TranslateAccelerator 函数 将 消息 与 热 键 表 对 比 ， 若 不 是 热 键 
发 出 的 菜单 指令 ， 则 会 将 这 些 消息 传递 给 TranslateMessage 函数 并 翻译 出 相应 的 形式 ， 之 后 通过 
DispatchMessage 函数 传递 给 消息 的 处 理 者 。 

这 些 消息 从 何 而 来 ? 大 部 分 都 是 用 户 发 出 的 ， 这 些 消 息 都 放 在 消息 队列 中 。 消 息 会 进入 到 队列 ， 
在 这 里 等 候 被 程序 传递 。 

谁 负责 处 理 这 些 消息 呢 ? 前 面 用 到 的 注册 窗口 类 的 窗口 过 程 函数 就 是 专门 处 理 Windows 消息 的 函 
数 ， 每 个 窗口 类 都 有 自己 的 窗口 过 程 函数 ， 程 序 中 主 窗口 的 过 程 函数 在 如 下 代码 中 也 可 以 被 找到 。 


LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM IParam) 
{ 





int wmld, wmEvent; 
PAINTSTRUCT ps; 
HDC hdc; 


Switch (message) 


case WM COMMAND: 
wmld = LOWORD(wParam); 
wmEvent = HIWORD(wParam); 
/分 析 菜 单 ” 择 
Switch (wmld) 


t 
case IDM. ABOUT: 
DialogBox(hInst, MAKEINTRESOURCE(IDD ABOUTBOX), hWnd, About); 
break; 
case IDM EXIT: 
DestroyWindow(hWnd); 
break; 
default: 
return DefWindowProc(hWnd, message, wParam, IParam); 
} 
break; 
case WM_PAINT: 
hdc = BeginPaint(hWnd, &ps); 
IITODO: 在 此 添加 任意 绘图 代码 
EndPaint(hWnd, &ps); 
break; 
case WM DESTROY: 
PostQuitMessage(0); 


e. 
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break; 
default: 


return DefWindowProc(hWnd, message, wParam, IParam); 


H 


return 0; 


} 





返回 值 类 型 LRESULT 是 long 指针 ，CALLBACK 是 stdcall 的 宏 ， 表示 过 程 函 数 参 数 的 压 栈 方 式 。 


各 参数 列表 的 意义 如 下 。 


加 ”hWnd: 是 主 窗口 的 句柄 ， 表 示 这 个 过 程 函数 是 处 理 主 窗口 消息 的 。 
El message: 是 无 符号 整 型 数据 ， 它 的 数字 代表 着 消息 的 类 型 。 


加 ”wParam 和 1Param: 是 与 特定 消息 一 起 传递 过 来 的 参数 的 高 位 和 低位 ， 代 表 消 息 的 具体 信息 。 


在 函数 体内 存在 一 个 Switch 语句 ， 其 作用 是 通过 传递 过 来 的 消息 类 型 作出 反应 。 


以 下 是 本 程序 中 的 各 种 情况 代表 的 意义 。 


E WM COMMAND: 代表 用 户 选择 菜单 项 时 所 产生 的 信息 ， 在 其 中 使 用 参数 的 低位 作为 内 容 ， 


如 下 所 示 。 


> IDM ABOUT: 代表 选择 菜单 项 “关于 ”的 消息 ， 在 本 例 中 调用 了 API 中 的 DialogBox 


函数 创建 了 一 个 对 话 框 。 


» DM EXIT: 代表 选择 菜单 项 “退出 ”的 消息 ， 在 本 例 中 调用 了 API 中 的 Destroy 函数 销 


ST hWnd 所 属 的 窗口 ， 即 主 窗口 。 


B WM PAINT: 代表 在 窗口 中 绘图 所 产生 的 信息 ， 本 例 中 虽然 使 用 了 两 个 API 函数 ， 但 它们 并 


不 对 程序 的 表现 有 任何 影响 。 


E WM DESTROY: 代表 销毁 窗口 产生 的 信息 ， 本 例 中 使 用 了 PostQuitMessage 函数 向 消息 队列 


中 传递 了 销毁 程序 的 消息 。 

在 Default 中 ， 直 接 返回 了 DefWindowProc 
函数 的 结果 。 它 也 是 Windows API 函数 ， 不 难 
发 现 它 的 形式 和 窗口 过 程 函数 一 样 , 实质 上 是 默 
认 的 窗口 过 程 函数 。 

消息 队列 、 消 息 循环 和 回调 函数 之 间 的 关系 
如 图 9.13 所 示 。 

通过 用 户 的 操作 产生 的 消息 会 进入 队列 , W 
息 循 环 会 从 队列 中 拿 走 属于 自己 的 消息 。 在 消息 
循环 中 完成 翻译 的 消息 会 被 传递 到 相应 的 窗口 
过 程 函数 中 去 , 窗口 函数 负责 在 各 种 消息 中 作出 
反应 ， 有 时 也 要 发 回 消息 队列 中 。 

在 Visual Studio 2017 编译 器 生成 的 Windows 
应 用 程序 中 ， 还 有 另外 一 个 窗口 过 程 函数 ， 如 下 所 示 : 


mein 


INT. PTR CALLBACK About(HWND hDlg, UINT message, WPARAM wParam, LPARAM IParam) 


{ 
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UNREFERENCED PARAMETER(IParam); 
Switch (message) 


í 
case WM_INITDIALOG: 
return (INT_PTR)TRUE; 


case WM_COMMAND: 
if (LOWORD(wParam) == IDOK || LOWORD(wParam) == IDCANCEL) 


EndDialog(hDIg, LOWORD(wParam)); 
return (INT. PTR)TRUE; 
) 


break; 


) 
return (INT. PTR)FALSE; 
H 


该 函数 是 About 对 话 框 的 窗口 过 程 函数 。 在 主 窗口 的 窗口 过 程 函数 中 处 理 WM. COMMAND 消息 
时 ， 使 用 的 DialogBox 函数 的 参数 列表 如 下 : 


DialogBox(HINSTANCE hlnstlpTemplate MAKEINTRESOURCE(IDD_ABOUTBOX), 
HWND hWnd,lpDialogFun pFunc) 


回 HINSTANCE: 应 用 程序 的 实例 (句柄 〉。 

回 lpTemplate: 对 话 框 的 模板 指针 。 这 里 仍然 使 用 了 MAKEINTRESOURCE 宏 , 将 ID 为 
IDD ABOUTBOX 的 对 话 框 资源 作为 模板 使 用 。 

EP HWND: 对 话 框 所 属 父 窗口 的 句柄 。 本 程序 的 About 对 话 框 的 父 窗口 即 是 已 经 创建 完毕 的 主 
窗口 框架 。 

回 lpDialog: 实质 上 是 一 个 函数 指针 ， 其 参数 列表 和 返回 值 形式 与 窗口 过 程 函数 相同 ， 代 表 对 话 
框 中 使 用 的 窗口 过 程 函数 。 

在 本 项 目 中 主要 使 用 的 是 主 窗口 的 消息 过 程 函数 ， 读 者 对 About 对 话 框 的 窗口 过 程 函数 稍 做 理解 

即 可 。 


9.4.4 常用 绘图 GDI 








GDI CGrarph Device Interface) 图 形 设备 接口 是 Windows API 中 提供 给 开发 者 处 理 窗口 程序 的 函数 
接口 。 

在 使 用 GDI 之 前 ， 需 要 让 操作 系统 知道 哪个 窗口 需要 绘图 。 使 用 一 个 窗口 句柄 与 设备 联系 起 来 ， 
就 可 以 完成 这 个 任务 。 

HDC GetDC(HWND hWnd) 是 创建 一 个 设备 上 下 文 的 函数 。 它 获得 了 绘图 设备 的 句柄 HDC， 可 以 
在 窗口 上 使 用 它 开始 绘图 ， 例 如 : 


HDC hdc = GetDC(HWND hWnd); 


之 后 就 可 以 使 用 变量 hde 作为 绘图 函数 中 的 标识 ， 其 真正 意义 是 图 形 设备 分 配 出 来 的 资源 标识 。 


e. 
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下 面 介绍 几 个 常用 的 绘图 函数 和 结构 体 。 


COD 点 结构 体 POINT: 这 个 结构 体 包 含 两 个 属性 ， 一 个 是 横 坐 标 x， 另 一 个 是 纵 坐 标 y， 分 别 用 
来 存储 横 、 纵 坐标 的 数据 。 


(2) 若 需要 绘制 一 条 直线 ， 首 先 需要 使 窗口 的 光标 先 移动 到 起 点 ， 代 码 如 下 : 

MoveToEx(HDC hdc,int x,int yLPPOINT preP) 

前 3 个 参数 分 别 代表 设备 上 下 文 、 挪 动 光标 在 窗口 中 的 点 的 坐标 ， 最 后 一 个 参数 是 前 一 个 点 指针 
的 信息 ， 一 般 置 为 空 。 

GO 将 线 “ 拉 伸 ” 到 目标 地 点 。 代 码 如 下 : 


LineTo(HDC hdc,int x,int y) 


同样 ， 参 数 依次 代表 设备 上 下 文 以 及 目标 点 的 横 、 纵 坐标 。 
(4) 绘制 矩形 。 算 形 的 结构 体 RECT 的 代码 如 下 : 


struct RECT 
{ 





int left; 

int top; 

int right; 

int bottom; 
上 





这 个 结构 体 由 左 、 上 、 右 、 下 4 个 值 构成 ， 分 别 代表 了 这 个 矩形 4 个 方向 的 极 值 坐标 ， 也 可 以 理 
解 为 用 左上 角 和 右 下 角 坐 标的 记录 方式 ， 如 图 9.14 所 示 。 


top 





left right 











bottom 
9.4 ”矩形 结构 体 属性 示意 图 
(5) 绘制 带 颜 色 的 实心 矩形 ， 代 码 如 下 : 


FillRect(Hdc hdc,&RECT pRect,HBRUSH brush); 


第 一 个 和 第 二 个 参数 分 别 代表 图 形 设备 上 下 文 和 轮廓 矩形 的 指针 。HBRUSH 是 一 个 画 刷 资源 ， 可 


以 理解 为 画 画 的 刷子 。 
9) 
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创建 一 个 画 刷 的 函数 为 : 
CreateSolidBrush(COLORREF c) 


COLORREF 是 GDI 中 的 颜色 类 型 ,使 用 RGB 宏 的 编码 可 以 设 定 它 的 颜色 值 。 使 用 CreateSolidBrush 
并 结合 相应 颜色 可 以 创建 一 个 实心 的 画 刷 。 

绘制 一 个 红色 实心 矩形 ， 代 码 如 下 : 

RECT rect; 


// 设 置 rect 的 位 置信 息 
FillRect(hdc,&rect, CreateSolidBrush(RGB(255,0,0)); 


er, 
Br RGB 分 别 代表 红色 、 绿 色 和 蓝 色 在 颜色 中 所 占 的 比例 ， 在 这 个 宏 中 ， 取 值 的 范围 为 0~255。 


C6) 绘制 椭圆 ， 代 码 如 下 : 
Ellipse(HDC hdc,int left,int top,int right,int bottom) 


该 函数 绘制 的 圆 形 是 一 个 以 矩形 为 基准 的 内 切 圆 ，left、top、right 和 bottom 分 别 代表 和 矩形 的 左 、 
上 、 右 、 下 点 坐标 ， 如 图 9.15 所 示 。 
CD 绘制 圆 弧 ， 代 码 如 下 : 


Arc(HDC hdc,int x1 int y1,int x2,int y2, 
int x3,int y3,int x4,int y4) 



































参数 的 意义 如 图 9.16 所 示 。 
yl 
2 xi 1 xl 
left right N / d 
botton a EUN mS 
915 ”内 切 椭圆 视图 9.16 画 弧 函数 参数 示意 图 

Arc 画 弧 函数 中 需要 填写 的 信息 有 以 下 3 项 : 
回 设备 上 下 文 。 


内 切 圆 所 在 矩形 的 左 、 上 、 右 、 下 信息 。 
加 ”此 段 弧 形 对 应 的 弦 两 端 坐标 ， 也 可 以 理解 为 相应 直线 截取 内 切 圆 的 交点 。 弧 形 依 照 逆 时 针 方 
向 绘制 。 
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(8) 画笔 资源 HPEN。 
GDI 绘图 可 以 画 出 各 种 各 样 的 线 ， 这 与 程序 中 需 用 什么 样 的 画笔 有 关 。 默认 的 画笔 是 黑色 实 线 的 。 
使 用 CreatePen 函数 可 以 创建 一 个 画笔 ， 代 码 如 下 : 


CreatePen (int Style,int width, COLORREF c) 


第 一 个 参数 是 画笔 的 样式 ，0 代表 实 线 ， 第 二 个 参数 代表 线 的 宽度 ; 第 三 个 参数 代表 画笔 的 颜色 。 
在 程序 中 应 用 创建 的 画笔 资源 需要 使 用 SelectObject 函数 。 


HPEN SelectObject(HDC hdc,HGDIOBJ ob) 


第 二 个 参数 代表 的 是 绘图 资源 ， 如 画 刷 、 画 笔 和 位 图 等 ， 其 返回 值 是 hd 原本 应 用 的 资源 。 
以 下 是 一 个 使 用 蓝 色 画笔 绘制 圆 的 例子 。 代 码 如 下 : 


HPEN bluePen = CreatePen(0,1,RGB(0,0,255)); 
HPEN oldPen = (HPEN)SelectObject(hdc,bluePen); 
RECT rect; 

int x1 25,x2710,y1-5,y2-5; 
Ellipse(hdc,x1,y1,x2,y2); 


代码 中 的 oldPen 是 绘图 中 应 用 过 的 画笔 。 当 使 用 新 画笔 绘制 完 图 形 后 ， 应 当 将 画笔 资源 还 原 ， 并 
且 释 放 创建 的 画笔 资源 ， 代 码 如 下 ; 


SelectObject(hdc,oldPen); 
DeleteObject(bluePen); I WEAR 











DeleteObject 是 一 个 释放 画笔 资源 的 函数 ， 代 码 如 下 : 
DeleteObject(HGDIOBJ ob) 
以 上 是 本 项 目 中 使 用 的 GDI 函数 的 内 容 ， 接 下 来 将 开始 制作 PacMan 


9.4.5 ”碰撞 检测 的 实现 


在 游戏 中 如 何 让 程序 知道 物体 在 撞墙 ? 可 通过 物体 所 在 点 的 位 置 和 墙 体 边 缘 位 置 进行 检测 。 计 算 
方法 可 以 是 中 心 坐标 和 朝向 所 对 应 的 墙 的 位 置 与 物体 的 宽度 作 比 较 ， 若 是 大 于 宽度 ， 则 没有 碰 上 。 这 
种 碰撞 检测 方法 虽然 趋 于 真实 ， 但 是 实现 起 来 非常 复杂 。 首 先 需要 记录 所 有 墙 体 边 缘 点 的 坐标 〈 像 素 
A) ， 然 后 行走 一 步 就 判断 一 下 朝向 是 否 撞墙 。 其 中 还 需要 找到 相应 方向 的 墙壁 ， 否 则 需要 遍历 所 有 
墙壁 边缘 点 的 坐标 。 实 现 之 后 的 情况 可 能 还 会 存在 一 些 不 希望 被 观测 到 的 结果 ， 如 转弯 之 后 剩余 半截 
身体 卡 在 墙 中 等 。 

那么 ， 如 何 设 计 吃 豆子 中 的 碰撞 检测 呢 ? 地 图 的 记录 方式 是 关键 。 地 图 的 记录 数据 量 越 少 ， 计 算 
的 方法 越 简 单 。 将 整个 地 图 分 为 若干 个 正方 形 的 小 方 格 ， 物 体 每 到 一 个 方 格 才 会 去 做 碰撞 检测 。 地 图 
记录 的 是 这 些小 方 格 是 否 有 墙 体 与 豆子 的 信息 ， 物 体 通 过 地 图 来 判断 是 否 撞 到 了 墙壁 。 

本 项 目 所 设计 的 地 图 为 长 、 高 各 19 个 方 格 ， 使 用 一 个 二 维 矩阵 来 记录 ， 同 时 还 应 该 记录 地 图 中 方 
格 的 大 小 。 设 计 一 个 地 图 类 ， 代 码 如 下 

.9 
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class Gmap 


{ 
protected: 


static int LD; J| BARI 
bool mapData[MAPLENTH ][IMAPLENTH];  // BH ”地 图 点 
frined class GObject; A 数据 提供 给 友 元 物体 类 


X 


其 中 ，MAPLENTH 是 数字 19 的 宏 。LD 是 墙 的 尺寸 。 因 为 地 图 类 所 有 对 象 的 墙壁 大 小 应 该 相同 ， 
所 以 应 该 将 其 设 定 为 静态 变量 。 

有 了 地 图 类 ， 那 么 对 于 所 有 物体 而 言 ， 它 们 使 用 的 地 图 也 应 该 是 同一 张 。 向 GObject 类 添加 地 图 
类 指针 变量 ， 代 码 如 下 : 


protected: 
static GMap* pStage; // 指 向 地 图 类 的 指 “， 设 置 为 ” 态 ， 使 所 有 子 类 对 象 ”能够 使 用 相同 的 地 图 


这 样 物体 类 就 包含 了 地 图 的 信息 。 在 物体 类 中 的 碰撞 检测 依照 地 图 类 所 记录 方 格 信息 进行 判断 。 
物体 行进 到 一 个 方 格 中 ， 判 断 它 当 前 朝向 的 下 一 个 格子 是 否 有 墙壁 是 当前 碰撞 的 判断 标准 。 在 此 之 前 
需要 判断 的 是 物体 是 否 在 方 格 的 中 央 ， 检 测 的 标准 如 图 9.17 所 示 。 


=Ë PaA 
物体 不 在 方 格 中 央 , 正在 行 
e sec tactum 
—— 
^ 物体 在 方 格 中 央 。 此 时 应 
当 判 断 物体 行进 方向 ， 然后 判 


断 攀 体 朝向 的 下 一 个 格子 是 否 
有 墙壁 


qi GI 物体 撞墙 之 后 , 在 这 个 方向 
K A 的 行进 应 该 停止 
9.17 碰撞 检测 标准 


现在 需要 记录 物体 在 地 图 矩阵 中 的 当前 位 置 ， 并 计算 物体 是 否 在 方 格 中 。 在 Gobject 类 中 声明 以 下 
成 员 : 





















































protected: 
bool Achive(); // 判 断 物体 是 否 到 坐标 位 置 
int dRow; || AR (IMEE ”的 行 ) 
int dArray; || ” 纵 坐 标 〈 即 所 在 和 矩 ” 的 列 ) 
int speed; Hn 度 
virtual void AchiveCtrl(); /到 点 后 更 新 数据 


将 更 新 数据 函数 AchiveCtrl 设 定 为 虚 函 数 。 这 个 函数 用 于 判断 物体 到 达 格子 后 ， 更 新 物体 在 矩阵 
中 的 行列 坐标 。 玩 家 所 操作 的 “大 嘴 ” 在 到 达 方 格 后 需要 判断 是 否 消除 了 豆子 ， 这 样 等 于 在 到 达 格 子 
后 添加 了 一 种 行为 ， 这 样 很 适合 将 此 函数 设置 为 虚 函 数 供 子 类 使 用 。 


(o, 
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物体 到 达 格子 后 除了 向 以 前 的 方向 前 行 ， 还 可 以 转弯 。 在 游戏 中 并 不 提倡 随时 都 可 以 转弯 ， 因 为 
大 多 数 情况 一 定 是 无 效 的 指令 〈 由 于 撞墙 ) ， 所 以 在 碰撞 检测 中 也 应 该 包含 方向 的 更 新 和 指令 的 有 效 
性 。“ 大 嘴 ” 和 敌人 都 应 该 存在 方向 指令 ， 这 样 才能 够 在 地 图 上 转弯 。 在 物体 类 里 可 以 使 用 一 个 前 面 
定义 的 方向 枚 举 TWARDS 类 型 来 存储 这 个 指令 。 


TWARDS twCommand; /指令 缓存 
在 地 图 类 GMap 中 , 使 用 了 bool 型 的 二 维 矩 阵 存储 地 图 上 墙壁 位 置 的 信息 。 当 值 为 false 时 ， 表 示 


该 位 置 有 墙壁 ， 当 值 为 tue 时， 说 明 该 位 置 没 有 墙壁 。 
COD 依照 碰撞 检测 的 标准 ， 首 先 应 该 更 新 物体 所 在 的 行 、 列 的 数据 ， 代 码 如 下 : 


bool GObject::Achive() 
{ 





int n =(point.x- pStage->LD/2)%pStage->LD; 
int k =(point.y- pStage->LD/2)%pStage->LD; 
bool | = (n==0&&k==0); 
return I; 


) 
void GObject::AchiveCtrl() 


if(Achive()) 

{ 
dArray = PtTransform(point.x); // 更 新 列 
dRow = PtTransform(point.y); NERT 


} 
) 
int GObject::PtTransform(int k) 


return (k -(pStage-»LD)/2)/pStage-»LD; 
) 


上 述 代码 中 ,在 类 中 将 PtTransform 函数 的 访问 权限 声明 为 protected， 其 作用 是 将 物体 在 屏幕 上 的 
坐标 转换 为 行 / 列 坐标 。 
以 左上 角 第 一 个 格子 为 基准 进行 坐标 偏 移 与 转换 ， 如 图 9.18 所 示 。 























9.18 ”坐标 偏 移 与 转换 


361 


i. 
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第 一 个 格子 的 左上 角 坐 标 为 0。 以 列 为 例 ， 当 换算 方 格 中 心 坐标 与 第 一 个 方 格 的 距离 时 ， 需 要 先 减 
去 第 一 个 方 格 的 左边 界 与 中 心 坐标 的 距离 ， 然 后 整除 方 格 大 小 。 

同样 ,在 Achive 函数 中 判断 物体 是 否 到 达 方 格 的 判断 条 件 是 查看 方 格 的 中 心 是 否 和 物体 中 心 重合 ， 
如 果 重 合 ， 则 应 用 和 矩阵 坐标 与 窗口 坐标 的 转换 。 

函数 AchiveCtrl 的 作用 是 当 物 体 到 达 方 格 中 心 时 ， 更 新 物体 的 行列 坐标 。 

(2) 完成 了 坐标 更 新 之 后 , 还 要 查看 当前 指令 的 有 效 性 。 这 个 指令 是 在 物体 到 达 方 格 之 前 产生 的 ， 
在 物体 到 达 方 格 时 进行 判断 。 在 碰撞 检测 函数 Collision 中 ， 应 当先 填写 下 列 代码 : 


bool b = false; 
AchiveCtrl()// 更 新 行 、 列 的 数据 ， 若 是 “大 嘴 ”， 则 会 执行 PacMan ” 写 的 AchiveCtrl 函数 消 豆子 
// 判 断 指令 的 有 效 性 
if(dArray«O||dRow«Ol|dArray» MAPLENTH||dRow» MAPLENTH) 


b = true; 
) 
else if(Achive()) 
{ 
switch(twCommand) IPT WAE 


case LEFT: 
if(dArray>0&&!pStage->mapData[dRow][dArray-1]) // 判 断 下 一 个 格子 是 否 能 够 。 行 


b = true; /指令 无 效 
) 
break; 
/以 下 方向 的 判断 原理 相同 
case RIGHT: 
if(dArray«MAPLENTH-1&&!pStage-» mapData[dRow][dArray * 1]) 
t 
b = true; 
) 
break; 
case UP: 
ifi(dRow»0&&lpStage-»mapData[dRow-1][dArray]) 
t 
b = true; 
) 
break; 
case DOWN: 
if(dRow«MAPLENTH-1&&IpStage-»mapData[dRow-1][dArray]) 
{ 
b = true; 
) 


break; 
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tw =twCommand; // 没 撞墙 ， 指 令 成 功 





以 上 是 碰撞 检测 代码 中 检测 方向 指令 有 效 性 的 片段 。 首 先 更 新 行列 ， 若 物体 在 屏幕 外 ， 则 不 可 以 
改变 指令 。 之 后 判断 到 达 方 格 的 物体 指令 方向 的 下 一 个 格子 是 否 有 墙 存 在 。 若 有 墙 存 在 ， 则 指令 无 效 ; 
若 没有 撞墙 ， 则 指令 成 功 ， 将 方向 蔡 换 成 指令 的 方向 。 参 数 b 除了 可 判断 指令 是 否 有 效 外 ， 还 会 在 设 
定 人 工 智 能 时 用 到 ， 稍 后 加 以 说 明 。 

G) 之 后 物体 应 该 朝 着 当前 的 方向 继续 前 行 。 当 下 一 个 格子 有 墙壁 出 现时 ， 物 体 不 随 速 度 speed 
改变 位 置 。 


Switch(tw) ART BAH 
{ 
case LEFT: 
if(dArray>0&&!pStage->mapData[dRow][dArray-1]) /判断 下 一 个 格子 是 否 能 够 。 行 
{ 
b= true; 
break; /撞墙 了 
) 
if(point.x«MIN) 
{ 
point.x MAX; 
) 
point.x -= speed; 
break; 
/以 下 方向 的 判断 原理 相同 
case RIGHT: 
ifí(dArray«MAPLENTH-1&&!pStage-»mapData[dRow][dArray-1]) 
t 
b= true; 
break; /撞墙 了 
) 
point.x += speed; 
if(point.x» MAX) 
t 


point.x = MIN; 
) 
break; 
case UP: 
ifí(dRow»0&&lpStage-»mapData[dRow-1][dArray]) 
t 
b= true; 
break; /撞墙 了 


H 
if(point.y«MIN) 
1 


point.y = MAX; 
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point.y -=speed; 
break; 
case DOWN: 
if(dRow«MAPLENTH-1&&IpStage-»mapData[dRow1][dArray]) 
t 
b= true; 
break; /撞墙 了 
) 
point.y *-speed; 
if(point.y» MAX) 
t 


point.y = MIN; 
break; 
) 
return b; 


无 须 担心 物体 会 因此 卡 在 两 格子 中 间 而 不 能 行动 ， 因 为 在 此 之 前 已 经 更 新 过 行列 数据 ， 只 有 在 物 
体 到 达 格子 中 央 时 才 更 新 。MAX 和 MIN 分 别 代表 超出 地 图 边界 一 个 方 格 的 位 置 。 当 物体 超过 地 图 边 
界 到 达 地 图 外 时 ， 则 会 从 另 一 边 出 现 。 






9.5 制作 PacMan 


PacMan 程序 框架 初步 分 析 


制作 软件 之 前 ， 都 需要 对 软件 需求 作 较 为 全 面 的 分 析 。 游 戏 的 效果 如 图 9.1 一 图 9.3 所 示 。 

图 中 弧 形 的 物体 形象 地 体现 了 “大 嘴 ” 的 角色 ， 其 他 彩色 的 类 似 章鱼 的 物体 则 是 敌人 ， 过 道中 的 
小 圆圈 是 豆子 。 使 用 键盘 的 方向 键 对 游戏 进行 操作 ，“ 大 嘴 ” 路 过 并 可 以 “ 吃 掉 ” 豆 子 ， 但 触 碰 到 政 
人 则 会 失败 。 

以 面向 对 象 的 设计 方法 来 思考 ， 吃 豆子 中 的 所 有 会 移动 的 物体 具有 很 多 共同 的 特性 ， 列 举 如 下 : 
会 移动 。 
移动 分 为 上 、 下 、 左 、 右 4 个 方向 。 

碰 到 墙 和 障碍 物 会 停止。 

物体 拥有 自己 的 坐标 ， 这 些 物体 所 处 的 层面 是 相同 的 : 拥有 绘图 效果 ， 但 各 不 相同 ; 各 个 物 
体 都 有 自己 的 移动 准则 ， 例 如 ，“ 大 嘴 ” 是 玩家 控制 的 ， 而 敌人 则 是 依照 设 定好 的 人 工 智 能 
行动 。 

这 些 物体 完全 不 同 的 方面 有 : “大 嘴 ” 能 吃 豆 子 ， 敌 人 不 能 ; 敌人 能 够 抓 住 “ 大 嘴 ”，“ 大 嘴 ” 
不 能 够 抓 住 任何 物体 。 

依照 以 上 列 出 的 条 件 ， 可 以 设计 一 个 物体 类 ， 本 项 目 中 取 名 为 GObject， 它 是 游戏 中 可 移动 物体 的 
父 类 。 将 共性 放 入 父 类 中 ， 则 该 类 应 该 具有 的 属性 有 : 在 平面 地 图 上 所 处 位 置 、 自 身 的 朝向 和 碰撞 检 
测 。 现 在 用 代码 描述 这 个 父 类 〈 即 声明 成 员 ) 并 建立 一 个 方向 枚 举 : 


e. 


9.5.1 


ARRA 
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enum TWARDS { 
UP, IE 
DOWN, /下 
LEFT，// 左 
RIGHT, / 右 
OVER, /游戏 结束 
E 
class GObject 
{ 
public: 
GObject(int Row, int Array) 
{ 
Iit 
m nFrame = 1; 
// 当 前 关卡 
pStage = NULL; 
/ 行 
this->m_nRow = Row; 
/数组 
this->m_nArray = Array; 
/中心 位 置 
this-»m ptCenter.y = m nRow * pStage->LD + pStage->LD / 2; 
this-»m ptCenter.x = m nArray * pStage->LD + pStage->LD / 2; 


this-»m nX = m ptCenter.x; 
this-»m nY = m ptCenter.y; 
) 


/设置 位 置 

void SetPosition(int Row, int Array); 

/ 画 空白 

void DrawBlank(HDC &hdc); 

void virtual Draw(HDC &hdc) 20; /绘制 对 象 

void virtual action() = 0; /数据 变更 的 表现 


int GetRow(); 
int GetArray(); 


static GMap *pStage; /指向 地 图 类 的 指 ”， 设 置 为 ” 态 ， 使 所 有 类 对 象 ”能够 使 用 相同 的 地 图 


protected: 
intm nX; 
intm nY; 
/指令 缓存 
TWARDS m cmd; 
/中 心 坐标 
POINT m ptCenter; 
]| — RER 
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int m nRow; 

Ho 纵 坐 标 

int m. nArray; 

"n 度 

int m. nSpeed; 

/朝向 

TWARDS m dir; 

Jii 

int m nFrame; 

// 判 断 物 体 是 否 到 坐标 位 置 
bool Achive(); 

/碰撞 检测 ， 将 物体 摆 放 到 合理 的 位 置 
bool Collision(); 

/将 实 坐标 换 为 坐标 

int PtTransform(int k); 

/到 点 后 更 新 数据 

virtual void AchiveCtrl(); 


9.52 ”建立 游戏 循环 


游戏 中 需要 快速 地 显示 画面 和 更 新 游戏 状态 ， 因 此 需要 一 个 一 直 运行 的 循环 来 驱动 画面 和 状态 的 
更 新 。 在 创建 Win32 程序 时 ， 己 经 自动 生成 了 一 个 消息 循环 ， 主 要 用 来 处 理 Windows 系统 消息 。 修 改 
这 个 消息 循环 ， 使 它 既 可 以 处 理 Windows 消息 ， 又 可 以 作为 游戏 循环 使 用 。 

打开 pacman.cpp 文件 ， 找 到 : 


// 主 消息 循环 
while(GetMessage(&msg, nullptr, O, 0)) { 
if(ITranslateAccelerator(msg.hwnd, hAccelTable, &msg)) { 
TranslateMessage(&msg); 
DispatchMessage(&msg); 
) 
) 


上 面 的 代码 是 Visual Studio 2017 自动 生成 的 窗口 消息 循环 。 这 个 循环 中 使 用 的 GetMessage 函数 只 
有 在 有 消息 时 才 会 返回 ， 无 消息 时 阻塞 。 把 上 述 代 码 蔡 换 成 如 下 代码 : 


// 主 消息 循环 
bool bRunning = true; 
while(bRunning) { 
/获取 消息 
if(PeekMessage(&msg, NULL, 0, 0, PM_REMOVE)) { 
ifí(msg.message == WM QUIT) ( 
break; 
H 
TranslateMessage(&msg); 


e. 





$93 吃 豆 子 游戏 (Visual Studio 2017 实现 ) 





DispatchMessage(&msg); 
) 
) 





9.6 使 用 GDI 绘图 





| 视频 讲解 


后 面 的 开发 过 程 ， 需 要 绘制 各 种 图 形 ， 这 些 复杂 的 图 形 都 是 由 简单 的 图 形 组 合 而 
成 。 因 此 先 实践 一 下 这 些 “ 简 单 ” 图 形 绘制 函数 。 本 程序 中 使 用 Windows 系统 提供 的 GDI 库 完成 绘图 
工作 。GDI 库 包 含 一 组 函数 ， 可 以 完成 简单 的 绘制 工作 。 这 些 函 数 可 以 在 工程 中 直接 使 用 。 


9.6.1 EA 


点 是 最 简单 的 图 形 ， 理 论 上 可 以 使 用 点 组 合成 任意 图 形 。 画 点 的 函数 是 SetPixel， 该 函数 可 以 在 指 
定 坐 标的 位 置 画 一 个 指定 颜色 的 点 。 该 函数 使 用 方法 如 下 。 
在 pacman.cpp 文件 中 找到 : 


/获取 消息 
if(PeekMessage(&msg, NULL, 0, 0, PM_REMOVE)){ 
if(msg.message == WM QUIT) ( 
break; 
) 
TranslateMessage(&msg); 
DispatchMessage(&msg); 





) 
这 一 段 是 消息 循环 代码 ， 在 此 段 代 码 下 面 增加 如 下 代码 : 








// 画 点 测试 
( 
HDC hdc = ::GetDC(g. hwnd); // 获 得 设备 句柄 
SetPixel(hdc, rand() % WLENTH , rand() % WHIGHT, // 在 机 的 位 置 画 一 个 机 色 的 点 
RGB(rand() % 256, rand() % 256, rand() % 256)); 
zReleaseDC(g, hwnd, hdc); || 放 设 备 


) 
上 述 代码 实现 生成 随机 坐标 位 置 和 随机 颜色 值 ， 并 向 窗口 输出 点 的 功能 。 
9.62 EEH 


要 画 和 矩形 ， 可 以 画 4 条 直线 ， 首 尾 相 接 即 可 ， 读 者 感 兴 趣 可 以 自己 实验 。 这 里 使 用 另外 两 个 API 
BEH. 
回 Rectangle: 画 的 是 一 个 和 矩形 框 。 


9) 


C++ 项 目 开发 全 程 实录 (第 2 版 ) 


E FillRect: 填充 矩形 。 


下 面 尝试 画 一 个 空心 的 矩形 ， 一 个 填充 的 矩形 。 将 上 面 画 线 测试 部 分 的 代码 换 成 : 


// 画 矩形 测试 
í 
HDC hdc = ::GetDC(g hwnd); 


1 
Ires ime 
HPEN pen - CreatePen(PS SOLID, 2, RGB(255, 0, 0)); 
|| 择 画 笔 
HPEN oldPen = (HPEN)SelectObject(hdc, pen); 
/ 画 和 矩形 (EID) 
Rectangle(hdc, 100, 200, 300, 500); 
/恢复 画笔 
SelectObject(hdc, oldPen); 
DeleteObject(pen); 


/创建 画笔 
HBRUSH bBrush = CreateSolidBrush(RGB(0, 0, 255)); 
/填充 矩形 
RECT rect; 
rect.left = 50; 
rect.top = 270; 
rect.right = 150; 
rect.bottom = 370; 
FillRect(hdc, &rect, bBrush); 
DeleteObject(bBrush); 
) 


zReleaseDC(g hwnd, hdc); 
IPEA 1 毫秒 ， 不 然 画 得 太 快 ， 看 不 清 
Sleep(1); 


E 


9.6.3 EE 


程序 中 的 “豆子 ”和 “ 敌 军 ” 对 象 的 眼睛 部 分 用 到 了 画 圆 函数 ， 画 圆 函 数 的 原型 如 下 : 


BOOL Ellipse( 
_In_ HDC hdc, 
_In_ int nLeftRect, 
_In_ int nTopRect, 
.|In | int nRightRect, 
.In int nBottomRect 


六 


e. 
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其 中 ， 后 4 个 参数 为 左上 、 右 下 两 点 的 坐标 。 如 果 这 两 个 点 组 成 一 个 正方 形 ， 则 画 出 来 的 就 是 圆 ， 
如 果 是 长 方形 ， 则 画 出 来 的 是 椭圆 。 下 面 进行 测试 ， 将 上 面 画 和 矩形 测试 部 分 换 成 画 圆 测试 : 


// 画 圆 测试 

{ 
HDC hdc = ::GetDC(g_hwnd); 
/ 画 圆 : 后 4 个 数字 ， 构 成 一 个 正方 形 
Ellipse(hdc, 200, 150, 300, 250); 
/ 画 椭圆 
Ellipse(hdc, 200, 270, 340, 370); 
/ 画 椭圆 
Ellipse(hdc, 100, 100, 200, 150); 
zReleaseDC(g hwnd, hdc); 

) 


9.6.4 iBjs 


本 程序 中 的 玩家 对 象 是 一 个 不 断 吞 咬 的 “大 嘴 ” 形 象 ， 某 些 时 刻 ，“ 大 跨 ” 上 面 是 一 段 弧 线 ， 而 
不 是 整个 圆 。 可 以 认为 弧 型 是 椭圆 形 上 面 的 一 小 段 ， 画 弧 型 的 函数 原型 如 下 : 





BOOL Arc( 
_In_ HDC hdc, 
In. int nLeftRect, /左上 点 坐标 x 
_In_int nTopRect, /左上 点 坐标 y 
In... int nRightRect, // 右 下 点 坐标 x 
_In_int nBottomRect, // 右 下 点 坐标 y 
_In_ int nXStartArc, /始点 坐标 X 
_In_ int nYStartArc, /始点 坐标 y 
n... int nXEndArc, /| 结束 点 坐标 x 
In. int nYEndArc /| 结束 点 坐标 y 


X 


该 函数 的 nLeftRect, nTopRect, nRightRect 和 nBottomRect 参数 确定 了 一 个 矩形 ， 进 而 确定 一 个 
椭圆 ， 弧 形 为 该 椭圆 上 面 截取 的 一 段 。 后 面 4 个 参数 确定 了 该 段 的 起 始点 和 结束 点 。 
下 面 用 该 函数 输出 两 个 弧 形 。 将 上 面 画 圆 形 测试 部 分 换 成 : 





// 画 弧 形 测试 
t 
HDC hdc = ::GetDC(g hwnd); 
Arc(hdc, 100, 100, 200, 300 /矩形 左上 点 ， 右 下 点 
, 150, 200 l 点 


, 100, 200 /终点 (与 点 BPO HD 
y 


Arc(hdc, 0, 0, 100, 100 
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, 90, 100 

,90,0 

y 

zReleaseDC(g. hwnd, hdc); 
) 


9.6.5 HMA 


尝试 使 用 上 面 的 知识 ， 在 游戏 窗口 中 画 出 自己 控制 的 玩家 对 象 。 玩 家 对 象 的 形象 是 一 个 大 嘴 机 器 
人 ， 如 图 9.19 所 示 。 要 想 画 出 这 个 对 象 ， 只 需要 在 窗口 上 交 蔡 画 出 3 个 形状 即 可 。 这 3 个 形状 是 由 前 
面 讲 述 的 圆 、 直 线 和 弧 形 组 合 而 成 的 。 


DDO 


图 9.19 游戏 中 的 形状 


下 面 画 出 一 个 放大 版 的 玩家 对 象 。 绘 画 过 程 共 分 5 帧 ， 模 拟 闭 嘴 的 形状 、 张 嘴 的 形状 、 完 全 张 开 
嘴 的 形状 。 将 上 面 画 弧 型 测试 部 分 换 成 如 下 代码 部 分 : 


/| 综合 应 用 ， 画 一 个 大 嘴 对 象 
{ 
static DWORD dwTime = GetTickCount(); 
I4 ” 离 上 次 绘图 的 时 ”大 于 50 毫秒 时 ， 才 ” 行 本 次 绘制 
if(GetTickCount() - dwTime >= 50) ( 
dwTime = GetTickCount(); 
} 
else{ 
continue; 





} 
性 模拟 当前 的 帧 
本 对 象 一 共 5 帧 ， 每 一 帧 画 不 同 的 图 形 
Y 
static int iFrame = 0; 
++iFrame; 
if(iFrame >= 5) ( 
iFrame = 0; 


} 


/代表 对 象 的 中 心 位 置 
int x = 300, y = 300; 


// 对 象 的 半径 
intr= 100; 


/dc 对 象 句柄 
HDC hdc = ::GetDC(g hwnd); 





(n, 
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std::shared_ptr<HDC__> dc(::GetDC(g_hwnd), 0(HDC hdc) ( 
:ReleaseDC(g_hwnd, hdc); 

Y 

/获取 窗口 客户 区 大 小 

RECT rc; 

GetClientRect(g hwnd, &rc); 


// 创 建 画 刷 
std::shared_ptr<HBRUSH_ > br( 
::CreateSolidBrush(RGB(255, 255, 255)), 
I(HBRUSH hbr) ( 
::DeleteObject(hbr); 
D 


// 画 背景 ( 清 ”上 一 帧 所 画 内 容 ) 
FillRect(dc.get(), &rc, br.get()); 


#define PI (3.1415926f) /定义 圆周 率 的 值 
Switch(iFrame){ 

case 0: { 
Ellipse(dc.get(), x - r, y - r, X +r, y + r); // 画 一 个 圆 
MoveToEx(dc.get(), x - r, y, NULL); // 画 一 个 横 线 
LineTo(dc.get(), x, y); 
break; 

) 

case 1: { 
// 画 嘴 ARRA dE PI) 
int x0, y0; // 左 上 角 的 点 
int x1, y1; // 左 下 角 的 点 


X0 = x - static_cast<int>(r * sin(PI * 0.75f)); 
y0 = y + static_cast<int>(r * cos(PI* 0.75f)); 


X1 =x + static_cast<int>(r * sin(PI* 1.25f)); 
y1 = y - static_cast<int>(r * cos(PI * 1.25f)); 


SetPixel(dc.get(), x0, y0, RGB(255, 0, 0)); 
SetPixel(dc.get(), x1, y1, RGB(0, 255, 0)); 
SetPixel(dc.get(), x, y, RGB(0, 0, 0)); 


Arc(dc.get(), x-r,y-r,x+r,y+r // 画 一 个 半圆 和 一 条 竖 线 
,XxX1,y1 
,Xx0, y0); 

MoveToEx(dc.get(), x0, yO, NULL); // 画 竖 线 


LineTo(dc.get(), x, y); 
MoveToEx(dc.get(), x1, y1, NULL); 


LineTo(dc.get(), x, y); 
break; 
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} 
case 2: { 
Arc(dc.get(), x-r,y-r,x+r,y+r 
sm 
,X,Yy-T 


y 
// 画 竖 线 
MoveToEx(dc.get(), x, y - r, NULL); 
LineTo(dc.get(), x, y + r); 
break; 


} 
case 3:{ 
// 画 嘴 两 条 线 与 纵 ”偏离 PU4) 
int x0, y0; 
int x1, y1; 
X0 = x - static cast«int»(r * sin(PI* 0.75f)); 


y0 = y + static cast«int»(r * cos(PI * 0.75f)); 


X1 = x + static cast«int»(r * sin(PI * 1.25f)); 
y1 = y- static cast«int»(r * cos(PI * 1.25f)); 


SetPixel(dc.get(), x0, y0, RGB(255, 0, 0)); 
SetPixel(dc.get(), x1, y1, RGB(0, 255, 0)); 
SetPixel(dc.get(), x, y, RGB(0, 0, 0)); 
/ 画 一 个 半圆 和 一 条 竖 线 
Arc(dc.get(), x-r, y-r,x *r,y*r 

X1, y1 

, X0, y0); 


// 画 竖 线 
MoveToEx(dc.get(), x0, y0, NULL); 
LineTo(dc.get(), x, y); 


MoveToEx(dc.get(), x1, y1, NULL); 
LineTo(dc.get(), x, y); 
break; 


) 

case 4:( 
// 画 一 个 圆 
Ellipse(dc.get(), x - r, y - r, X +r, y + r); 
// 画 一 条 横 线 
MoveToEx(dc.get(), x - r, y, NULL); 
LineTo(dc.get(), x, y); 
break; 

) 

default: 


/ 画 一 个 半圆 和 一 条 坚 线 


IAME 的 点 开始 
// 到 圆 弧 下 ”的 点 结束 


// 左 上 角 的 点 
// 左 下 角 的 点 
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我 们 把 整个 过 程 分 成 3 部 分 ， 如 图 9.20 一 图 9.22 所 示 ， 然 后 反复 绘制 这 一 过 程 ， 最 后 看 起 来 的 动 
画 效果 就 是 玩家 控制 的 大 嘴 对 象 。 














图 9.20 绘制 玩家 形象 1 图 9.21 绘制 玩家 形象 2 
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9.7 地 图 及 关卡 制作 


本 游戏 场景 设 定 在 一 个 小 迷宫 中 ， 其 中 有 墙 、 门 和 豆子 。 玩 家 和 政 军 在 地 图 中 移动 ， 遇 到 墙 则 需 
要 变换 方向 ， 玩 家 遇 到 豆子 就 吃 掉 豆 子 ， 留 下 一 块 空白 区 域 。 这 些 功能 全 都 集中 在 地 图 类 中 。 游 戏 中 
一 共 设 定 了 3 个 类 似 的 地 图 ， 为 游戏 的 3 个 关卡 。 下 面 设 计 地 图 类 ， 并 设 定 三 关 的 数据 。 


9.7.1 地 图 类 设计 


本 程序 中 共 设 计 了 三 关 。 每 关 的 地 图 不 同 但 游戏 逻辑 相同 ， 因 此 需要 在 地 图 类 中 增加 一 个 父 类 ， 
并 扩展 出 3 个 子 类 ， 存 放 三 关 数 据 。 在 工程 中 增加 GMap 类 。 

增加 地 图 类 的 声明 。 用 于 声明 障碍 物 的 尺寸 、 豆 子 的 半径 、 地 图 的 初始 函数 、 地 图 中 障碍 物 的 数 
组 和 地 图 中 豆子 的 数组 等 。 打 开 GMap.h 文件 ， 输 入 : 








#pragma once 
#include <list> 


#define MAPLENTH 19 
#define P_ROW 10 
#define P_ARRAY 9 
#define E_ROW 8 
#define E_ARRAY 9 


using std::list; 


/抽象 类 GMap 
class GMap 
{ 


protected: 
static int LD; 
static int PD; 
void InitOP(); 
bool mapData|[MAPLENTH][MAPLENTH]; 


bool peaMapData|MAPLENTH]|MAPLENTH]; 


COLORREF color; 

public: 
void DrawMap(HDC &hdc); 
void DrawPeas(HDC &hdc); 
virtual -GMap(); 
GMap() 
1 
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/1/ ”地 图 大 小 

// 我 方 的 位 置 坐标 
// 我 方 的 位 置 坐标 
/ 政 方 的 位 置 坐标 
/ 政 方 的 位 置 坐标 


l 碍 物 尺寸 
// 豆 子 的 半径 
/ 政 我 双方 出 现 位 置 没有 豆子 出 现 
I BH ”地 图 点 
/豆子 ”地 图 点 
// 地 图 中 墙 的 色 





/绘制 地 图 
/绘制 豆子 
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} 
friend class GObject; /允许 物体 类 使 用 直线 的 ”点 和 终点 的 信息 做 碰撞 检测 
friend class PacMan; lki "AW" i ITEE 

k 


97.2 第 一 关 地 图 的 设计 


TE GMap 文件 中 接着 输入 第 一 关 地 图 的 声明 。 第 一 关 地 图 的 类 名 是 Stage 1, 该 类 为 地 图 类 GMap 
的 子 类 ， 类 中 声明 了 静态 数组 ， 该 数组 中 包含 地 图 的 初始 数据 。 具 体 代码 如 下 : 


// 第 一 关 
class Stage_1 : public GMap 
{ 
private: 

bool static initData[MAPLENTH][MAPLENTH]; /地 图 数据 
public: 

Stage_1(); 

M 





97.3 ”第 二 关 地 图 的 设计 


在 GMap.h 文件 中 接着 输入 第 二 关 地 图 的 声明 。 第 二 关 地 图 的 类 名 是 Stage_2, 该 类 为 地 图 类 GMap 
的 子 类 ， 类 中 声明 了 静态 数组 ， 该 数组 中 包含 地 图 的 初始 数据 。 


/第 二 关 
class Stage 2 : public GMap 
{ 
private: 
bool static initDataIMAPLENTH][MAPLENTH] /地 图 数据 
public: 
Stage 20; 
E 





974 第 三 关 地 图 的 设计 


在 GMap.h 文件 中 接着 输入 第 三 关 地 图 的 声明 。 第 三 关 地 图 的 类 名 是 Stage 3, 该 类 为 地 图 类 GMap 
的 子 类 ， 类 中 声明 了 静态 数组 ， 该 数组 中 包含 地 图 的 初始 数据 。 


// 第 三 关 
class Stage_3 : public GMap 
t 


private: 


C++ 项 目 开发 全 程 实录 (第 2 版 ) 





bool static initData[MAPLENTH][MAPLENTH]; // 地 图 数据 
public: 

Stage_3(); 
X 


9.7.5 地 图 类 的 实现 


CD 下 面 是 地 图 及 关卡 类 的 具体 实现 。 打 开 GMap.cpp 文件 ， 输 入 以 下 代码 。 其 中 ，LD 为 墙 的 
宽度 ，PD 为 豆子 的 直径 ， 这 两 个 是 静态 成 员 ， 需 要 在 这 里 进行 初始 化 。 





#include "stdafx.h" 

stinclude "GMap.h" 

int GMap::LD = 36; // 墙 的 宽度 
int GMap::PD = 3; // 豆 子 的 直径 





(2) 地 图 中 的 peaMapData 数组 为 豆子 的 数据 ， 玩 家 刚 出 现 的 位 置 不 需要 有 豆子 ， 因 此 需要 把 数 
组 中 这 个 位 置 的 元 素 设 为 false， 代 表 此 处 没有 豆子 。 在 GMap.cpp 文件 最 下 方 输入 以 下 代码 : 





// 政 我 双方 出 现 位 置 没有 豆子 出 现 
void GMap::InitOP() 


{ 
peaMapData[E_ROWI[E_ARRAY] = false; // 政 方位 置 没 有 豆子 
peaMapData[P_ROWI[P_ARRAY] = false; // 玩 家 位 置 没有 豆子 
} 





(3) 类 的 成 员 变量 mapData 存储 了 墙 体 的 数据 。 遍 历 这 个 数组 ， 当 发 现 该 处 是 墙壁 时 ， 在 此 位 置 
会 看 到 一 个 矩形 模拟 墙 体 。 在 GMap.cpp 文件 最 下 方 接着 输入 绘制 地 图 函数 : 





void GMap::DrawMap(HDC &memDC) 


HBRUSH hBrush = CreateSolidBrush(color); 
for(int i = 0; i < MAPLENTH; i++) ( 
for(int j = 0; j < MAPLENTH; j++) { 
/绘制 墙壁 
if(ImapData[illj]) { 
RECT rect; 
rect.left = j * LD; 
rect.top = i * LD; 
rectright = + 1) * LD; 
rect.bottom = (i + 1) * LD; 
FillRect(memDC, &rect, hBrush); /填充 矩形 区 域 ， 模 拟 墙 体 


一 
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DeleteObject(hBrush); // 删 ” 画 刷 对 象 
GT o 


(4) 成 员 变 量 peaMapData 存储 的 是 豆子 数据 。 遍 历 该 数组 ， 如 果 发 现 该 处 元 素 为 真 ， 则 调用 画 
圆 的 函数 画 豆子 。 在 GMap.cpp 文件 最 下 方 接着 输入 绘制 “豆子 ”的 函数 代码 : 





void GMap::DrawPeas(HDC &hdc) // 画 豆子 函数 
t 
for(int i = 0; i < MAPLENTH; i++) { J| 历 整个 数组 
for(int j = 0; j < MAPLENTH; j++) { 
if(peaMapData[i][j]) { // 如 果 该 处 有 豆子 
Ellipse(hdc, (LD / 2 - PD) + j * LD, Ign: 模拟 豆子 
(LD/2-PD)*i*LD, 
(LD/2+ PD) * j* LD, 


(LD/2+ PD)*i* LD); 





9.7.6 游戏 藏 后 的 实现 


该 游戏 虽然 看 起 来 简单 ， 实 际 上 由 于 豆子 很 多 ， 敌 军 速度 很 快要 想 轻松 过 关 还 是 有 一 定 难 度 的 。 
为 了 帮助 玩家 快速 通关 ， 设 计 一 个 游戏 的 后 门 : 在 按 下 B 键 时 ， 直 接 通 过 当前 关 。 在 GMap.cpp 文件 
最 下 方 输入 后 门 代码 如 下 : 


// 如 果 按 下 B ”， 直 接 关 
if(GetAsyncKeyState('B') & 0x8000) { 
MessageBoxA(NULL, "无 意 中 您 发 现 了 秘笈 " ", MB. OK); 
for(int i = 0; i < MAPLENTH; i++) { 
for(int j = 0; j < MAPLENTH; j++) { 
peaMapData[i][j] = false; 
) 
} 
} 
} 


接着 输入 析 构 函数 : 


GMap::~GMap() 








Boo o o o 
游戏 隐藏 后 门 的 运行 效果 如 图 9.23 所 示 。 
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.23 ”游戏 后 门 的 运行 效果 


9.7.7 第 一 关 地 图 的 实现 


在 GMap.cpp 文件 最 下 方 输入 第 一 关 地 图 相关 函数 及 数据 ， 代 码 中 定义 了 A 为 真 ，B 为 假 ， 其 中 
真 的 位 置 代表 该 处 有 豆子 ， 假 的 位 置 代表 该 处 是 墙 : 


JStage_1 成 员 定 义 
#define A true Itrue: 表示 豆子 
#define B false /ffalse: 表示 墙壁 
bool Stage_1::initData[MAPLENTH][MAPLENTH] ={ 

B, B, B, B, B, B, B, B, B, A, B, B, B, B, B, B, B, B, B, //0 

B, A, A, A, A, A, A, A, A, A, A, A, A, A, A, A, A, A,B, //1 

B, A, A, B, A, A, B, B, B, A, B, B, B, A, A, B, A, A,B, /2 

B, A, B, B, A, A, A, A, A, A, A, A, A, A, A, B, B, A,B, /3 

B, A, B, A, A, A, B, B, B, A, B, B, B, A, A, A, B, A,B, //4 

B, A, B, A, A, A, A, A, A, A, A, A, A, A, A, A, B, A,B, /5 
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B, A, A, A, A, A, B, B, A, A, A, B, B, A, A, A, A, A,B, /6 
B, A, B, A, A, A, A, A, A, A, A, A, A, A, A, A, B, A,B, /7 


B, A, B, A, A, A, A, A, B, A, B, A, A, A, A, A, B, A,B, /8 
A, A, A, A, A, A, A, A, B, B, B, A, A, A, A, A, A,A, A, /9 
B, A, B, A, A, A, A, A, A, A, A, A, A, A, A, A, B, A,B, //10 
B, A, B, A, A, B, A, A, A, A, A, A, A, B, A, A, B, A,B, /h1 
B, A, B, A, B, B, B, A, A, A, A, A, B, B, B, A, B, A,B, //12 
B, A, A, A, A, B, A, A, A, A, A, A, A, B, A, A, A, A,B, /13 
B, A, B, B, A, A, A, A, A, A, A, A, A, A, A, B, B, A,B, /14 
B, A, A, A, A, A, A, A, A, A, A, A, A, A, A, A, A, A,B, /15 
B, A, A, A, A, B, B, B, A, B, A, B, B, B, A, A, A, A,B, //16 
B, A, A, A, A, B, A, A, A, A, A, A, A, B, A, A, A, A,B, JUH17 
B, B, B, B, B, B, B, B, B, A, B, B, B, B, B, B, B, B, B, //18 

k 

#undef A 

#undef B 

Stage_1::Stage_1() 

{ 
color = RGB(140, 240, 240); // 墙 的 € 


for(int i = 0; i < MAPLENTH; i++) ( 
for(int j = 0; j < MAPLENTH; j++) { 
this-»mapData[i][j] 7 this->initDatafi]0]; 
this-»peaMapData[i][j] = this-»initData[i][j; 
) 


) 
/ 政 我 双方 出 现 位 置 没有 豆子 出 现 
this-»InitOP(); 

) 





第 一 关 地 图 效果 如 图 9.24 所 示 。 











图 9.24 第 一 关 地 图 
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9.7.8 第 二 关 地 图 的 实现 


在 GMap.cpp 文件 最 下 方 接着 输入 第 二 关 地 图 相关 函数 及 数据 ， 代 码 中 定义 了 A 为 真 ，B 为 假 ， 
其 中 真 的 位 置 代表 该 处 有 豆子 ， 假 的 位 置 代表 该 处 是 墙 : 


/Stage_2 成 员 定义 

#define A true 

stdefine B false 

bool Stage 2:initbatagMAPLENTH][MAPLENTH] = ( 

B, B, B, B, B, B, B, B, B, A, B, B, B, A, B, B, B, B, B, /0 
A, A, A, A, A, A, A, B, A, A, B, A, A, A, B, A, B, A, A, //1 
B, A, A, A, B, A, A, B, A, A, B, A, B, A, B, A, B, A, B, //2 
, B, B, A, B, A, A, B, B, A, B, A, B, A, B, A, B, B, B, //3 
, A, A, A, A, A, A, A, A, A, A, A, B, B, B, A, A, A, B, //4 
, A, A, B, A, A, A, A, A, A, A, A, A, A, A, A, A, A, B, //5 
, A, A, B, A, A, A, B, B, B, B, B, B, A, A, B, A, A, B, //6 
, A, A, B, A, B, A, A, A, A, A, A, A, A, A, B, A, A, B, /7 
, A, A, B, A, B, A, A, B, A, B, A, A, B, A, B, A, A, B, //8 
, A, A, B, A, B, A, A, B, B, B, A, A, B, A, B, A, A, A, //9 
, A, A, B, A, B, A, A, A, A, A, A, A, B, A, A, A, A, B, //10 
, A, A, B, A, A, A, B, B, B, B, B, A, B, A, A, A, A, B, //11 
, A, A, A, A, A, A, A, A, A, A, A, A, A, A, A, A, A, B, //12 
, A, A, A, B, B, B, B, B, B, B, A, A, A, A, A, A, A, B, //13 
, A, A, A, A, A, A, A, A, A, A, A, A, B, A, A, A, A, B, //14 
, B, B, B, B, A, A, A, A, B, B, B, A, B, A, A, A, A, B, //15 
, A, A, A, B, B, B, A, A, A, A, B, A, B, B, B, A, A, B, //16 
, A, A, A, B, A, A, A, A, A, A, B, A, A, A, B, A, A, A, /H7 
, B, B, B, B, B, B, B, B, A, B, B, B, A, B, B, B, B, B, //18 


UJ 2» (D QU UJ UJ CU C0 CD 2» vvv C) CD (D 


k 
#undef A 
#undef B 
Stage_2::Stage_2() 
{ 
color = RGB(240, 140, 140); // 墙 的 色 
for(int i = 0; i < MAPLENTH; i++) { 
for(int j = 0; j < MAPLENTH; j++) ( 
this-»mapData[i][j] = this-initData[i][j]; 
this-»peaMapData[i][j] = this-»initData[i][j; 
) 
) 
/ 政 我 双方 出 现 位 置 没有 豆子 出 现 
this-»InitOP(); 
} 


第 二 关 地 图 效果 如 图 9.25 所 示 。 


e 
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9.7.9 第 三 关 地 图 的 实现 


在 GMap.cpp 文件 最 下 方 接着 输入 第 三 关 地 图 相关 函数 及 数据 ， 代 码 中 定义 了 A 为 真 ，B 为 假 ， 
其 中 真 的 位 置 代表 该 处 有 豆子 ， 假 的 位 置 代表 该 处 是 墙 : 


JStage_3 成 员 定 义 

#define A true 

#define B false 

bool Stage_3::initData[MAPLENTH][MAPLENTH] = ( 


B, B, B, B, B, B, B, B, B, A, B, B, B, B, B, B, B, B, B, //0 
A, A, A, A, A, A, A, A, A, A, A, A, A, A, A, A, A, A, A, //1 
B, A, A, B, A, A, B, B, B, B, B, B, B, A, A, A, B, A, B, //2 
B, A, B, B, A, A, A, A, A, A, A, A, B, A, A, A, B, A, B, //3 
B, A, B, A, A, A, B, B, B, B, B, B, B, A, A, A, B, A, B, //4 
B, A, B, A, B, B, B, A, A, A, A, A, B, B, B, A, B, A, B, //5 
B, A, A, A, B, A, B, A, A, A, A, A, A, A, A, A, B, A, B, //6 
B, A, B, A, B, A, A, A, A, A, A, A, A, B, A, A, B, A, B, /7 


B, A, B, A, B, B, A, A, B, A, B, A, A, B, A, A, B, A, B, //8 
B, A, A, A, A, B, A, A, B, B, B, A, A, B, A, A, B, A, B, //9 
B, A, B, A, A, B, A, A, A, A, A, A, A, B, A, A, A, A, B, //10 
B, A, B, A, A, B, A, A, A, A, A, A, B, B, B, A, B, A, B,//11 
B, A, B, A, A, B, A, B, B, B, B, B, B, A, B, A, B, A, B, //12 
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B, A, B, A, A, B, A, A, A, A, A, A, A, A, B, A, B, A, B, //13 
B, A, B, B, A, B, B, B, B, B, B, A, B, A, B, A, B, A, B, //14 
B, A, A, A, A, B, A, A, A, A, A, A, B, A, B, A, B, A, B, //15 
B, B, B, B, B, B, A, A, B, B, B, A, B, A, B, A, B, A, B, //16 
A, A, A, A, A, A, A, A, B, A, A, A, A, A, B, A, A, A, A, //17 
B, B, B, B, B, B, B, B, B, A, B, B, B, B, B, B, B, B, B, //18 
E 
#undef A 
#undef B 
Stage_3::Stage_3() 
{ 
color = RGB(100, 44, 100); IBS & 
for(int i = 0; i < MAPLENTH; i++) ( 
for(int j = 0; j < MAPLENTH; j++) ( 
this-»mapData[i][j] = this-»initData[i][j]; 
this-»peaMapData[i][j] = this-»initData[i][]; 
} 


} 
/ 政 我 双方 出 现 位 置 没 有 豆子 出 现 
this->InitOP(); 

} 





第 三 关 地 图 效果 如 图 9.26 所 示 。 
Ir p E ls 


























9.26 第 三 关 地 图 
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9.7.10 ”使 用 地 图 


打开 pacman.cpp 文件 ， 增 加 包含 头 文件 GMap.h 的 代码 在 ##nclude "pacmanh" 一 行 下 面 插入 
#include "GMap.h") 。 

找到 “HACCEL hAccelTable = LoadAccelerators(hInstance, MAKEINTRESOURCE(IDC PACMAN));" 
一 行 ， 把 此 行 以 下 《〈 不 包括 本 行 ) 直到 函数 尾部 的 内 容 全 部 删除 ， 增 加 以 下 代码 : 


/当前 的 关卡 

int s_n = 0; //[0, 1, 2] 

/地 图 

GMap *MapArray[STAGE_COUNT] = ( new Stage_1(), new Stage 2(), new Stage 3() ); 


MSG msg; 
// 主 消息 循环 


bool bRunning = true; 
while(bRunning && s_n < STAGE_COUNT){ 


/获取 消息 
if(PeekMessage(&msg, NULL, 0, 0, PM. REMOVE)) { 
if(msg.message == WM, QUIT) ( INM QUIT 消息 ， “出 循环 
break; 
) 
TranslateMessage(&msg); /翻译 消息 
DispatchMessage(&msg); /分 发 消息 


) 
HDC hdc = ::GetDC(g hwnd); 


MapArray[s. n]-»DrawPeas(hdc); // 画 豆子 
MapArray[s_n]->DrawMap(hdc); // 画 地 图 

} 

::ReleaseDC(g_hwnd, hdc); || 放 设 备 资源 


) 


return (int) msg.wParam; 


上 述 代码 中 定义 了 一 个 地 图 对 象 数组 MapArray， 并 在 每 次 消息 循环 中 调用 地 图 的 绘制 方法 ， 分 别 
绘制 地 图 。 


9.8 游戏 可 移动 对 象 设 计 与 实现 


9.8.1 可 移动 对 象 的 设计 
游戏 中 的 可 移动 对 象 包括 敌 军 和 玩家 对 象 ， 同 属于 游戏 中 可 移动 、 可 绘制 的 对 象 ， 因 此 可 以 抽象 





出 一 个 共同 的 父 类 GObject 来 存放 两 种 对 象 的 相同 逻辑 和 数据 。 在 工程 中 增加 GObject 类 。 
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打开 GObject.h 文件 ， 删 除 原来 的 内 容 ， 输 入 : 


stinclude "stdafx.h" 
stinclude «time.h» 


stinclude "GMap.h" 

sidefine PLAYERSPEED 6 

#define ENERMYSPEED 4 

stdefine LEGCOUNTS 5 

stdefine DISTANCE 10 

stdefine BLUE ALERT 8 

#define D OFFSET 2 

#define RD (DISTANCE + D OFFSET) 


enum TWARDS ( 


k 


UP, 
DOWN, 
LEFT; 
RIGHT, 
OVER, 


class GObject 


( 


public: 


GObject(int Row, int Array) 
t 
m nFrame - 1; 
pStage = NULL; 
this-»m nRow = Row; 
this-»m nArray = Array; 
// 中 心 位 置 


IRR E 
IRA 度 

// 政 人 腿 的 数 
// 图 形 范围 

// 蓝 色 警戒 范围 
/| 绘图 误差 
/绘图 范围 12 


/方向 枚 举 
It 
/下 
/ 左 
Ir& 
// 游 戏 结束 


// 物 体 类 : 大 嘴 和 敌人 的 父 类 


IIa 
/当前 关卡 
IKF 

/人 数组 


this->m_ptCenter.y = m nRow * pStage->LD + pStage->LD / 2; 
this->m_ptCenter.x = m nArray * pStage->LD + pStage->LD / 2; 


this->m_nX = m_ptCenter.x; 
this->m_nY = m_ptCenter.y; 
} 


void SetPosition(int Row, int Array); 
void DrawBlank(HDC &hdc); 

void virtual Draw(HDC &hdc) = 0; 
void virtual action() = 0; 


int GetRow(); 
int GetArray(); 


static GMap *pStage; /指向 地 图 类 的 指 “， 设 置 为 ” 态 ， 使 所 有 子 类 对 象 ”能够 使 用 相同 的 地 图 


// 设 置 位 置 

// 画 空白 

// 绘 制 对 象 

// 数 据 变更 的 表现 





e. 
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protected: 
int m nX; 
int m nY; 
TWARDS m cmd; 
POINT m ptCenter; 
intm nRow; 
int m nArray; 
int m nSpeed; 
TWARDS m dir; 
int m nFrame; 
bool Achive(); 
bool Collision(); 
int PtTransform(int k); 
virtual void AchiveCtrl(); 
X 


/指令 缓存 

/中 心 坐标 

1/1/ RER 

UO MER 

l B 

// 朝 向 

DEA 

// 判 断 物体 是 否 到 坐标 位 置 
/碰撞 检测 ， 将 物体 摆 放 到 合理 的 位 置 
/将 实 坐标 换 为 ”坐标 
/到 点 后 更 新 数据 





上 面 代码 即 声明 GObject 类 的 代码 ， 其 中 定义 了 共同 属性 ， 如 坐标 、 速 度 和 指令 等 ; 还 定义 了 共 
同 函数 ， 如 画 空白 和 设置 位 置 等 。 注 意 其 中 的 含有 virtual 关键 字 的 函数 声明 ， 下 面 的 子 类 将 会 根据 各 
自 不 同 的 逻辑 覆盖 该 函数 。 


9.8.2 玩家 对 象 的 设计 


在 GObject.h 文件 中 接着 输入 玩家 对 象 的 声明 。 玩 家 对 象 PacMan 为 GObject 的 子 类 。 该 类 扩展 了 
父 类 的 功能 ， 实 现 了 Draw 函数 和 action 函数 ， 其 中 Draw 函数 负责 绘制 自己 ，action 函数 负责 本 类 的 
行为 。 本 类 的 构造 函数 中 ， 设 置 了 本 类 的 初始 速度 为 PLAYERSPEED， 设 置 了 朝向 为 LEFT。 具 体 代 
码 如 下 : 





class PacMan : public GObject 
{ 
protected: 

virtual void AchiveCtrl(); 


public: 
POINT GetPos(); 
bool IsOver(); 
bool IsWin(); 
void Draw(HDC &hdc); 


void SetTwCommand(TWARDS command); 


PacMan(int x, int y) : GObject(x, y) 
t 
this-»m nSpeed - PLAYERSPEED; 
m cmd = m dir = LEFT; 
) 
void action(); 
void SetOver(); 


/玩家 对 象 


l 写 虚 函数 


/游戏 是 否 结束 
/玩家 是 否 赢得 游戏 

// 负 责 绘制 自己 
/设置 玩家 下 一 步 指令 

// 构 ”函数 ， 产 生 新 对 象 时 调用 


/设置 玩家 E 


/玩家 的 动作 函数 
/设置 游戏 结束 函数 
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9.8.3 ”可 移动 对 象 的 实现 


下 面 是 GObject 对 象 的 实现 代码 。 主 要 功能 包括 以 下 几 种 。 
(1) 位 置 调整 函数 AchiveCtl: 将 物体 摆 放 到 合理 的 位 置 。 
(2) DrawBlank: 绘制 空白 区 域 。 

(3) Collision: 碰撞 检测 。 
打开 GObject.cpp 文件 ， 输 入 GObject 对 象 实 现代 码 : 





#include "stdafx.h" 
stinclude "GObject.h" 


IIGOject 成 员 定义 
GMap *GObject::pStage = NULL; 


int GObject::GetRow() I! 回 行 
{ 


return m nRow; 


) 


int GObject::GetArray() || 回 数组 地 址 
í 
return m_nArray; 
) 
int GObject::PtTransform(int k) /坐标 RAR 


return (k - (pStage->LD) / 2) / pStage->LD; 


) 
// 判 断 物体 是 否 到 坐标 位 置 
bool GObject:Achive() 


int n = (m ptCenter.x - pStage->LD / 2) 96 pStage->LD; /| 计算 x 坐标 的 余数 
int k = (m ptCenter.y - pStage->LD / 2) % pStage->LD; /计算 y 坐标 的 余数 
bool | = (n == 0 && k == 0); // 如 果 两 个 余数 ”为 0， 说明 到 ”中 心 位 置 


return I; 


) 
/到 坐标 后 更 新 数据 
void GObject::AchiveCtrl() 


t 
if(Achive()) ( [EE ESI 坐标 
m_nArray = PtTransform(m ptCenter.x); /更 新 列 
m_nRow = PtTransform(m_ptCenter.y); /更 新 行 


) 
) 


void GObject::DrawBlank(HDC &hdc) 


e. 
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í 
/申请 资源 ， 并 交 给 智能 指 ” 处理 
HBRUSH hbr = ::CreateSolidBrush(RGB(255, 255, 255)); 。”// 创 建 画 刷 ， 绘 制 矩形 函数 要 求 使 用 


std::shared_ptr<HBRUSH> phbr(&hbr, 0(auto hbr) ( /把 资源 交 给 智能 指 RES, Bub 
DeleteObject(*hbr); /离开 DrawBlank 函数 时 ， 会 自动 调用 放 资 源 

Y 

RECT rect; 


rect.top = m nY - RD; 

rect.left = m nX - RD; 

rect.right = m nX + RD; 

rect.bottom = m nY + RD; 

FillRect(hdc, &rect, *phbr); /绘制 矩形 
) 


/设置 中 心 位 置 
void GObject::SetPosition(int Row, int Array) 
{ 
m nRow = Row; 
m nArray - Array; 
this-»m ptCenter.y = m nRow * pStage->LD + pStage->LD / 2; 
this-»m ptCenter.x = m nArray * pStage->LD + pStage->LD / 2; 
) 


[iri] 
bool GObject::Collision() 


{ 
bool b = false; 


/更 新 行 和 列 的 数据 ， 若 是 大 嘴 ， 则 会 执行 PacMan S9 AchiveCtrl 函数 消 豆子 
AchiveCtrl(); 
// 判 断 指令 的 有 效 性 
if(m_nArray < 0 || m nRow < 0 || m nArray > MAPLENTH - 1 
|| m nRow > MAPLENTH - 1){ 
b = true; 
) 
else if(Achive()) ( 
switch(m cmd) ( // 判 断 行 ” 的 方向 
case LEFT: // 如 果 朝 向 为 左 
/判断 下 一 个 格子 是 否 能 够 。 行 
if(m_nArray > 0 && 
IpStage->mapData[m_nRow][m_nArray - 1]) { 
b = true; /撞墙 了 
} 
break; 
/以 下 方向 的 判断 原理 相同 
case RIGHT: /如 果 朝 向 为 右 
if(m_nArray < MAPLENTH - 1 && 
IpStage-»mapData[m nRow][m nArray + 1]) ( 
b = true; /撞墙 了 
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} 
break; 
case UP: // 如 果 朝 向 为 上 
if(m_nRow > 0 && 
IpStage->mapData[m_nRow - 1][m nArray]) { 
b = true; /撞墙 了 
} 
break; 
case DOWN: /如 果 朝 向 为 下 
if(m nRow < MAPLENTH - 1 && 
IpStage-»mapData[m nRow + 1][m nArray]) { 


b = true; /撞墙 了 
) 
break; 
) 
if(Ib) ( 
m dir = m cmd; // 没 撞墙 ， 指 令 成 功 
} 
} 
/依照 真实 的 方向 位 移 


m nX- m ptCenter.x; 
m nY = m ptCenter.y; 
int MAX = pStage-»LD * MAPLENTH + pStage-^LD / 2; 
int MIN = pStage->LD / 2; 
switch(m dir) ( // 判 断 行 ” 的 方向 
case LEFT: 
/判断 下 一 个 格子 是 否 能 够 fT 
if(m_nArray > 0 && 
IpStage-»mapData[m nRow][m nArray - 1]) ( 
b = true; 
break; /撞墙 了 
) 
m ptCenter.x - m nSpeed; 
ifm ptCenter.x < MIN) ( 
m ptCenter.x = MAX; 
) 


break; 
/以 下 方向 的 判断 原理 相同 
case RIGHT: 
ifírm nArray < MAPLENTH - 1 && 
IpStage-»mapData[m nRow][m nArray + 1]) ( 
b = true; 
break; /撞墙 了 
} 
m ptCenter.x += m nSpeed; 
ifím ptCenter.x > MAX) ( 
m ptCenter.x = MIN; 
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break; 
case UP: 

ifím nRow » 0 && 
IpStage-»mapData[m nRow - 1][m nArray]) { 
b = true; 
break; /撞墙 了 

H 

m ptCenter.y -= m nSpeed; 

if(m ptCenter.y < MIN) ( 
m ptCenter.y = MAX; 

} 

break; 

case DOWN: 

if(m_nRow < MAPLENTH - 1 && 
IpStage-»mapData[m nRow + 1][m nArray]) ( 
b = true; 
break; /撞墙 了 

) 

m ptCenter.y *- m nSpeed; 

if(m ptCenter.y > MAX) ( 
m ptCenter.y = MIN; 

) 

break; 

) 
return b; 


) 





9.8.48 玩家 对 象 的 实现 


下 面 是 玩家 对 象 的 实现 代码 , 这 里 增加 了 判断 游戏 是 否 胜利 的 函数 Is Win, 判断 逻辑 是 遍历 当前 地 
图 的 数据 ， 查 看 豆子 的 数量 ， 如 果 发 现 至 少 还 有 1 个 豆子 ， 则 没有 胜利 。 同 时 也 实现 Draw 方法 ， 该 方 
法 负责 绘制 玩家 对 象 自己 ， 在 GObject.h 文件 中 继续 输入 以 下 代码 : 


//PacMan 成 员 定 义 
void PacMan::AchiveCtrl() 


GObject::AchiveCtrl(); 
if(Achive()) { 
if(m nRow >= 0 && m nRow < MAPLENTH && 
m nArray >= 0 && m nArray < MAPLENTH)( // 止 数组 界 
if(pStage-»^peaMapData[m nRow][m nArray]) ( 
pStage-»peaMapData[m nRow][m nArray] = false; 
) 
J 
} 
} 
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void PacMan::action() 
{ 
Collision(); || 行 碰撞 检测 
) 
void PacMan::SetTwCommand(TWARDS command) 


m cmd = command; // 设 置 移 动 方向 
} 


bool PacMan::IsOver() 


return m dir == OVER; /判断 游戏 是 否 结束 
} 


bool PacMan::IsWin() 


for(int i = 0; i <= MAPLENTH; i++) ( 
for(int j = 0; j <= MAPLENTH; j++) { 


if(pStage-»peaMapData[i][j] == true) ( /是 豆子 
return false; /存在 任意 一 个 豆子 ， 没 取得 胜利 
) 
) 
) 
return true; /没有 豆子 ， 胜 利 
) 
POINT PacMan::GetPos() 
{ 
return m_ptCenter; I 回 对 象 的 中 心 位 置 
) 
void PacMan::SetOver() 
( 
m dir = OVER; /设置 游戏 结束 


void PacMan::Draw(HDC &memDC) 


ifm dir == OVER) { 
/游戏 结束 ， 什 么 也 不 干 


else iftm_nFrame 96 2 == 0) ( /第 4 帧 动画 与 第 2 帧 动画 : 张嘴 形状 
int x1 = 0, x2 = 0, y1 = 0, y2 = 0; 
int offsetX = DISTANCE / 2 + D OFFSET; IZZA X 
int offsetY = DISTANCE / 2 + D OFFSET; IEZA Y 
switch(m_dir) { 
case UP: /向 上 移动 


x1 = m_ptCenter.x - offsetX; 
x2 = m_ptCenter.x + offsetX; 





e. 
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y2 = y1 = m_ptCenter.y - offsetY; 
break; 

case DOWN: 
x1 = m_ptCenter.x + offsetX; 
x2 = m_ptCenter.x - offsetX; 
y2 = y1 = m ptCenter y + offsetY; 
break; 

case LEFT: 
x2 = x1 = m_ptCenter.x - offsetX; 
y1 = m_ptCenter.y + offsetY; 
y2 = m_ptCenter.y - offsetY; 
break; 

case RIGHT: 
x2 = x1 = m_ptCenter.x + offsetX; 
y1 = m_ptCenter.y - offsetY; 
y2 = m ptCenter.y + offsetY; 
break; 


// 画 出 弧 型 分 


// 向 下 移动 


// 向 左 移动 


// 向 右 移动 


Arc(memDC, m ptCenter.x - DISTANCE, m ptCenter.y - DISTANCE, 
m ptCenter.x * DISTANCE, m ptCenter.y * DISTANCE, 


x1, y1, 
x2, y2); 


// 画 直线 y, TRIB REXUCAOU SC  — 1 ABE ROTE SR 


MoveToEx(memDC, x1, y1, NULL); 


LineTo(memDC, m ptCenter.x, m ptCenter.y); 


LineTo(memDC, x2, y2); 


else if(lm nFrame 96 3 == 0) { 


// 第 三 帧 动画 : 画 出 整个 圆 形 


Ellipse(memDC, m ptCenter.x - DISTANCE, m ptCenter.y - DISTANCE, 
m ptCenter.x * DISTANCE, m ptCenter.y * DISTANCE); 


) 


else( 
int x1 = 0, x2 = 0, y1 = 0, y2 = 0; 
switch(m_dir) ( 
case UP: 
x1 = m_ptCenter.x - DISTANCE; 
x2 = m_ptCenter.x + DISTANCE; 
y2 = y1 = m_ptCenter.y; 
break; 
case DOWN: 
x1 = m_ptCenter.x + DISTANCE; 
x2 = m_ptCenter.x - DISTANCE; 
y2 = y1 = m_ptCenter.y; 
break; 
case LEFT: 
x2 = x1 = m_ptCenter.x; 
y1 = m_ptCenter.y + DISTANCE; 


INKEER RIHAR 


/向 上 移动 


/向 下 移动 


/向 左 移动 
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y2 = m_ptCenter.y - DISTANCE; 
break; 
case RIGHT: // 向 右 移动 
x2 = x1 = m_ptCenter.x; 
y1 = m_ptCenter.y - DISTANCE; 
y2 = m ptCenter.y + DISTANCE; 
break; 


// 画 出 弧 形 分 
Arc(memDC, m ptCenter.x - DISTANCE, m ptCenter.y - DISTANCE, 
m ptCenter.x * DISTANCE, m ptCenter.y * DISTANCE, 
X1, yt, 
x2. y2); 
// 画 直线 ”分 ， 最 后 组 合成 玩家 对 象 一 一 一 个 大 嘴 的 形象 
MoveToEx(memDC, x1, y1, NULL); 
LineTo(memDC, m ptCenter.x, m ptCenter.y); 
LineTo(memDC, x2, y2); 
) 


m nFrame**; /绘制 下 一 帧 
) 





9.8.5 “完成 整个 游戏 
本 节 开 始 使 用 玩家 对 象 、 敌 军 对 象 及 地 图 对 象 来 完成 整个 游戏 。 
1， 生 成 游戏 窗口 


打开 pacman.cpp 文件 ， 找 到 wWinMain 函数 ， 将 函数 内 容 〈 大 括号 之 内 的 内 容 ) 删除 ， 输 入 以 下 


代码 ; 





/参数 不 再 使 用 了 
UNREFERENCED, PARAMETER(hPrevinstance); 
UNREFERENCED, PARAMETER(IpCmdLine); 


/初始 化 全 局 字符 串 

LoadStringW(hinstance, IDS_APP_TITLE, szTitle, MAX, LOADSTRING); 
LoadStringW(hinstance, IDC. PACMAN, szWindowClass, MAX, LOADSTRING); 
/注册 窗口 类 


MyRegisterClass(hlnstance); 


// 执 行 应 用 程序 初始 化 

if(lInitlnstance(hInstance, ncmdShow)) { 
return FALSE; 

} 


HACCEL hAccelTable = LoadAccelerators(hInstance, MAKEINTRESOURCE(IDC_PACMAN)); 


e. 


2. 定义 相关 变 
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下 面 代 码 定 义 了 当前 关卡 、3 关 地 图 数组 、 玩 家 对 象 及 4 个 敌 军 对 象 ， 并 设 定 当前 关卡 为 第 一 关 。 
在 pacman.cpp 文件 中 接着 输入 : 


/当前 的 关卡 
int s_n = 0; //[O, 1, 2] 
// 地 图 


GMap *MapArray[STAGE_COUNT] = ( new Stage 1(), new Stage 2(), new Stage_3()}; 


/玩家 对 象 
/自己 


auto g me = std::make_shared<PacMan>(P_ROW, P ARRAY); 


// 设 定 4 个 敌人 对 象 


auto e1 = std::make_shared<RedOne>(E_ROW, E ARRAY); 
auto e2 = std::make_shared<RedOne>(E_ROW, E ARRAY); 
auto e3 = std::imake shared«BlueOne»(E ROW, E ARRAY); 
auto e4 = std::make, shared«YellowOne»(E ROW, E ARRAY); 


/关卡 
GObject::pStage = MapArray[s_n]; 


// 设 定 玩家 
Enermy::player = g me; 


MSG msg; 


DWORD dwLastTime = 0; 


// 红 色 敌 军 对 象 
/红色 敌 军 对 象 
// 蓝 色 敌 军 对 象 
|| 色 敌 军 对 象 


/初始 化 为 第 一 关 地 图 


// 用 一 个 指 指向 玩家 对 象 





3. 游戏 循环 


在 循环 中 首先 判断 是 否 赢得 比赛 ， 赢 则 提示 玩家 赢得 游戏 〈 弹 出 消息 提示 框 ) ， 在 玩家 单 击 “ 确 


// 主 消息 循环 
// 玩 家 没有 被 抓 ， 并 且 关 卡 小 于 3 


while(!g_me->lsOver() && s n < STAGE COUNT) ( 


// 判 断 是 否 赢得 比赛 
if(g me-»IsWin()) ( 
S n**; 


/” 设 自己 和 敌人 位 置 


g_me->SetPosition(P_ROW, P. ARRAY); 
e1-»SetPosition(E ROW, E ARRAY); 
e2-»SetPosition(E ROW, E ARRAY); 
e3-»SetPosition(E ROW, E ARRAY); 
e4-»SetPosition(gE ROW, E ARRAY); 


// 潮 断 是 否 完成 了 3 关 ， 如 果 完成 ， 
if(s_n < 3) { 


出 游戏 ， 否 则 入 下 一 关 


/移动 到 下 一 关 


/设置 敌 军 1 的 位 置 
/设置 敌 军 2 的 位 置 
/设置 敌 军 3 的 位 置 
/设置 敌 军 4 的 位 置 


按钮 之 后 ， 重 设 玩家 和 4 个 敌 军 的 状态 并 进入 下 一 关 ， 如 果 没 有 下 一 关 ， 则 跳出 循环 。 接 着 输入 : 
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MessageBox(g hwnd, _T(" 恭 喜 ” 关 "),_T(" 吃 豆子 提示 "), MB OK) 
GObject::pStage = MapArray[s n]; 

RECT screenRect; 

screenRect.top = 0; 

screenRect left = 0; 

screenRect.right - WLENTH; 

screenRect.bottom = WHIGHT; 


HDC hdc = GetDC(g, hwnd); [E 31724 

std::shared_ptr<HDC_ > dc(hdc, [(HDC hdc) ( IRRE ”， 自 动 管理 资源 
xReleaseDC(g_hwnd, hdc); 

D 

zFillRect(dc.get(), &screenRect, CreateSolidBrush(RGB(255, 255, 255))); 


GObject::pStage-»DrawMap(hdc); // 画 地 图 
continue; /继续 行 循 环 
H 
else { 
/出 循环 
break; 


$ 
} 





上 述 代码 判断 玩家 是 否 通关 ， 如 果 通 关 则 进入 一 下 关 ， 但 当 通过 的 是 第 三 关 时， 跳出 循环 并 提示 
玩家 胜利 ， 如 果 玩 家 失败 ， 则 跳出 循环 并 提示 玩家 失败 。 


4. 消息 处 理 
输入 消息 处 理 部 分 ， 此 处 获取 消息 的 函数 为 PeekMessage， 该 函数 不 同 于 GetMessage 函数 ， 前 者 
无 论 是 否 有 消息 都 立即 返回 ， 如 果 有 消息 ， 则 从 队列 中 移 除 该 消息 ， 而 后 者 则 是 无 消息 不 返回 ， 一 


停 在 该 函数 调用 处 。 因 此 如 果 使 用 GetMessage 函数 ， 无 法 形成 消息 循环 ， 导 致 游戏 停止 不 动 ， 因 此 这 
里 改 用 PeekMessage 函数 。 


/获取 消息 

if(PeekMessage(&msg, NULL, 0, 0, PM REMOVE)) ( 
TranslateMessage(&msg); /翻译 消息 
DispatchMessage(&msg); /分 发 消息 

) 

5. 游戏 BS 


若 不 调节 游戏 速度 ， 不 同 计算 机 的 游戏 速度 会 导致 游戏 运行 速度 差异 较 大 。 为 防止 这 种 情况 ， 需 
要 通过 时 间 判 断 来 调节 速度 。 当 两 次 循环 的 时 间 没 有 超过 40 毫秒 时 ， 不 进行 后 续 的 操作 ， 这 样 就 控制 
了 游戏 的 帧 数 约 为 25 帧 / 秒 。 接 着 输入 : 

1/ 判断 时 ”， 否 则 画 得 太 快 


if(GetTickCount() - dwLastTime >= 40) ( 
dwLastTime = GetTickCount(); Ia FEX BORSE 


e 
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) 


else ( 
continue; 


} 


IB] 不 到 ， 本 次 不 行 绘画 





6 游戏 画 ” 和 状态 更 新 


先 获得 窗口 的 设备 句柄 ， 后 面 的 对 象 都 要 画 到 这 个 设备 上 ， 接 着 调用 地 图 的 方法 绘制 豆子 和 地 图 ， 
再 调用 对 象 的 成 员 方 法 更 新 状态 ， 绘 制 玩家 对 象 和 敌 军 对 象 。 最 后 调用 GetAsyncKeyState 函数 ， 获 取 
按键 状态 ， 并 设 定 玩家 状态 的 指令 ， 代 码 如 下 : 


{ 


HDC hdc = ::GetDC(g_hwnd); 

std::shared_ptr<HDC_ > dc(hdc, 0(auto hdc) ( 
:ReleaseDC(g_hwnd, hdc); 

Y 

MapArray[s n]-»DrawPeas(hdc); 

MapArray[s n]-»DrawMap(hdco); 


// 画 敌人 及 自动 动 

{ 
e1->action(); 
e1->DrawBlank(hdc); 
e1-»Draw(hdc); 


e2-»action(); 
e2-»DrawBlank(hdc); 
e2-»Draw(hdc); 


e3-»action(); 
e3-»DrawBlank(hdc); 
e3-»Draw(hdc); 


e4-»action(); 
e4-»DrawBlank(hdc); 
e4-»Draw(hdc); 


// 画 自己 
g_me->DrawBlank(hdc); 
g_me->Draw(hdc); 
/自己 向 前 移动 


g_me->action(); 


IRP : 控制 自己 的 方向 
if(GetAsyncKeyState(VK DOWN) & 0x8000) ( 
g me-»SetTwCommand(DOWN); 


/获得 设备 
/不 使 用 时 自动 放 
! NR 


// 画 豆子 
// 画 地 图 


/ 政 军 1 的 行为 函数 
/ 画 敌 军 1 的 空白 
// 画 敌 军 1 的 主体 分 


/ 政 军 2 的 行为 函数 
/ 画 敌 军 2 的 空白 
/ 画 敌 军 2 的 主体 分 


IRE 3 的 行为 函数 
/ 画 敌 军 3 的 空白 
// 画 敌 军 3 的 主体 分 


/ 政 军 4 的 行为 函数 


/ 画 敌 军 4 的 空白 
/ 画 敌 军 4 的 主体 分 


/检测 到 下 方向 ”被 按 下 
/设置 下 一 步 的 移动 方向 为 向 下 


59) 
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if(GetAsyncKeyState(VK LEFT) & 0x8000) ( /检测 到 左 方向 被 按 下 
g_me->SetTwCommand(LEFT); // 设 置 下 一 步 的 移动 方向 为 向 左 

) 

if(GetAsyncKeyState(VK RIGHT) & 0x8000) ( /检测 到 右 方向 被 按 下 
g_me->SetTwCommand(RIGHT); /设置 下 一 步 的 移动 方向 为 向 右 

H 

if(GetAsyncKeyState(VK UP) & 0x8000) ( /检测 到 上 方向 ”被 按 下 
g_me->SetTwCommand(UP); // 设 置 下 一 步 的 移动 方向 为 向 上 


} 
} 
) 
} 


至 此 ， 整 个 消息 循环 结束 ， 游 戏 也 进入 到 结束 阶段 。 下 文 是 结束 游戏 的 提醒 代码 ， 根 据 玩 家 的 状 
态 使 用 消息 框 MessageBoxA 进行 不 同 的 提示 。 


// 如 果 游 戏 结束 
if(g me-»IsOver()) ( 
MessageBoxA(NULL, "出 师 未 捷 ", " 吃 豆子 提示 " MB. OK); 


/否则 ， 提 示 赢 得 游戏 
else( 

MessageBoxA(NULL, "恭喜 您 赢得 了 胜利 \nn 确定 后 游戏 ”出 "" 吃 豆子 提示 " MB. OK); 
) 


return (int) msg.wParam; 





运行 程序 ， 效 果 如 9.27 所 示 。 














图 9.27 游戏 运行 效果 





$93 吃 豆 子 游戏 (Visual Studio 2017 实现 ) 


9.9 项 目 文件 清单 


吃 豆子 游戏 的 文件 清单 如 表 9.1 所 示 。 
X94 了 吃 豆子 游戏 文件 清单 





说 明 
地 图 类 的 声明 文件 
地 图 类 的 实现 文件 
物体 类 的 声明 文件 
物体 类 的 实现 文件 
创建 主 窗口 ， 实 现 游戏 运行 的 客户 端 


























9.10 本 章 总 -0 


本 章 设 计 了 一 个 吃 豆子 游戏 ， 目 的 是 让 读者 理解 类 的 多 态 与 继承 的 使 用 方法 。Windows API 内 容 
很 多 ， 完 全 掌握 需要 大 量 时 间 和 实践 ， 不 作为 本 章 的 重点 。 地 图 类 与 物体 类 使 用 了 C++ 类 继承 的 特性 ， 
子 类 的 共性 应 该 放 入 父 类 中 ， 性 质 相似 而 实现 不 同 的 函数 则 应 该 由 虚 函 数 定义 。 
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五 子 棋 是 起 源 于 中 国 古代 的 传统 黑白 棋 种 之 一 。 五 子 棋 不 仅 能 增 
强 思 维 能 力 ， 提 高 智力 ， 而 且 富 会 哲理 ， 有 助 于 修身 养性 ， 既 有 现代 
休闲 游戏 的 明显 将 征 “ 短 、 平 、 快 "， 又 有 古典 哲学 的 高 深 学 问 “ 阴 、 
阳 、 易 、 理 ”; 既 具 有 简单 易学 的 将 性 ， 为 人 们 所 喜爱 ， 又 有 深奥 的 技 
巧 和 高 水 平 的 国际 性 比赛 。 五 子 棋 文 化 源远流长 ， 具 有 东方 的 神秘 和 
西方 的 直观 ; 既 有 “ 场 ” 的 概念 ， 亦 有 “点 ”的 连接 ， 起源 于 中 国 古 
代 ， 发 展 于 上 日本， 风靡 于 欧洲 ， 可 以 说 五 子 棋 是 中 西方 文化 的 交流 点 ， 
是 古今 哲学 的 结晶 。 在 本 章 中 ， 笔 者 将 设计 一 个 网 络 五 子 棋 游戏 。 
通过 学 习 本 章 ， 读 者 可 以 学 到 : 
使 用 TCP 协议 进行 网 络 通 信 
定义 网 络 通信 协议 
绘制 可 以 调整 大 小 的 五 子 棋 棋盘 
在 棋盘 上 绘制 棋子 ， 在 窗口 更 新 
时 能 够 保留 绘制 的 棋子 
五 子 棋 赢 棋 判 断 
游戏 回放 
网 络 连接 状态 检测 
向 对 话 框 中 嵌入 子 对 话 框 ， 并 实现 动态 调整 子 对 话 框 的 大 小 


*YzzrztX 








zzz 
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101 开发 背景 





| 视频 讲解 
相信 很 多 人 都 会 玩 五 子 棋 游 戏 ， 当 一 方 完成 5 个 棋子 连续 时 ， 无 论 是 水 平方 向 、 秋 
直方 向 ， 还 是 斜 对 角 线 方向 ， 都 表示 获胜 了 。 对 于 初学 网 络 开发 的 人 员 来 说 ， 设 计 一 个 网 络 五 子 棋 游戏 
再 合适 不 过 了 。 从 规模 上 看 ， 网 络 五 子 棋 只 需要 包含 客户 端 和 服务 器 端 两 个 窗口 ， 规 模 比较 小 。 从 功能 上 
看 ， 网 络 五 子 棋 涉及 两 台 主 机 间 的 通信 ， 需 要 相互 传递 棋子 信息 、 控 制 指令 和 文本 信息 ， 这 需要 定义 一 个 
应 用 协议 来 解释 数据 报 ， 涉 及 网 络 开发 的 许多 知识 。 鉴 于 此 ， 在 本 章 中 笔者 设计 了 一 个 网 络 五 子 棋 模块 。 


10.2 需求 分 析 


通过 调查 ， 要 求 系统 具有 以 下 功能 。 

为 了 体现 良好 的 娱乐 性 ， 因 此 要 求 系统 具有 良好 的 人 机 交互 界面 。 
完全 人 性 化 设计 ， 无 须 专业 人 士 指导 即 可 操作 本 系统 。 

自动 完成 胜 负 判 断 ， 避 免 人 为 错误 。 

实现 游戏 悔 棋 。 

实现 游戏 回放 。 

实现 游戏 双方 的 网 络 通话 。 


ARARRARA 


10.3 系统 设计 


10.3.1 系统 功能 结构 
快乐 五 子 棋 游戏 包括 客户 端 和 服务 器 端 两 个 应 用 
















































































程序 ， 系 统 功 能 结构 图 如 图 10.1 所 示 。 快乐 五 子 棋 
HA 
10.3.2. 系统 预览 客户 端 应 用 程序 服务 器 端 应 用 程序 
系统 预览 分 为 客户 端 预览 和 服务 器 端 预览 两 部 分 ， 
客户 端 主 要 由 一 个 主 窗 体 和 一 个 登录 服务 器 窗 体 构成 ; t B R E 
服务 器 端 由 一 个 主 窗 体 和 一 个 服务 器 设置 窗 体 构 成 。 客 » A A A 
户 端 主 窗 体 效 果 如 图 10.2 所 示 。 E Fi i H 
登录 服务 器 窗 体 效 果 如 图 10.3 所 示 。 体 体 体 














服务 器 端 主 窗 体 效果 如 图 104 所 示 。 站 
服务 器 设置 窗 体 如 图 10.5 所 示 。 
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图 10.2 客户 端 主 窗 体 
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104 ”服务 器 端 主 窗 体 


10.3.3 ”业务 流程 图 
快乐 五 子 棋 业务 流程 图 如 图 10.6 所 示 。 





























图 10.3 登录 服务 器 窗 体 
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开始 游戏 


黑 了 





= d 有 棋子 
| 
| HFF 黑子 下 
i AE 
是 
打印 白 方 胜 4^ 判断 白 子 是 否 “判断 黑子 是 否 胜 二 一 一 > 打印 黑 方 胜 


退出 游戏 











10.6 ”快乐 五 子 棋 业务 流程 图 
10.34 ”程序 运行 环境 


本 系统 对 其 运行 环境 有 一 定 的 要 求 ， 具 体 如 下 。 

系统 开发 平台 : Visual Studio 2017. 

系统 开发 语言 ， C++。 

数据 库 管 理 系 统 软件 : Microsoft Access 2000. 

运行 平台 : Windows XP (SP2) /Windows 2000 (SP4) /Windows Server 2003 (SP1) / Windows 7. 
DPE: 最 佳 效果 为 1024x1280 像素 。 


10.4 关键 技术 分 析 与 实现 


ARARA 








10.4.1 使 用 TCP 进行 网 络 通信 


TCP (Translate Control Protocol， 传 输 控制 协议 ) 提供 了 一 个 完全 可 靠 的 、 面 向 连接 的 、 全 双 工 的 
字 节 流传 输 服务 。 在 设计 网 络 五 子 棋 模 块 时 ， 考 虑 到 网 络 传输 的 数据 量 不 是 很 大 ， 要 求 数 据 准确 地 传 
递 给 对 方 ， 笔 者 决定 使 用 TCP 进行 网 络 通信 。 

采用 TCP 进行 网 络 通信 的 编程 模式 为 : 首先 创建 一 个 TCP 套 接 字 , 然后 将 套 接 字 绑 定 到 本 机 的 IP 
和 端口 号 上 ， 之 后 将 套 接 字 置 于 监听 模式 ， 当 有 客户 端的 套 接 字 连 接 时 ， 接 收 客户 端的 连接 请 求 ， 这 
样 双方 就 可 以 进行 通信 了 。 在 Visual Studio 2017 中 ， 可 以 采用 两 种 方式 来 进行 套 接 字 编程 ， 一 种 方式 
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是 使 用 套 接 字 的 API 函数 ， 另 一 种 方式 是 使 用 MFC 提供 的 套 接 字 类 CAsyncSocket 和 CSocket。 在 本 
模块 中 采用 第 二 种 方式 一 一 使 用 CSocket 类 进行 网 络 通 信 。 下 面 介绍 使 用 CSocket 类 进行 网 络 编程 的 
基本 步骤 。 

(1) 从 CSocket 类 派生 一 个 子 类 ， 如 CSrvSock。 

(2) 改写 CSocket 类 的 OnAccept 方法 ， 当 有 客户 端 连接 时 ， 调 用 自 定义 的 方法 来 接收 连接 。 


void CSrvSock::OnAccept(int nErrorCode) 





m pDlg-»AcceptConnection(); /在 主 对 话 框 中 自 定义 的 方法 ， 用 于 接收 客户 端 连接 
CSocket::OnAccept(nErrorCode); 


) 

// 自 定义 的 AcceptConnection 方法 ， 用 于 接收 客户 端的 连接 

void CChessBorad::AcceptConnection() 

{ 
m_ClientSock.Close(); /关闭 套 接 字 
m SrvSock.Accept(m ClientSock); /接收 连接 

) 





(3) 从 CSocket 类 再 派生 一 个 子 类 ， 如 CClientSock. 
(4). 改写 CSocket 类 的 OnReceive 方法 ， 当 客户 端 发 送 数据 时 ， 将 调用 自 定义 的 方法 接收 数据 。 





void CClientSock::OnReceive(int nErrorCode) 
( 
if (m. pDlg (= NULL) 
m pDlg-^ReceiveData(); // 调 用 主 对 话 框 自 定义 方法 ， 接 收 数据 
CSocket::OnReceive(nErrorCode); 
) 





自 定 义 的 ReceiveData 方法 ， 当 服务 器 端 检测 到 客户 端 发 送 的 数据 时 接收 数据 。 


void CChessBorad::ReceiveData() 


t 
BYTE* pBuffer = new BYTE[sizeof(TCP. PACKAGE); /定义 一 个 缓冲 区 


/接收 客户 端 发 来 的 数据 
int factlen = m ClientSock.Receive(pBuffer,sizeof(TCP PACKAGE)); 
delete []pBuffer; /释放 缓冲 区 


) 
C5) 在 StdAfs.h 头 文件 中 引用 afxsock.h 头 文件 ， 目 的 是 使 用 CSocket 35. 





#include «afxsock.h» 
C6) 在 应 用 程序 初始 化 时 调用 AfxSocketInit 方法 初始 化 套 接 字 函数 库 。 


WSADATA wsa; 
AfxSocketlnit(&wsa); // 初 始 化 套 接 字 


至 此 就 完成 了 对 套 接 字 类 CSocket 的 封装 。 下 面 通 过 代码 来 说 明 套 接 字 类 的 通信 过 程 。 


e. 


第 10 章 快乐 五 子 棋 (Visual Studio 2017+Socket 套 接 字 实现 ) 
(1) 创建 并 绑 定 套 接 字 地 址 和 端口 。 
m_SrvSock.Create(port,SOCK_STREAM,SrvDIg.m_HostIP); // 创 建 套 接 字 


Create 方法 的 第 二 个 参数 为 SOCK_STREAM， 表 示 创 建 TCP ERF. 
(2) 将 套 接 字 置 于 监听 模式 。 








m_SrvSock.Listen(); /监听 套 接 字 
G) 在 客户 端 创建 并 绑 定 套 接 字 地 址 和 端口 。 

m ClientSock.Create(); // 创 建 客户 端 套 接 字 
(D 客户 端 套 接 字 开始 连 接 服务 器 套 接 字 。 

m ClientSock.Connect(srvDlg.m IP,srvDlg.m Port); /连接 服务 器 





此 时 服务 器 端的 套 接 字 将 调用 OnAccept 方法 (CSrvSock 类 ) ， 执 行 自 定义 的 AcceptConnection 
方法 接收 客户 端的 连接 ， 这 样 ， 客 户 端 就 可 以 和 服务 器 端 进行 通信 了 。 例 如 ， 向 服务 器 发 送 一 行文 本 
数据 ， 代 码 如 下 


m_ClientSock.Send(" 明 日 科技 ",8); // 向 服务 器 发 送 数据 








10.4.2 ”定义 网 络 通信 协议 


在 设计 网 络 应 用 程序 时 ， 通 常 需要 定义 一 个 应 用 协议 ， 使 通信 双方 按照 此 协议 来 解释 接收 的 数据 。 
以 网 络 五 子 棋 模 块 为 例 ， 网 络 通信 的 数据 主要 包括 文本 数据 、 开 始 游戏 命令 、 网 络 测试 命令 、 五 子 棋 
坐标 、 悔 棋 请 求 命 令 、 接 受 悔 棋 请 求 命令 和 拒绝 悔 棋 请 求 命令 等 。 这 些 类 型 的 数据 需要 在 接收 端 按照 
预定 的 协议 解析 出 来 ， 然 后 执行 相应 的 动作 。 下 面 给 出 网 络 五 子 棋 模 块 定义 的 通信 协议 。 


二 i p eoo 


CT BEGINGAME 开始 游戏 
CT_NETTEST 网 络 测试 
CT_POINT 棋子 坐标 
CT_TEXT 文本 信息 
CT_WINPOINT 赢 棋 时 的 起 点 和 终点 棋子 
CT_BACKREQUEST 悔 棋 请 求 
CT_BACKACCEPTANCE 同意 悔 棋 
CT_BACKDENY 拒绝 悔 棋 
CT_DRAWCHESSREQUEST 和 棋 请 求 
CT_DRAWCHESSACCEPTANCE 同意 和 棋 
CT_DRAWCHESSDENY 拒绝 和 棋 
CT. GIVEUP 认输 


AUIOOOREOOOH A GOOOREHOOHEOOOE E OOOOREUOOEEOHOH E UOOREUHOHERUUOEREOHOGRAR / 


enum CMDTYPE (CT BEGINGAME,CT NETTEST,CT POINT,CT TEXT,CT WINPOINT, 
CT BACKREQUEST,CT BACKACCEPTANCE,CT BACKDENY, 
CT DRAWCHESSREQUEST,CT DRAWCHESSACCEPTANCE, 
CT DRAWCHESSDENY,CT. GIVEUP 


4) 
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} 
// 定 义 数据 包 结构 
struct TCP_PACKAGE 


CMDTYPE cmdType; /命令 类 型 

CPoint chessPT; /五 子 棋 坐 标 〈 行 和 列 坐标 ) 
CPoint winPT[2]; // 赢 棋 时 的 路 径 〈 起 点 和 终点 ) 
char chText[512]; /文本 数据 


È 


在 定义 了 通信 协议 后 ， 通 信 双 方 在 发 送 数据 时 ， 需 要 按照 数据 的 类 型 填充 数据 包 。 例 如 ， 要 发 送 
开始 游戏 的 请 求 ， 需 要 按照 如 下 的 格式 填充 数据 包 : 











// 发 送 游戏 开始 的 信息 
TCP_PACKAGE tcpPackage; // 定 义 数 据 包 格式 
memset(&tcpPackage,0,sizeof(TCP_PACKAGE)); /初始 化 数据 包 
tcpPackage.cmdType = CT. BEGINGAME; // 设 置 命令 类 型 
strncpy(tcpPackage.chText,m csNickName,512); // 设 置 昵称 
m ClientSock.Send(&tcpPackage,sizeof(TCP. PACKAGE)); /发 送 数 据 包 
这 样 ， 当 对 方 接收 到 数据 包 时， 会 根据 数据 包 的 类 型 来 执行 相应 的 动作 。 
BYTE* pBuffer = new BYTE[sizeof(TCP_PACKAGE)]; /定义 缓冲 区 
/从 套 接 字 中 读 取 数 据 
int factlen = m_ClientSock.Receive(pBuffer,sizeof(TCP_PACKAGE)); 
if (factlen == sizeof(TCP_PACKAGE)) / 尖 断 读 取 数据 的 大 小 
{ 

TCP. PACKAGE tcpPackage; /定义 一 个 数据 包 
/复制 缓冲 区 数据 到 数据 包 中 
e memcopy(&tcpPackage,pBuffer,sizeof(TCP PACKAGE); 

if (tepPackage.cmdType == CT. BEGINGAME) // 开 始 游戏 

/进行 游戏 开始 的 操作 

) 

) 
< 代码 贴 十 


@ memcpy: 用 于 复制 缓冲 区 中 的 内 容 。 将 代码 pBuffer 中 的 内 容 复制 到 tcpPackage 中 ， 复 制 内 容 大 小 由 
sizeof(TCP. PACKAGE) 来 确定 。 


10.4.3 ”实现 动态 调整 棋盘 大 小 


在 设计 网 络 五 子 棋 时 ， 为 了 突出 游戏 的 特点 ， 人 允许 用 户 在 游戏 进行 的 过 程 中 调整 窗口 的 大 小 ， 效 
果 如 图 10.7 和 图 10.8 所 示 。 


@ 
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图 10.7 客户 端 窗口 1 
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实现 该 功能 的 难点 在 于 窗口 大 小 被 调整 后 ， 需 要 调整 棋盘 的 大 小 、 棋 盘 表 格 的 大 小 和 棋盘 中 当前 
棋子 的 位 置 。 此 处 采用 的 方式 是 记录 水 平方 向 和 垂直 方向 的 缩放 比例 ， 当 首次 显示 窗口 时 ， 认 为 水 平 
方向 和 垂直 方向 的 缩放 比例 为 1， 并 记录 棋盘 的 宽度 和 高 度 ， 作 为 棋盘 的 原始 宽度 和 高 度 。 当 调整 窗口 
时 ， 设 置 棋盘 新 的 宽度 和 高 度 ， 并 将 其 与 原始 棋盘 的 宽度 和 高 度 进行 除法 运算 ， 记 录 水 平方 向 和 垂直 
方向 的 缩放 比例 。 在 绘制 棋盘 表格 和 棋子 位 置 时 都 依据 缩放 比例 进行 绘制 。 

以 绘制 棋盘 的 表格 为 例 ， 在 窗口 初始 化 时 需要 确定 表格 相对 棋盘 的 坐标 以 及 表格 中 每 个 单元 格 的 宽度 
和 高 度 。 以 本 模块 为 例 ， 首 次 绘制 表格 时 ， 起 点 坐标 分 别 为 50 和 50， 单 元 格 的 宽度 和 高 度 均 为 50。 


m_nOrginX = m nOrginY = 50; /表格 起 点 坐标 
m nCellHeight = m nCellWidth = 50; /单元 格 高 度 和 宽度 








绘制 表格 时 ， 系 统 会 根据 当前 水 平方 向 和 垂直 方向 的 缩放 比例 计算 此 刻 表 格 的 起 点 坐标 、 单 元 格 
的 高 度 和 宽度 ， 这 样 就 可 以 正确 地 绘制 表格 了 。 


void CChessBorad::DrawChessboard() 
{ 


CDC* pDC = GetDC(); /获取 窗口 设备 上 下 文 
CPen pen(PS, SOLID, 1,RGB(0,0,0)); // 定 义 黑色 的 画笔 
pDC->SelectObject(&pen); // 选 中 画笔 

int nOriginX = m. nOrginX*m fRateX; // 计 算 表格 的 起 点 坐标 

int nOriginY = m_nOrginY*m_fRateY; 

int nCellWidth = m_nCellWidth*m_fRateX; // 计 算 单 元 格 的 宽度 和 高 度 
int nCellHeight = m nCellHeight*m fRateY; 

for (int i = 0; iem nRowCount*1; i++) /绘制 棋盘 中 的 列 


{ 
pDC-»MoveTo(nOriginX*nCellWidth*(i),nOriginY); 
pDC-»LineTo(nOriginX*nCellWidth*(i),nOriginY*m nRowCount*nCellHeight); 


) 
for (int j = 0; j<m_nColCount+1; j++) /绘制 棋盘 中 的 行 


pDC-»MoveTo(nOriginX ,nOriginY+(j)*nCellHeight); 
pDC-»LineTo(nOriginX *m nColCount*nCellWidth,nOriginY-(j)*nCellHeight); 
) 


104.4 在 棋盘 中 绘制 棋子 


在 设计 网 络 五 子 棋 时 ， 需 要 在 棋盘 中 绘制 棋子 ， 并 保证 在 窗口 更 新 时 ， 棋 子 仍然 在 棋盘 上 。 此 处 
采用 的 方式 是 定义 一 个 二 维 数组 ， 数 组 的 大 小 与 棋盘 中 表格 的 行 和 列 有 关 ， 用 以 描述 棋盘 中 可 以 放置 
的 所 有 棋子 。 每 一 个 棋子 关联 一 个 数据 结构 NODE， 定 义 如 下 : 

/定义 节点 颜色 


[A888 EOOOEERROOH E ROO OOOEEOOOE  OOOOHEROOEE HE E UOOREOOOEEUOOH UO 


ncWHITE: 表示 白色 棋子 
ncBLACK: 表示 黑色 棋子 


@ 
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ncUNKOWN: 表示 棋子 颜色 未 知 ， 当 没有 在 棋盘 中 放置 棋子 时 ， 棋 子 为 ncUNKOWN 
人 
typedef enum NODECOLOR( ncWHITE,ncBLACK,ncUNKOWN]; 
/定义 节点 类 
class NODE 
{ 
public: 
NODECOLOR m Color; // 棋 子 颜色 
CPoint m Point; /棋子 的 物理 坐标 点 
intm nX; /棋子 的 逻辑 横 坐 标 
int m_nY; // 棋 子 的 逻辑 纵 坐 标 
public: 
NODE* m pRecents[8]; /临近 棋子 
BOOL m IsUsed; 1/ 棋子 是 否 被 用 
NODE() 


{ 
m Color = ncUNKOWN; 
m IsUsed = FALSE; 


) 
7NODE() 
t 


) 
s 
当 用 户 在 棋盘 中 放置 一 个 棋子 时 ， 会 根据 鼠标 的 坐标 点 从 一 个 二 维 数组 中 获取 对 应 的 一 个 棋子 。 
如 果 该 棋子 没有 被 使 用 ， 则 设置 棋子 的 颜色 ， 并 将 棋子 标记 为 已 用 。 这 样 ， 在 窗口 更 新 时 ， 从 二 维 数 
组 中 遍历 棋子 ， 如 果 棋 子 已 用 ， 则 根据 棋子 的 坐标 和 颜色 绘制 棋子 。 








for (int m=0; m< m_nRowCount+1; m++) IRAT 
for (int n=0; n<m_nColCount+1; n++) 158151 
if (m NodeList[m][n].m Color == ncWHITE) // 如 果 为 白色 棋子 
memDC.SelectObject(&BmpWhite); /选中 白色 棋子 位 图 


pDC->StretchBIt(m_NodeList[m][n].m_Point.x-nPosX, 
m NodeList[m][n].m Point.y-nPosY,nBmpWidth,nBmpHeight, 


&memDC,0,0,nBmpWidth,nBmpHeight, SRCCOPY); /| 绘制 白色 棋子 
} 
else if (m_NodeList[m][n].m_Color == ncBLACK) // 如 果 为 黑色 棋子 
{ 
memDC.SelectObject(&BmpBlack); // 选 中 黑色 棋子 位 图 


pDC-»StretchBlt(m NodeList[m][n].m Point.x-nPosX, 
m NodeList[m][n].m Point.y-nPosY,nBmpWidth,nBmpHeight, 
&memDC,0,0,nBmpWidth,nBmpHeight, SRCCOPY); /| 绘制 黑色 棋子 
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这 里 还 涉及 一 个 问题 : 如 何 根据 鼠标 的 坐标 点 从 二 维 数 组 中 获取 对 应 的 棋子 ? 此 处 采用 的 方式 是 
在 窗口 初始 化 时 为 每 一 个 棋子 设置 一 个 坐标 点 。 采 用 这 种 方式 是 因为 在 绘制 表格 时 知道 表格 的 起 点 坐 
标 、 单 元 格 的 宽度 和 高 度 ， 自 然 可 以 知道 每 一 个 表格 交叉 点 的 坐标 ， 也 就 是 棋子 的 坐标 。 





for (int i=0; i<m_nRowCount+1; i++) // 人 遍历 行 
for (int j-0; j<m_nColCount+1; j++) // 遍 历 列 
/设置 节点 的 坐标 


m NodeList[i]jÀm Point» CPoint(nOriginX+nCellWidth*j,nOriginY+nCellHeight*i); 
) 
) 


当 窗口 大 小 改变 时 ， 还 将 根据 缩放 比例 重新 设置 每 一 个 棋子 的 坐标 。 


void CChessBorad::OnSize(UINT nType, int cx, int cy) 
{ 

CDialog::OnSize(nType, cx, cy 

TASSE NSCERTRUE IRR AA EON 


CRect cItRC; 

GetClientRect(cItRC); /获取 窗口 客户 区 域 

m fRateX = cltRC.Width() / (double)m_nBmpWidth; // 计 算 新 的 缩放 比例 

m fRateY = cItRC.Height() / (double)m nBmpHeight; 

int nOriginX = m. nOrginX*m fRateX; // 计 算 表 格 新 的 起 点 坐标 

int nOriginY = m. nOrginY*m fRateY; 

int nCellWidth = m nCellWidth*m fRateX; // 计 算 表 格 单元 格 新 的 宽度 和 高 度 
int nCellHeight = m nCellHeight*m fRateY; 

for (int i20; iem. nRowCount*1; i++) /重新 设置 棋子 的 坐标 


for (int j-0; j<m_nColCount+1; j++) 
{ 
m NodeList[i]j].m Pointe CPoint(nOriginX*nCellWidth*j,nOriginY-*nCellHeight"i); 
) 
) 
) 


知道 了 每 个 棋子 的 坐标 ， 根 据 鼠 标的 坐标 点 就 可 以 获取 对 应 的 棋子 坐标 。 但 是 在 判断 坐标 时 ， 还 
需要 设置 一 个 近似 的 区 域 。 例 如 ， 棋 子 的 坐标 为 《100,80) ， 而 鼠标 的 坐标 为 《98.87) ， 如 果 进 行 精 
确 比较 ， 则 在 鼠标 点 处 获取 不 到 棋子 ， 玩 家 也 不 可 能 准确 地 单 击 到 棋子 坐标 。 为 此 需要 进行 一 个 近似 
比较 。 这 里 采用 的 方式 是 以 棋子 坐标 为 中 心 点 ， 设 置 一 个 区 域 ， 只 要 鼠标 点 位 于 该 区 域 中 ， 则 返回 该 
棋子 坐标 。 

/根据 坐 标点 获取 棋子 


NODE* CChessBorad::GetLikeNode(CPoint pt) 
f 





CPoint tmp; 
for (inti = 0 ;i<m_nRowCount+1;i++) IRAT 
for (int j = 0; j<m_nColCount+1;j++) // 遍 历 列 





e 


第 10 章 快乐 五 子 棋 (Visual Studio 2017+Socket 套 接 字 实 现 ) 





tmp = m. NodeList[i][il.m Point; /获取 棋子 坐标 

int nSizeX = 10 * m fRateX; 

int nSizeY - 10 * m fRateY; 

/定义 一 个 临近 棋子 的 区 域 

CRect rect(tmp.x-nSizeX,tmp.y-nSizeY ,tmp.x+nSizeX,tmp.y+nSizeY); 

if (rect.PtInRect(pt)) // 判 断 鼠 标 指针 是 否 在 临近 区 域 
return &m NodeList[i][j]: // 返 回 棋子 坐标 

) 
return NULL; 


10.4.5 ”五子棋 赢 棋 判断 


在 设计 五 子 棋 模 块 时 ， 需 要 提供 一 个 算法 判断 用 户 或 者 对 方 是 否 赢 棋 。 根 据 五 子 棋 规 则 ， 只 要 在 
水 平方 向 、 垂 直方 向 或 两 个 对 角 线 方向 的 任意 一 个 方向 存在 5 个 连续 颜色 的 棋子 即 表示 获胜 。 为 了 能 
够 进行 赢 棋 判断 ， 在 设计 棋子 结构 时 ， 定 义 一 个 mpPRecents[8] 成 员 ， 该 成 员 表 示 当 前 节点 周围 的 临近 
节点 ， 如 图 10.9 所 示 。 
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10.9 棋子 的 8 个 临近 节点 示意 图 


一 些 位 于 表格 边缘 的 棋子 是 没有 8 个 临近 节点 的 ， 则 该 棋子 的 某 些 临近 节点 为 空 。 下 面 的 代码 用 
于 为 某 一 个 棋子 设置 临近 节点 。 


void CChessBorad::SetRecentNode(NODE *pNode) 
t 





int nCurX = pNode-»m nX; /获取 当 前 节点 的 行 索引 
int nCurY = pNode-»m nY; // 获 取 当 前 节点 的 列 索引 
if (nCurX > 0 && nCurY >0) // 左 上方 临 近 节 点 


pNode-»m pRecents[0] = &m NodeList[nCurX-1][nCurY-1]; 

else 
pNode-»m pRecents[0] = NULL; 

if (nCurY » 0) /1 上 方 临近 节点 
pNode->m_pRecents[1] = &m NodeList[nCurX][nCurY-1]; 

else 
pNode->m_pRecents[1] = NULL; 

if (nCurX < m nColCount-1 && nCurY > 0) // 右 上 方 临近 节点 
pNode->m_pRecents[2]  &m NodeList[nCurX-*1][nCurY-1]; 

else 
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} 


pNode->m_pRecents[2] = NULL; 


if (nCurX >0) / 左 方 临近 节点 
pNode->m_pRecents[3]  &m NodeList[nCurX-1][nCurY]; 

else 
pNode-»m pRecents[3] = NULL; 

if (nCurX « m nColCount-1) // 右 方 临近 节点 
pNode->m_pRecents[4] = &m_NodeList[nCurX+1][nCurY]; 

else 
pNode->m_pRecents[4] = NULL; 

if (nCurX >0 && nCurY < m nRowCount-1) // 左 下方 临近 节点 
pNode-»m pRecents[5] = &m NodeList[nCurX-1][nCurY +1]; 

else 
pNode-»m pRecents[5] = NULL; 

if (nCurY « m nRowCount-1) /下 方 临近 节点 
pNode-»m pRecents[6] = &m NodeList[nCurX][nCurY +1]; 

else 


pNode-»m pRecents[6] = NULL; 

if (nCurX < m nColCount-1 && nCurY < m nRowCount-1) — // 右 下 方 临近 节点 
pNode-»m pRecents[7] = &m NodeList[nCurX*-1][nCurY +1]; 

else 
pNode-»m pRecents[7] = NULL; 





如 果 为 每 个 棋子 都 设置 了 临近 节点 ， 那 么 通过 一 个 棋子 就 可 以 遍历 整个 棋盘 中 的 所 有 节点 ， 也 就 
可 以 判断 五 子 棋 的 输赢 了 。 在 判断 五 子 棋 输赢 时 需要 从 水 平方 向 、 垂 直方 向 和 对 角 线 方向 分 别 进行 判 
断 。 以 从 垂直 方向 判断 为 例 ， 以 当前 棋子 为 中 心 ， 向 上 方 查 找 同 一 个 颜色 的 棋子 ， 有 则 累加 计数 ， 然 
后 从 当前 节点 的 下 方 开始 查找 节点 ， 如 果 有 同一 个 颜色 的 棋子 ， 则 继续 累加 计数 ， 当 计数 达到 5 时 ， 
则 表示 赢 棋 。 赢 棋 判 断 的 代码 如 下 : 





NODE* CChessBorad::IsWin(NODE *pCurrent) 


( 
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if (pCurrent-»m Color != ncBLACK) 
return NULL; 
// 按 4 个 方向 判断 
int num = 0; /定义 计数 
m Startpt.x = pCurrent-»m nX; 
m Startpt.y = pCurrent-»m nY; 
m Endpt.x = pCurrent-»m nX; 
m Endpt y = pCurrent-»m nY; 
// 按 垂直 方向 判断 ， 在 当前 节点 分 别 按 上 、 下 两 个 方向 遍历 
NODE* tmp = pCurrent->m_pRecents[1]; // 获 得 当前 节点 的 上 方 节点 
while (tmp != NULL && tmp-»m Color--pCurrent-»m Color) // 人 遍历 上 方 节点 
t 
m Startpt.x = tmp-»m nX; 
m Startpt.y = tmp-»m nY; 
num += 1; // 累 加 连续 棋子 数量 
if (num >= 4) // 是 否 有 5 个 连续 棋子 
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return tmp; /表示 赢 棋 ， 返 回 最 后 一 个 棋子 
) 
tmp = tmp-»m pRecents[1]; 
) 
tmp = pCurrent-»m pRecents[6]; // 获 得 当前 节点 的 下 方 节点 
while (tmp != NULL && tmp->m_Color==pCurrent->m_Color) // 人 遍历 下 方 节点 
{ 


m Endpt.x = tmp->m_nX; 
m_Endpt.y = tmp-»m nY; 
num += 1; 
if (num >= 4) 
{ 

return tmp; 


} 
tmp = tmp->m_pRecents[6]; 


} 
// 按 水 平方 向 判断 ， 在 当前 节点 处 分 别 向 左 、 右 两 个 方向 遍历 
num = 0; 
tmp = pCurrent->m_pRecents[3]; // 人 遍历 左 节点 
while (tmp != NULL && tmp-»m Color--pCurrent-»m Color) 
{ 
m Startpt.x = tmp-»m nX; 
m Startpt.y = tmp-»m nY; 


num += 1; /累加 连续 棋子 数量 
if (num >= 4) I 8/8 5 个 连续 棋子 
í 
return tmp; 
) 
tmp = tmp-»m pRecents[3]; 
) 
tmp = pCurrent-»m pRecents[4]; // 人 遍历 右 节 点 
while (tmp != NULL && tmp-»m Color--pCurrent-»m Color) 
{ 
m Endpt.x = tmp->m_nX; 
m_Endpt.y = tmp->m_nY; 
num += 1; 
if (num >= 4) 
{ 
return tmp; 
} 
tmp = tmp-»m pRecents[4]; 
} 
num = 0; 


I1H2 135^. NAE 
tmp = pCurrent-»m pRecents[0]; 
while (tmp != NULL && tmp-»m Color--pCurrent-»m Color) // 人 遍历 斜 上 方 节点 
{ 
m Startpt.x = tmp-»m nX; 
m Startpt.y = tmp-»m nY; 
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num += 1; // 累 加 连续 棋子 数量 
if (num >= 4) // 是 否 有 5 个 连续 棋子 
|i 
return tmp; /表示 赢 棋 ， 返 回 最 后 一 个 棋子 


} 
tmp = tmp->m_pRecents[0]; 
j 


tmp = pCurrent-»m pRecents[7]; // 人 遍历 余下 方 节点 
while (tmp != NULL && tmp->m_Color==pCurrent->m_Color) 
t 


m Endpt.x = tmp-»m nX; 
m Endpt.y = tmp-»m nY; 


num += 1; // 累 加 连续 棋子 数量 
if (num >= 4) IREA 5 个 连续 棋子 
{ 
return tmp; /表示 赢 棋 ， 返 回 最 后 一 个 棋子 


} 
tmp = tmp->m_pRecents[7]; 


} 
1H 45* ARA 
num = 0; 
tmp = pCurrent-»m pRecents[2]; IB ]553. E75 15 f 
while (tmp ! NULL && tmp-»m Color--pCurrent-»m Color) 
{ 
m_Startpt.x = tmp->m_nX; 
m Startpt.y = tmp-»m nY; 


num += 1; // 累 加 连续 棋子 数量 
if (num >= 4) // 是 否 有 5 个 连续 棋子 
{ 
return tmp; // 表 示 赢 棋 ， 返 回 最 后 一 个 棋子 


} 
tmp = tmp->m_pRecents[2]; 
) 
tmp = pCurrent-»m pRecents[5]; // 人 遍历 余下 方 节点 
while (tmp ! NULL && tmp->m_Color==pCurrent->m_Color) 
t 
m Endpt.x = tmp-»m nX; 
m Endpt.y = tmp-»m nY; 


num += 1; // 累 加 连续 棋子 数量 
if (num >= 4) // 是 否 有 5 个 连续 棋子 
{ 
return tmp; /表示 赢 棋 ， 返 回 最 后 一 个 棋子 


tmp = tmp->m_pRecents[5]; 
) 
return NULL; 
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10.4.6 ”设计 游戏 悔 棋 功能 


为 了 增加 网 络 五 子 棋 的 灵活 性 ， 在 本 模块 中 添加 了 人 悔 棋 功能 。 当 用 户 想 要 悔 棋 时 ， 需 要 向 对 方 发 
送 悔 棋 请 求 ， 如 果 对 方 同意 悔 棋 ， 则 双方 都 进行 悔 棋 操作 ; 如 果 对 方 不 同意 悔 棋 ， 则 向 发 送 请 求 的 一 
方 发 出 拒绝 悔 棋 消息 。 

为 了 实现 悔 棋 功能 ， 在 客户 端 和 服务 器 端 都 定义 了 两 个 成 员 变量 ， 分 别 记录 当前 用 户 最 近 放 置 棋 
子 的 逻辑 坐标 和 对 方 最 近 放置 棋子 的 逻辑 坐标 。 实 现 悔 棋 的 效果 处 理 非常 简单 ， 只 需要 将 最 近 放置 的 
棋子 的 颜色 设置 为 nCUNKOWN， 然后 重 绘 窗口 即 可 。 这 里 有 一 个 问题 需要 注意 ， 在 进行 悔 棋 时 ， 如 果 
轮 到 本 地 用 户 下 棋 时 进行 悔 棋 操作 ， 需 要 撤销 两 个 棋子 ， 第 一 个 棋子 是 之 前 对 方 放置 的 棋子 ， 第 二 个 
棋子 是 之 前 本 地 用 户 放置 的 棋子 。 如 果 轮 到 对 方 下 棋 时 进行 悔 棋 ， 则 只 需要 撤销 一 个 棋子 ， 即 之 前 本 
地 用 户 放置 的 棋子 。 下 面 给 出 实现 悔 棋 功能 的 主要 代码 。 

(1) 发 送 悔 棋 请 求 ， 代 码 如 下 : 





void CLeftPanel::OnBtBack() 


CSrvFiveChessDlg *pDlg = (CSrvFiveChessDlg*)GetParent(); 


if (pDIg-»m, ChessBoard.m State--esBEGIN) // 判 断 游戏 是 否 正在 进行 
{ 
// 发 出 悔 棋 请 求 
TCP_PACKAGE tcpPackage; // 定 义 数 据 包 
tcpPackage.cmdType = CT. BACKREQUEST; // 设 置 数据 包 命令 类 型 
/用 户 已 经 下 棋 


if (pDlg-»m ChessBoard.m LocalChessPT.x > -1 
&& pDlg-»m ChessBoard.m LocalChessPT.y > -1) 


{ 
/发 送 数据 报 
pDIg->m_ChessBoard.m_ClientSock.Send(&tcpPackage,sizeof(TCP_PACKAGE)); 


) 
else /用 户 还 没有 开始 下 棋 


MessageBox(" 当 前 不 允许 悔 棋 "," 提 示 "); 
} 
} 
} 


(2) 对 方 接收 到 悔 棋 消 息 ， 判 断 是 否 同意 悔 棋 ， 如 果 同 意 ， 则 进行 悔 棋 处 理 ， 并 向 对 方 发 送 同意 
悔 棋 消息 ， 如 果 不 同 意 悔 棋 ， 则 发 送 拒 绝 悔 棋 消息 。 
else if (tcpPackage.cmdType == CT_BACKREQUEST) /对 方 发 送 悔 棋 请 求 
if (MessageBox(" 是 否 同意 悔 棋 ?"" 提 示 "MB_YESNO)==IDYES) 
t 


CSrvFiveChessDlg *pDlg = (CSrvFiveChessDlg*)GetParent(); 
// 同 意 悔 棋 
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tcpPackage.cmdType = CT. BACKACCEPTANCE; 
m ClientSock.Send(&tcpPackage,sizeof(TCP  PACKAGE)); 
/进行 本 地 的 悔 棋 处 理 


if (m ISDown--TRUE) // 该 本 地 下 棋 了 ， 只 需要 撤销 一 步 


{ 
int nPosX = m RemoteChessPT x; 
int nPosY = m RemoteChessPT. y; 


if (nPosX » -1 && nPosY » -1) /用 户 已 下 棋 
{ 
// 重 新 设置 棋子 颜色 
m NodeList[nPosX][nPosY].m Color = ncUNKOWN; 
NODE *pNode = new NODE(); /定义 一 个 棋子 
/复制 棋子 信息 
memocpy(pNode,&m NodeList[nPosX][nPosY],sizeof(NODE)); 
m BackPlayList.AddTail(pNode); // 向 回放 列表 中 添加 棋子 
Invalidate(); /刷新 窗口 
) 
m IsDown = FALSE; 
) 
else /该 对 方 下 棋 了 ， 需 要 撤销 两 步 


{ 


int nPosX = m LocalChessPT.x; // 获 取 用 户 最 近 放 置 棋子 的 坐标 


int nPosY = m LocalChessPT.y; 
if (nPosX » -1 && nPosY » -1) 
{ 


/重新 设置 棋子 颜色 
m NodeList[nPosX][nPosY].m Color = ncUNKOWN; 
NODE *pNode = new NODE(); /定义 棋子 
/复制 棋子 信息 
memcpy(pNode,&m_NodeList[nPosX][nPosY],sizeof(NODE)); 
m BackPlayList.AddTail(pNode); // 向 回放 列表 中 添加 棋子 
) 
nPosX = m RemoteChessPT.x; // 获 取 对 方 最 近 放 置 的 棋子 坐标 


nPosY = m RemoteChessPT.y; 
if (nPosX » -1 && nPosY » -1) 
{ 


/重新 设置 棋子 颜色 
m NodeList[nPosX][nPosY].m Color = ncUNKOWN; 
NODE *pNode = new NODE(); /定义 棋子 
/复制 棋子 信息 
memcpy(pNode,&m_NodeList[nPosX][nPosY],sizeof(NODE)); 
m_BackPlayList.AddTail(pNode); // 向 回放 列表 中 添加 棋子 
} 
Invalidate(); // 刷 新 窗口 


) 
m LocalChessPT x = -1; 
m LocalChessPT.y 
m RemoteChessPT.x 
m RemoteChessPT.y = 
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) 
else /拒绝 悔 棋 


tcpPackage.cmdType = CT. BACKDENY; // 设 置 数 据 包 命 令 类 型 表示 拒绝 悔 棋 
/发 送 悔 棋 数据 报 
m_ClientSock.Send(&tcpPackage,sizeof(TCP_PACKAGE)); 


} 


G) 发 送 请 求 的 一 方 收 到 对 方 的 答复 信息 ， 决 定 同意 悔 棋 还 是 拒绝 悔 棋 。 如 果 同 意 悔 棋 ， 则 进行 
悔 棋 操作 ;如 果 对 方 拒绝 了 悔 棋 ， 则 弹出 消息 提示 框 。 


else if (tcpPackage.cmdType == CT. BACKDENY) /对方 拒绝 悔 棋 


{ 
MessageBox(" 对 方 拒绝 悔 棋 "," 提 示 "); 


} 
else if (tcpPackage.cmdType == CT_BACKACCEPTANCE) // 对 方 同意 悔 棋 


CSrvFiveChessDlg *pDlg = (CSrvFiveChessDlg*)GetParent(); 
// 判 断 是 否 该 本 地 用 户 下 棋 了 ， 如 果 是 则 需要 撤销 之 前 对 方 下 的 棋子 ， 然 后 再 撤销 本 地 用 户 下 的 棋子 
if (pDlg->m_ChessBoard.m_IsDown==TRUE) 
{ 

int nPosX m. RemoteChessPT x; // 获 取 对 方 最 近 放 置 的 棋子 坐标 

int nPosY = m RemoteChessPT.y; 

if (nPosX » -1 && nPosY » -1) 

( 

m NodeList[nPosX][nPosY].m Color = ncUNKOWN; // 重 新 设置 棋子 颜色 


NODE *pNode = new NODE(); /定义 棋子 
// 复 制 棋子 信息 
memcpy(pNode,&m NodeList[nPosX][nPosY],sizeof(NODE)); 
m BackPlayList.AddTail(pNode); // 将 棋子 添加 到 回放 列表 中 
} 
nPosX = m LocalChessPT.x; // 获 取 用 户 最 近 放 置 的 棋子 坐标 


nPosY = m LocalChessPT y; 
if (nPosX » -1 && nPosY » -1) 


{ 
m, NodeList[nPosX][nPosY].m Color = ncUNKOWN; // 重 新 设置 棋子 颜色 


NODE *pNode = new NODE(); /定义 棋子 
/复制 棋子 信息 
memcpy(pNode,&m NodeList[nPosX][nPosY].sizeof(NODE)); 
m BackPlayList.AddTail(pNode); // 将 棋子 添加 到 回放 列表 中 
) 
Invalidate(); /刷新 窗口 
} 
else /该 对 方 下 棋 了 ， 只 撤销 本 地 用 户 下 的 棋子 
int nPosX = m LocalChessPT x; // 获 取 用 户 最 近 放 置 的 棋子 坐标 


int nPosY = m LocalChessPT.y; 
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if (nPosX > -1 && nPosY > -1) 


{ 
m. NodeList[nPosX][nPosY].m Color = ncUNKOWN; // 重 新 设置 棋子 颜色 


NODE *pNode = new NODE(); /定义 棋子 

// 复 制 棋子 信息 

memcpy(pNode,&m_NodeList[nPosX][nPosY],sizeof(NODE)); 
m_BackPlayList.AddTail(pNode); /将 棋子 添加 到 回放 列表 中 
Invalidate(); // 刷 新 窗口 


m_lsDown = TRUE; 
) 
} 
m_LocalChessPT.x = -1; 
m_LocalChessPT.y = -1; 
m_RemoteChessPT.x = -1; 
m_RemoteChessPT.y = -1; 


10.4.7 ”设计 游戏 回放 功能 


为 了 让 游戏 的 双方 了 解 下 棋 的 整个 过 程 ， 在 网 络 五 子 棋 模块 中 设计 了 游戏 回放 功能 。 当 游戏 结束 
时 ， 用 户 可 以 通过 游戏 回放 了 解 整 个 下 棋 的 过 程 ， 分 析 对 方 下 棋 的 思路 ， 总 结 经 验 。 

为 了 实现 游戏 回放 功能 ， 需 要 在 用 户 或 对 方 放置 棋子 时 使 用 链表 记录 棋子 ， 在 回放 时 遍历 链表 ， 
输出 每 一 个 棋子 。 思 路 虽然 简单 ， 实 现 起 来 却 不 容易 。 尤 其 是 在 用 户 悔 棋 时 ， 需 要 从 棋盘 中 撤销 棋子 ， 
如 何在 链表 中 记录 ? 此 处 采用 的 方法 是 在 用 户 悔 棋 时 依然 向 链表 中 添加 悔 棋 的 棋子 ， 只 是 棋子 的 颜色 
为 neUNKOWN。 在 游戏 回放 时 ， 如 果 链 表 中 的 棋子 颜色 为 ncUNKOWN， 将 使 用 背景 位 图 覆盖 当前 棋 
子 ， 这 样 就 演示 了 用 户 的 悔 棋 效果 。 下 面 以 代码 的 形式 描述 游戏 回放 功能 的 实现 。 

(1) 定义 游戏 回放 的 链表 对 象 。 











CPtrList m BackPlayList; // 记 录用 户 下 棋 的 步骤 
(2) 在 用 户 放 置 棋 子 时 向 链表 中 添加 棋子 。 
NODE *pNode = new NODE(); /定义 棋子 
memcpy(pNode,node,sizeof(NODE)); /复制 棋子 信息 
m BackPlayList.AddTail(pNode); // 将 棋子 添加 到 回放 列表 中 





(3) 在 对 方 放置 棋子 时 在 棋盘 中 显示 棋子 ， 向 链表 中 添加 棋子 ， 记 录 对 方 放置 的 棋子 坐标 。 


else if (tcpPackage.cmdType == CT_POINT) // 客 户 端 棋子 坐标 信息 
{ 
int nX = tcpPackage.chessPT x; // 获 取 棋 子 坐 标 
int nY = tcpPackage.chessPT. y; 
m  NodeList[nX][nY].m. Color = ncWHITE; // 设 置 棋子 颜色 
NODE *pNode = new NODE(); /定义 棋子 
memcpy(pNode,&m  NodeList[nX][nY],sizeof(NODE)); I RT HS 
m BackPlayList.AddTail(pNode); /将 棋子 添加 到 回放 列表 中 
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m RemoteChessPT x = nX; // 记 录 对 方 放 置 的 棋子 坐标 
m RemoteChessPT y - nY; 

OnPaint(); // 重 新 绘制 窗口 ， 显 示 棋子 
m IsDown = TRUE; // 轮 到 用 户 下 棋 


} 


(4) 在 游戏 回放 时 饥 历 链表 , 将 链表 中 的 每 个 棋子 绘制 在 棋盘 中 .如果 棋子 的 颜色 为 naUNKOWN， 
表示 用 户 进行 了 悔 棋 操作 ， 将 使 用 背景 位 图 填充 原来 的 棋子 区 域 ， 这 将 导致 棋盘 中 当前 棋子 的 部 分 表 
格 被 填充 。 因 此 ， 在 绘制 完 背景 位 图 之 后 ， 还 需要 绘制 部 分 表格 。 





/游戏 回放 
void CChessBorad::GamePlayBack() 
{ 


CDC* pDC = GetDC(); // 获 取 窗 口 设 备 上 下 文 
CDC memDC; /定义 内 存 设 备 上 下 文 
CBitmap BmpWhite,BmpBlack,BmpBK; /定义 棋子 位 图 
memDC.CreateCompatibleDC(pDC); /创建 内 存 设 备 上 下 文 
BmpBlack.LoadBitmap(IDB_BLACK); /加载 棋子 位 图 


BmpWhite.LoadBitmap(IDB WHITE); 
BmpBK.LoadBitmap(IDB BLANK); 


BITMAP bmplnfo; /定义 位 图 信息 对 象 
BmpBlack.GetBitmap(&bmplnfo); // 获 取 位 图 信息 
int nBmpWidth = bmplnfo.bmWidth; // 获 取 位 图 宽度 和 高 度 


int nBmpHeight = bmplnfo.bmHeight; 
POSITION pos = NULL; 
m bBackPlay = FALSE; 
InitBackPlayNode(); // 初 始 化 回放 列表 
OnPaint(); /刷新 窗口 
m bBackPlay = TRUE; 
for(pos = m BackPlayList.GetHeadPosition(); pos != NULL;) ”// 遍 历 回放 列表 
{ 
NODE* pNode = (NODE*)m BackPlayList.GetNext(pos); // 获 取 棋 子 
int nPosX,nPosY; 
nPosX - 10*m fRateX; 
nPosY = 10*m fRateY; 


pNode-»m IsUsed = TRUE; /棋子 被 使 用 
if (pNode-»m Color == ncWHITE) // 如 果 为 白色 棋子 
{ 
memDC.SelectObject(&BmpWhite); // 选 中 白色 位 图 
/绘制 白色 棋子 


pDC-»StretchBlt(pNode-»m Point.x-nPosX,pNode-»m Point.y-nPosY, 
nBmpWidth,nBmpHeight,&memDC,0,0,nBmpWidth,nBmpHeight, SRCCOPY); 
) 


else if (pNode-»m Color == ncBLACK) // 如 果 为 黑色 棋子 
{ 
memDC.SelectObject(&BmpBlack); // 选 中 黑色 位 图 
/绘制 黑色 棋子 


pDC-»StretchBlt(pNode-»m Point.x-nPosX,pNode-»m Point.y-nPosY, 
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nBmpWidth,nBmpHeight,&memDC,0,0,nBmpWidth,nBmpHeight,SRCCOPY); 
} 
else if (pNode->m_Color == ncUNKOWN) /棋子 颜色 位 置 
í 
memDC.SelectObject(&BmpBK); // 选 中 背景 颜色 
/绘制 背景 颜色 取消 原来 显示 的 棋子 
pDC-»StretchBlt(pNode-»m Point.x-nPosX,pNode-»m Point.y-nPosY, 
nBmpWidth,nBmpHeight,&memDC,0,0,nBmpWidth,nBmpHeight,SRCCOPY); 
/绘制 棋盘 的 局 部 表格 
/首先 获取 中 心 点 坐标 
int nCenterX = pNode-»m Point.x ; /获取 棋子 坐标 
int nCenterY = pNode->m_Point.y; 
CPoint topPT(nCenterX,nCenterY-nPosY); 
CPoint bottomPT(nCenterX,nCenterY-nPosY + 5); 


CPen pen(PS SOLID, 1,RGB(0,0,0)); /定义 黑色 画笔 
pDC-»SelectObject(&pen); // 选 中 画笔 
pDC-»MoveTo(topPT); /绘制 直线 


pDC-»LineTo(bottomPT); 
CPoint leftPT(nCenterX-nPosX,nCenterY); 
CPoint rightPT(nCenterX*nPosX + 10 ,nCenterY); 
pDC-»MoveTo(leftPT); /| 绘制 横 线 
pDC-»LineTo(rightPT); 
) 
/延迟 
SYSTEMTIME beginTime,endTime; 
GetSystemTime(&beginTime); 
if (DbeginTime.wSecond > 58) 
beginTime.wSecond - 58; 
while (true) // 进 行 延迟 操作 
{ 
MSG msg; // 在 回放 过 程 中 相应 的 界面 操作 
::GetMessage(&msg,0,0,WM_USER); 
TranslateMessage(&msg); 
DispatchMessage(&msg); 
GetSystemTime(&endTime); 
if (endTime.wSecond ==0 ) 
endTime.wSecond = 59; 
if (endTime.wSecond > beginTime.wSecond) 


break; 
$ 
BmpWhite.DeleteObject(); /释放 位 图 对 象 
BmpBlack.DeleteObject(); 
BmpBK.DeleteObject(); 
memDC.DeleteDC(); /释放 内 存 设备 上 下 文 


MessageBox(" 游 戏 回放 结束 "," 提 示 "); 
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(5) 在 窗口 需要 绘制 时 CWM. PAINT 消息 处 理 函数 中 ) ， 如 果 当 前 处 于 回放 状态 ， 则 保持 回放 
的 效果 。 





if (m bBackPlay) 


{ 


POSITION pos = NULL; 
for(pos = m BackPlayList.GetHeadPosition(); pos != NULL;) 


{ 


NODE* pNode = (NODE*)m_BackPlayList.GetNext(pos); 
if (QNode-»m IsUsed--TRUE) 


{ 


int nPosX,nPosY; 

nPosX = 10*m fRateX; 

nPosY - 10*m fRateY; 

if (pNode-»m Color == ncWHITE) 


( 


} 


memDC.SelectObject(&BmpWhite); 


/| 绘制 白色 棋子 


// 当 前 是 否 为 游戏 回放 


/遍历 回放 链表 


1/ 获取 节点 
/| 判断 节点 是 否 被 使 用 


// 如 果 为 白色 棋子 
// 选 中 白色 棋子 位 图 


pDC->StretchBlt(pNode->m_Point.x-nPosX,pNode->m_Point.y-nPosY, 
nBmpWidth,nBmpHeight,&memDC,0,0,nBmpWidth,nBmpHeight,SRCCOPY); 


else if (pNode-»m Color == ncBLACK) 


( 


) 


memDC.SelectObject(&BmpBlack); 
/绘制 黑色 棋子 


// 如 果 为 黑色 棋子 
// 选 中 黑色 棋子 位 图 


pDC->StretchBIt(pNode->m_Point.x-nPosX,pNode->m_Point.y-nPosY, 
nBmpWidth,nBmpHeight,&memDC.,0,0,nBmpWidth,nBmpHeight,SRCCOPY); 


else if (pNode-»m Color == ncUNKOWN) 


( 


membDC.SelectObject(&BmpBK); 
/绘制 背景 位 图 


// 棋 子 颜色 未 知 
// 选 中 背景 位 图 


pDC-»StretchBlt(pNode-»m Point.x-nPosX,pNode-»m Point.y-nPosY, 
nBmpWidth,nBmpHeight,&memDC,0,0,nBmpWidth,nBmpHeight,SRCCOPY); 


/绘制 棋盘 的 局 部 表格 ， 首 先 获取 中 心 点 坐标 
int nCenterX = pNode->m_Point.x ; 

int nCenterY = pNode-»m Point.y; 

CPoint topPT(nCenterX,nCenterY-nPosY ); 


CPoint bottomPT(nCenterX,nCenterY-*nPosY + 5); 


CPen pen(PS. SOLID, 1, RGB(0,0,0)); 
pDC-»SelectObject(&pen); 
pDC-»MoveTo(topPT); 

pDC-»LineTo(bottomPT); 

CPoint leftPT(nCenterX-nPosX,nCenterY); 
CPoint rightPT(nCenterX*nPosX + 10 ,nCenterY); 
pDC-»MoveTo(leftPT); 


/定义 黑色 画笔 
/选中 画笔 
// 绘 制 直线 


// 绘 制 横 线 
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pDC->LineTo(rightPT); 





10.4.8 “对方 网 络 状态 测试 


在 进行 游戏 的 过 程 中 ， 为 了 防止 由 于 网 络 故障 或 某 一 方 掉 线 致使 游戏 无 法 结束 或 无 法 重新 开始 ， 
于 是 在 网 络 五 子 棋 模块 中 添加 了 网 络 状态 测试 功能 。 实 现 网 络 状态 测试 功能 比较 简单 ， 在 游戏 开始 后 ， 
由 服务 器 方 每 隔 1 秒 向 对 方 发 送 网 络 状态 测试 信息 ， 然 后 开启 一 个 计时 器 ， 对 方 在 接收 到 网 络 状态 测 
试 信息 后 发 送 应 答 信息 到 服务 器 。 在 服务 器 端 ， 如 果 3 秒 后 没有 收 到 应 答 信息 ， 则 表示 与 对 方 失去 连 
接 ， 当 前 游戏 结束 。 在 客户 端 ， 如 果 3 秒 后 没有 收 到 服务 器 端 发 来 的 网 络 状态 测试 信息 ， 则 认为 与 对 
方 失去 连接 ， 当 前 游戏 结束 。 关 键 代码 如 下 。 

COD 在 游戏 过 程 中 ， 服 务 器 端 每 隔 1 秒 发 送 网 络 状态 测试 信息 。 


void CChessBorad::OnTimer(UINT nIDEvent) 





if (m IsConnect) /客户 已 连接 服务 器 

t 
TCP. PACKAGE tcpPackage; /定义 数据 包 
tcpPackage.cmdType = CT. NETTEST; /设置 数据 包 类 型 
m_ClientSock.Send(&tcpPackage,sizeof(TCP_PACKAGE)); /发 送 网 络 测试 信息 
m TestNum**; // 累 加 计数 
if (m_TestNum > 3) // 对 方 掉 线 ， 游 戏 结束 


{ 
m_TestNum = 0; 
m IsDown = FALSE; 
m IsStart = FALSE; 
m IsWin = FALSE; 
m State = esEND; 
m IsConnect = FALSE; 
InitializeNode(); /初始 化 棋子 
/获取 父 窗口 
CSrvFiveChessDlg * pDlg = (CSrvFiveChessDlg*)GetParent(); 
pDlg->m_RightPanel.m_NetState.SetWindowText(" 网 路 状态 : 断 开 连 接 "); 
Invalidate(); // 更 新 界面 
/初始 化 最 近 放 置 的 棋子 坐标 
m_LocalChessPT.x = m_LocalChessPT.y = -1; 
m RemoteChessPT.x = m RemoteChessPT y = -1; 
) 


) 
CDialog::OnTimer(nIDEvent); 


} 
e. 
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(2) 游戏 开始 时 ， 在 客户 端 开 启 一 个 定时 器 ， 检 测 是 否 收 到 服务 器 端的 网 络 状态 测试 信息 。 


void CChessBorad::OnTimer(UINT nIDEvent) 


if (m IsConnect) 
m TestNum**; // 累 加 计数 
if (m_TestNum > 3) // 与 对 方 断 开 连 接 


í 
m_TestNum = 0; 
m_lsConnect = FALSE; 
m IsDown = FALSE; 
m IsStart = FALSE; 
m IsWin = FALSE; 
m State = esEND; 
m IsConnect = FALSE; 
InitializeNode(); /初始 化 所 有 棋子 
CClientFiveChessDlg * pDlg = (CClientFiveChessDlg*)GetParent(); 
pDlg->m_RightPanel.m_NetState.SetWindowText(" 网 路 状态 : 断 开 连 接 "); 
Invalidate(); // 更 新 界面 
m_LocalChessPT.x = m LocalChessPT y = -1; /初始 化 最 近 放置 的 棋子 坐标 
m_RemoteChessPT.x = m_RemoteChessPT.y = -1; 

) 


) 
CDialog::OnTimer(nIDEvent); 
) 


G) 在 客户 端 ， 如 果 收 到 服务 器 端的 网 络 状态 测试 信息 ， 则 将 计数 器 归 零 。 








TCP_PACKAGE tcpPackage; /定义 数据 包 
memcpy(&tcpPackage,pBuffer,sizeof(TCP_PACKAGE)); /复制 数据 包 
if (tcpPackage.cmdType == CT_NETTEST) /测试 网 络 状态 
( 
m TestNum = 0; /接收 到 网 络 状态 测试 ， 计 数 为 0 
/向 服务 器 发 送 网 络 状态 测试 信息 


m ClientSoc k.Send(&tcpPackage,sizeof(TCP PACKAGE)); 





10.5 服务 器 端 主 窗 体 设 计 








视频 讲解 


10.5.1 服务 器 端 主 窗 体 概述 


服务 器 端的 主 窗 体 主要 由 游戏 控制 窗 体 、 棋 盘 窗 体 和 对 方 信息 窗 体 3 个 子 窗 体 构成 ， 运 行 效果 如 
10.10 所 示 。 
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图 10.10 ”网 络 五 子 棋 服务 器 端 主 窗 体 的 运行 效果 
10.5.2 ”服务 器 端 主 窗 体 实现 过 程 


服务 器 端 主 窗 体 实现 过 程 如 下 : 

(1) 创建 一 个 基于 窗口 的 工程 ， 工 程 名 称 为 SrvFiveChess。 工 程 向 导 将 创建 一 个 默认 的 对 话 框 
类 一 一 CSrvFiveChessDlg， 该 类 将 作为 网 络 五 子 棋 服 务 器 端的 主 窗 体 。 

(2) 定义 3 个 子 窗 体 变量 ， 分 别 表示 游戏 控制 窗 体 、 棋 盘 窗 体 和 对 方 信息 窗 体 (有关 这 3 个 窗 体 
的 设计 过 程 将 在 后 面 几 节 中 进行 介绍 ) 。 





CLeftPanel m_LeftPanel; /游戏 控制 窗 体 
CRightPanel m_RightPanel; // 对 方 信息 窗 体 
CChessBorad m ChessBoard; /棋盘 窗 体 





G) 在 窗口 初始 化 时 创建 游戏 控制 窗 体 、 棋 盘 窗 体 和 对 方 信息 窗 体 ， 并 调整 这 3 个 窗 体 的 大 小 和 
位 置 。 
BOOL CSrvFiveChessDlg::OnlnitDialog() 
{ 
CDialog::OnlnitDialog(); 


ASSERT((IDM ABOUTBOX & 0xFFF0) == IDM. ABOUTBOX); 
ASSERT(IDM. ABOUTBOX < 0xF000); 


CMenu* pSysMenu = GetSystemMenu(FALSE); 
if (pSysMenu != NULL) 


(m, 
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CString strAboutMenu; 
strAboutMenu.LoadString(IDS ABOUTBOX); 
if (IstrAboutMenu.IsEmpty()) 
( 
pSysMenu-»AppendMenu(MF SEPARATOR); 


pSysMenu-»AppendMenu(MF. STRING, IDM. ABOUTBOX, strAboutMenu); 


} 
} 
Setlcon(m_hlcon, TRUE); // 设 置 大 图 标 
Setlcon(m_hlcon, FALSE); /设置 小 图 标 


HMENU hMenu = GetMenu()->GetSafeHmenu(); 
if (AMenu != NULL) 
{ 

m_Menu.AttatchMenu(hMenu); 

m Menu.SetMenultemInfo(&m Menu); 


) 


AfxinitRichEdit(); 

// 创 建 窗口 列表 
m_RightPanel.Create(IDD_RIGHTPANEL_DIALOG,this); 
m_RightPanel.ShowWindow(SW_SHOW); 

CRect wndRC; 

m RightPanel.GetWindowRect(wndRC); 

int nWidth = wndRC.Width(); 


CRect cItRC; /客户 区 域 
GetClientRect(cItRC); 
int nHeight = cItRC.Height(); 


/定义 窗口 列表 显示 的 区 域 

CRect pnIRC; 

pnIRC.left = cItRC.right-nWidth; 
pnIRC.top = 0; 

pnIRC.bottom = nHeight; 
pniRC.right = cItRC.right; 

/显示 窗口 

m RightPanel.MoveWindow(pnIRC); 


// 记 录 右 边 窗口 的 宽度 

int nRightWidth = nWidth; 

// 创 建 左边 的 列表 信息 窗口 

m LeftPanel.Create(IDD LEFTPANEL, DIALOG.this); 
m LeftPanel.ShowWindow(SW SHOW); 


m LeftPanel.GetWindowRect(wndRC); 
nWidth = wndRC.Width(); 
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) 


pniRC.left = 0; 
pnIRC.top = 0; 
pnIRC.bottom = nHeight; 
pnIRC.right = nWidth; 


// 记 录 左 边 窗口 的 宽度 

int nLeftWidth = nWidth; 

/显示 窗口 

m LeftPanel.MoveWindow(pnIRC); 


// 创 建 棋盘 窗口 


m_ChessBoard.Create(IDD_CHESSBORAD_DIALOG,this); 


m_ChessBoard.ShowWindow(SW_SHOW); 
/计算 棋盘 的 显示 区 域 

pnIRC.left = nLeftWidth; 

pnIRC.top = 0; 

pnIRC.bottom = nHeight; 

pniRC.right = cltRC.Width() - nRightWidth; 
m ChessBoard.MoveWindow(pnIRC); 

m bCreatePanel = TRUE; 

return TRUE; 


BOOL CSrvFiveChessDlg::OnlnitDialog() 


“…// 省 略 不 必要 的 代码 


m_RightPanel.Create(IDD_RIGHTPANEL_DIALOG, this); 


m RightPanel.ShowWindow(SW SHOW); 
CRect wndRC; 

m RightPanel.GetWindowRect(wndRC); 
int nWidth = wndRC.Width(); 

CRect cItRC; 

GetClientRect(cItRC); 

int nHeight = cItRC.Height(); 

/定义 对 方 信息 窗口 显示 的 区 域 

CRect pnIRC; 

pnIRC.left = cItRC.right-nWidth; 
pnIRC.top = 0; 

pnlRC.bottom = nHeight; 

pnIRC.right = cItRC.right; 

m RightPanel.MoveWindow(pnIRC); 

int nRightWidth = nWidth; 


m LeftPanel.Create(IDD LEFTPANEL, DIALOG.this); 


m LeftPanel.ShowWindow(SW SHOW); 
m LeftPanel.GetWindowRect(wndRC); 
nWidth 2 wndRC.Width(); 

pnIRC.left = 0; 

pnIRC.top = 0; 

pnIRC.bottom = nHeight; 


/为 左边 窗口 的 宽度 
// 主 窗口 的 高 度 


// 整 个 窗口 的 区 域 去 除 右 边 窗口 的 宽度 


// 创 建 对 方 信息 窗 体 
// 显 示 对 方 信息 窗 体 


// 获 取 窗 体 区 域 
// 获 取 窗 体 宽度 


// 获 取 主 窗 体 客户 区 域 
// 获 取 主 窗 体高 度 


// 设 置 对 方 信息 窗 体 显示 区 域 
// 记 录 右 边 窗 体 的 宽度 

// 创 建 游戏 控制 窗 体 

// 显 示 游戏 控制 窗 体 

// 获 取 游戏 控制 窗 体 区 域 

// 获 取 窗 体 宽度 
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pnIRC.right = nWidth; 
int nLeftWidth = nWidth; 
m LeftPanel.MoveWindow(pnIRC); 


m ChessBoard.Create(IDD CHESSBORAD. DIALOG.fthis); 


m ChessBoard.ShowWindow(SW SHOW); 
/计算 棋盘 的 显示 区 域 

pnIRC.left = nLeftWidth; 

pnIRC.top = 0; 

pnIRC.bottom = nHeight; 

pniRC.right = cItRC.Width() - nRightWidth; 
m ChessBoard.MoveWindow(pnIRC); 

m bCreatePanel = TRUE; 

return TRUE; 


} 


// 记 录 游 戏 控制 窗 体 的 宽度 
// 显 示 游戏 控制 窗 体 

// 创 建 棋盘 窗 体 

// 显 示 棋盘 窗 体 


// 为 游戏 控制 窗 体 的 宽度 
// 主 窗 体 的 高 度 


// 整 个 窗 体 的 区 域 去 除 对 方 信息 窗 体 的 宽度 
/设置 棋盘 窗 体 显示 区 域 


(4) 在 窗口 大 小 改变 时 ， 调 整 游戏 控制 窗 体 、 棋 盘 窗 体 和 对 方 信息 窗 体 的 大 小 和 位 置 。 





void CSrvFiveChessDlg::OnSize(UINT nType, int cx, int cy) 


{ 


CDialog::OnSize(nType, cx, cy); 
if (m_bCreatePanel) 


{ 


CRect wndRC; 

m RightPanel.GetWindowRect(wndRC); 
int nWidth = wndRC.Width(); 

CRect cItRC; 

GetClientRect(cltRC); 

int nHeight = cItRC.Height(); 
/定义 窗口 列表 显示 的 区 域 

CRect pnIRC; 

pnIRC.left = cItRC.right-nWidth; 
pnIRC.top = 0; 

pnIRC.bottom = nHeight; 
pnIRC.right = cItRC.right; 

m RightPanel.MoveWindow(pnIRC); 
int nRightWidth = nWidth; 

m RightPanel.Invalidate(); 
/显示 左边 的 窗口 列表 区 域 

m LeftPanel.GetWindowRect(wndRC); 
nWidth = wndRC.Width(); 

pnIRC.left = 0; 

pnIRC.top = 0; 

pnIRC.bottom = nHeight; 
pnIRC.right = nWidth; 

m LeftPanel.MoveWindow(pnIRC); 
int nLeftWidth = nWidth; 

pnIRC.left = nLeftWidth; 

pnIRC.top = 0; 

pnIRC.bottom = nHeight; 


// 判 断 子 窗 体 是 否 被 创建 
// 获 取 对 方 信息 窗 体 区 域 
// 获 取 对 方 信息 窗 体 宽度 


// 获 取 主 窗 体 客户 区 域 
// 获 取 主 窗 体高 度 


// 设 置 对 方 信息 窗 体 显示 区 域 
// 获 取 对 方 信息 窗 体 宽度 
// 更 新 对 方 信息 窗 体 


/设置 游戏 控制 窗 体 显示 区 域 
/获取 游戏 控制 窗 体 宽度 


/获取 主 窗 体 的 高 度 
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// 整 个 窗 体 的 区 域 去 除 右边 窗 体 的 宽度 

pnIRC.right = cltRC.Width() - nRightWidth; 

m ChessBoard.MoveWindow(pnIRC); // 设 置 棋盘 窗 体 显 示 区 域 
m ChessBoard.Invalidate(); /更 新 棋盘 窗 体 


} 





G) 处 理 窗 口 的 WM_GETMINMAXINFO 消息 ， 限 制 窗口 的 最 小 窗 体 大 小 。 
void CSrvFiveChessDlg::OnGetMinMaxInfo(MINMAXINFO FAR* IpMMI) 
IpMMI-»ptMinTrackSize.x = 800; /限制 窗 体 最 小 宽度 


IpMMI-»ptMinTrackSize.y = 500; // 限 制 窗 体 最 小 高 度 
CDialog::OnGetMinMaxlnfo(IpMMI); 





10.6 棋盘 窗 体 模块 设计 


10.6.1 棋盘 窗 体 模块 概述 


棋盘 窗 体 是 整个 网 络 五 子 棋 模 块 的 核心 。 在 棋盘 窗 体 中 实现 的 主要 功能 包括 接受 客户 端 连接 、 接 
收 客户 端 发 送 的 数据 、 绘 制 棋盘 、 绘 制 棋盘 表格 、 绘 制 棋子 、 赢 棋 判 断 、 网 络 状态 测试 、 开 始 游戏 、 
游戏 回放 等 。 棋 盘 窗 体 的 运行 效果 如 图 10.11 所 示 。 
















































































图 10.11 棋盘 窗 体 的 运行 效果 
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10.6.2 ”棋盘 窗 体 模块 界面 布局 


棋盘 窗 体 界面 布局 如 下 : 
OD 创建 一 个 对 话 框 类 ， 类 名 为 CChessBorad。 
(2) 设置 对 话 框 属性 ， 如 表 10.1 所 示 。 


表 10.1 棋盘 窗 体 属性 设置 








控件 ID 控件 属性 关联 变量 
Style: Child 
IDD CHESSBORAD DIALOG Border: None CChessBorad: m ChessBoard 
Title bar: FALSE 





10.6.3 ”棋盘 窗 体 模 块 实现 过 程 


棋盘 窗 体 模块 实现 过 程 如 下 : 
(1) 向 对 话 框 类 中 添加 AcceptConnection 方法 ， 当 客户 端 有 套 接 字 连接 时 ， 接 受 客户 端的 连接 ， 
记录 客户 端的 全、 端口 号 和 连接 时 间 。 


void CChessBorad::AcceptConnection() 
{ 





m_ClientSock.Close(); /关闭 客户 端 套 接 字 
m SrvSock.Accept(m ClientSock); /接受 客户 端 连接 
m IsConnect = TRUE; 
CSrvFiveChessDlg * pDlg = (CSrvFiveChessDlg*)GetParent(); /获取 主 窗口 
CTime tmNow = CTime::GetCurrentTime(); // 获 取 当 前 时 间 
CString csFormat = tmNow.Format("%H:%M:%S"); 
pDIg->m_RightPanel.m_UserList.SetltemText(0,2,csFormat); 
CString csClientlP; 
UINT nPort; 
m ClientSock.GetSockName(csClientlP,nPort); /获取 客户 端 信息 
if (pDIg-»m RightPanel.m UserList.GetltemCount()«2) 
t 

/向 用 户 列表 中 添加 数据 

int nltem = pDlg-»m RightPanel.m UserList.Insertltem(1,""); 

pDlg-»m RightPanel.m UserList.SetltemText(nltem,1,csClientlP); 

pDlg-»m RightPanel.m UserList.SetltemText(nltem,2,csFormat); 
? 


else 


/设置 用 于 列表 中 的 数据 
pDlig->m_RightPanel.m_UserList.SetltemText(1,1,csClientIP); 
pDlig->m_RightPanel.m_UserList.SetltemText(1,2,csFormat); 
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pDlg->m_RightPanel.m_NetState.SetWindowText(" 网 路 状态 :已 连接 "); 
} 


(2) 向 对 话 框 类 中 添加 DrawChessboard 方法 ， 在 棋盘 位 图 背景 上 绘制 表格 。 


void CChessBorad::DrawChessboard() 
( 





CDC* pDC = GetDC(); /获取 窗口 设备 上 下 文 
CPen pen(PS, SOLID, 1,RGB(0,0,0)); /定义 黑色 的 画笔 
pDC-»SelectObject(&pen); // 选 中 画笔 

int nOriginX = m. nOrginX*m fRateX; /计算 表格 的 起 点 坐标 

int nOriginY = m nOrginY*m fRateY; 

int nCellWidth = m nCellWidth*m fRateX; // 计 算 单元 格 的 宽度 和 高 度 
int nCellHeight = m nCellHeight*m fRateY; 

for (int i = 0; iem nRowCount*1; i++) /绘制 棋盘 中 的 列 


pDC->MoveTo(nOriginX+nCellWidth*(i),nOriginY); 
pDC->LineTo(nOriginX+nCellWidth*(i),nOriginY+m_nRowCount*nCellHeight); 


} 
for (int j = 0; j<m_nColCount+1; j++) /绘制 棋盘 中 的 行 


pDC-»MoveTo(nOriginX ,nOriginY+(j)*nCellHeight); 
pDC-»LineTo(nOriginX *m nColCount*nCellWidth,nOriginY-(j)*nCellHeight); 


} 





G) 向 对 话 框 类 中 添加 FreeBackPlayList 方法 ， 释 放 游戏 回放 使 用 的 链表 。 





void CChessBorad::FreeBackPlayList() 


if (m BackPlayList.GetCount()»0) // 判 断 回放 列表 中 是 否 有 棋子 


{ 
POSITION pos; 
/遍历 回放 列表 
for (pos = m BackPlayList.GetHeadPosition();pos != NULL;) 


{ 
NODE *pNode = (NODE*)m BackPlayList.GetNext(pos); /获取 棋子 


delete pNode; /释放 棋子 


} 
m_BackPlayList.RemoveAll(); // 移 除 所 有 棋子 


) 


(4) 向 对 话 框 类 中 添加 GamePlayBack 方法 ， 实 现 游戏 回放 。 在 游戏 回放 时 遍历 链表 ， 将 链表 中 
的 每 个 棋子 绘制 在 棋盘 中 。 如 果 棋 子 的 颜色 为 ncUNKOWN,. 表示 用 户 进行 了 悔 棋 操 作 , 将 使 用 背景 位 
图 填充 原来 的 棋子 区 域 ， 这 将 导致 棋盘 中 当前 棋子 的 部 分 表格 被 填充 。 因此， 在 绘制 完 背景 位 图 之 后 ， 
还 需要 绘制 部 分 表格 。 


e. 
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void CChessBorad::GamePlayBack() 


{ 


CDC* pDC = GetDC(); // 获 取 窗 口 设 备 上 下 文 
CDC memDC; // 定 义 内 存 设备 上 下 文 
CBitmap BmpWhite,BmpBlack, BmpBK; /定义 棋子 位 图 
memDC.CreateCompatibleDC(pDC); // 创 建 内 存 设备 上 下 文 
BmpBlack.LoadBitmap(IDB_BLACK); // 加 载 棋子 位 图 


BmpWhite.LoadBitmap(IDB. WHITE); 
BmpBK.LoadBitmap(IDB BLANK); 


BITMAP bmplnfo; /定义 位 图 信息 对 象 
BmpBlack.GetBitmap(&bmplnfo); /获取 位 图 信息 
int nBmpWidth = bmplnfo.bmWidth; // 获 取 位 图 宽度 和 高 度 


int nBmpHeight = bmplnfo.bmHeight'; 

POSITION pos = NULL; 

m bBackPlay = FALSE; 

InitBackPlayNode(); /初始 化 回放 列表 
OnPaint(); /刷新 窗口 
m_bBackPlay = TRUE; 

for(pos = m BackPlayList.GetHeadPosition(); pos != NULL;) /遍历 回放 列表 


{ 


NODE* pNode = (NODE*)m BackPlayList.GetNext(pos); // 获 取 棋子 
int nPosX,nPosY; 

nPosX = 10*m fRateX; 

nPosY - 10*m fRateY; 


pNode-»m IsUsed = TRUE; /棋子 被 使 用 

if (pNode-»m Color == ncWHITE) // 如 果 为 白色 棋子 
memDC.SelectObject(&BmpWhite); // 选 中 白色 位 图 
/绘制 白色 棋子 


pDC-»StretchBlt(pNode-»m Point.x-nPosX,pNode-»m Point.y-nPosY, 
nBmpWidth,nBmpHeight,&memDC,0,0,nBmpWidth,nBmpHeight, SRCCOPY); 


) 
else if (pNode-»m Color == ncBLACK) // 如 果 为 黑色 棋子 
{ 

memDC.SelectObject(&BmpBlack); // 选 中 黑色 位 图 

// 绘 制 黑色 棋子 


pDC->StretchBIt(pNode->m_Point.x-nPosX,pNode->m_Point.y-nPosY, 
nBmpWidth,nBmpHeight,&memDC,0,0,nBmpWidth,nBmpHeight, SRCCOPY); 
) 
else if (pNode-»m Color == ncUNKOWN) /棋子 颜色 位 置 
{ 
memDC.SelectObject(&BmpBK); // 选 中 背景 颜色 
/绘制 背景 颜色 取消 原来 显示 的 棋子 
pDC-»StretchBlt(pNode-»m Point.x-nPosX,pNode-»m Point.y-nPosY, 
nBmpWidth,nBmpHeight,&memDC,0,0,nBmpWidth,nBmpHeight,SRCCOPY); 
/绘制 棋盘 的 局 部 表格 
/首先 获取 中 心 点 坐标 
int nCenterX = pNode->m_Point.x ; // 获 取 棋 子 坐标 
int nCenterY = pNode->m_Point.y; 
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CPoint topPT(nCenterX,nCenterY-nPosY); 

CPoint bottomPT(nCenterX,nCenterY-nPosY + 5); 
CPen pen(PS SOLID, 1,RGB(0,0,0)); 
pDC-»SelectObject(&pen); 

pDC-»MoveTo(topPT); 

pDC-»LineTo(bottomPT); 

CPoint leftPT(nCenterX-nPosX,nCenterY); 

CPoint rightPT(nCenterX*nPosX + 10 ,nCenterY); 
pDC-»MoveToy(leftPT); 

pDC-»LineTo(rightPT); 


) 
/延迟 
SYSTEMTIME beginTime,endTime; 
GetSystemTime(&beginTime); 
if (beginTime.wSecond > 58) 
beginTime.wSecond - 58; 
while (true) 
{ 
MSG msg; 
::GetMessage(&msg,0,0,WM_USER); 
TranslateMessage(&msg); 
DispatchMessage(&ms9); 
GetSystemTime(&endTime); 
if (endTime.wSecond ==0) 
endTime.wSecond - 59; 
if (endTime.wSecond » beginTime.wSecond) 
break; 


) 


) 

BmpWhite.DeleteObject(); 
BmpBlack.DeleteObject(); 
BmpBK.DeleteObject(); 
memDC.DeleteDC(); 
MessageBox(" 游 戏 回放 结束 ""," 提 示 "); 


/定义 黑色 画笔 
/选中 画笔 
/绘制 直线 


/绘制 横 线 


// 进 行 延迟 操作 
// 在 回放 过 程 中 相应 界面 操作 


// 释 放 位 图 对 象 


/释放 内 存 设备 上 下 文 





C5) 向 对 话 框 类 中 添加 GetLikeNode 方法 ， 根 据 坐 标点 获取 相应 的 棋子 。 


NODE* CChessBorad::GetLikeNode(CPoint pt) 


{ 


CPoint tmp; 
for (inti = 0 ;ixm nRowCount-*1;i-) 
for (int j = 0; jem nColCount*1;j**) 
í 
tmp = m NodeList[i][jJ.m Point; 
int nSizeX = 10 * m fRateX; 
int nSizeY - 10 * m fRateY; 
/定义 一 个 临近 棋子 的 区 域 





/遍历 行 
IRAR 


/获取 棋子 坐标 


CRect rect(tmp.x-nSizeX,tmp.y-nSizeY ,tmp.x+nSizeX,tmp.y+nSizeY); 


if (rect PtinRect(pt) 


// 判 断 鼠 标 指针 是 否 在 临近 区 域 





(m, 
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return &m NodeList[i][j]; // 返 回 棋子 
H 
return NULL; 
H 





(6) 向 对 话 框 类 中 添加 GetNodeFromPoint 方法 ， 根 据 坐 标点 获取 相应 的 棋子 。 与 GetLikeNode 
方法 不 同 的 是 ，GetNodeFromPoint 方法 进行 精确 的 坐标 比较 。 


NODE* CChessBorad::GetNodeFromPoint(CPoint pt) 
{ 


for (int i=0; i<m_nRowCount+1; i++) /遍历 行 
for (int j=0; j<m_nColCount+1; j++) IRAR 
if (m. NodeList[i]lil.m. Point == pt) // 匹 配 棋子 坐标 
return &m_NodeList[i]0]; 1/ 返回 棋子 
) 
1 
return NULL; 


} 
(7) 向 对 话 框 类 中 添加 InitBackPlayNode 方法 ， 初 始 化 游戏 回放 使 用 的 链表 节点 。 








void CChessBorad::InitBackPlayNode() 


POSITION pos; 
for(pos = m BackPlayList.GetHeadPosition(); pos = NULL;) // 人 遍历 回放 列表 


NODE* pNode = (NODE*)m BackPlayList.GetNext(pos); /获取 棋子 
/将 棋子 设置 为 未 使 用 状态 
pNode-»m IsUsed = FALSE; 


) 





(8) 向 对 话 框 类 中 添加 InitializeNode 方法 ， 初 始 化 棋盘 中 的 所 有 棋子 ， 将 其 设置 为 未 使 用 状态 。 


void CChessBorad::InitializeNode() 
t 





for (int i20; iem. nRowCount*1; i++) IRAT 
for (int j=0; j<m_nColCount+1; j++) IRAR 
m_NodeListți]lj].m_Color = ncUNKOWN; /设置 棋子 颜色 
m_NodeList[il].m_nX /设置 棋子 坐标 
m NodeList[i][j].m nY = j; 
} 
} 
OnPaint(); /更 新 窗口 
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C9) 向 对 话 框 类 中 添加 Is Win 方法 ， 判 断 是 否 赢 棋 。 在 判断 五 子 棋 输赢 时 需要 从 水 平方 向 、 垂 直 


方向 和 对 角 线 方向 分 别 进行 判断 。 以 从 垂直 方向 判断 为 例 ， 以 当前 棋子 为 中 心 ， 向 上 方 查找 同一 个 颜 
色 的 棋子 ， 有 则 累加 计数 ， 然 后 从 当前 节点 的 下 方 开始 查找 节点 ， 如 果 有 同一 个 颜色 的 棋子 ， 继 续 累 
加 计数 ， 当 计数 达到 5 时 则 表示 赢 棋 。 


NODE* CChessBorad::IsWin(NODE *pCurrent) 
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{ 


if (pCurrent-»m Color != ncBLACK) 
return NULL; 
// 按 4 个 方向 判断 
int num = 0; 
m Startpt.x = pCurrent-»m nX; 
m Startpt.y = pCurrent-»m nY; 
m Endpt.x = pCurrent-»m nX; 
m Endpt.y = pCurrent-»m nY; 
// 按 垂直 方向 判断 ， 在 当前 节点 按 上 、 下 两 个 方向 遍历 
NODE* tmp = pCurrent-»m pRecents[1]; 
while (tmp != NULL && tmp-»m Color--pCurrent-»m Color) 
t 
m Startpt.x = tmp-»m nX; 
m Startpt.y = tmp-»m nY; 
num += 1; 
if (num >= 4) 


return tmp; 
) 
tmp = tmp-»m pRecents[1]; 
) 
tmp = pCurrent-»m pRecents[6]; 
while (tmp != NULL && tmp-»m Color--pCurrent-»m Color) 
t 
m Endpt.x = tmp-»m nX; 
m Endpt.y = tmp-»m nY; 
num += 1; 
if (num >= 4) 
{ 
return tmp; 
) 
tmp = tmp-»m pRecents[6]; 


) 

// 按 水 平方 向 判断 ， 在 当前 节点 ， 按 左 、 右 两 个 方向 遍历 

num = 0; 

tmp = pCurrent-»m pRecents[3]; 

while (tmp != NULL && tmp-»m Color--pCurrent-»m Color) 
t 


m Startpt.x = tmp-»m nX; 
m Startpt.y = tmp-»m nY; 


/定义 计数 


// 获 得 当前 节点 的 上 方 节点 
// 人 遍历 上 方 节点 


// 累 计 连 续 棋子 数量 
// 是 否 有 5 个 连续 棋子 


// 表 示 赢 棋 ， 返 回 最 后 一 个 棋子 


// 获 得 当前 节点 的 下 方 节点 
// 人 遍历 下 方 节点 


/遍历 左 节 点 
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num += 1; 
if (num >= 4) 
t 
return tmp; 
H 
tmp = tmp-*»m pRecents[3]; 
} 
tmp = pCurrent->m_pRecents[4]; 
while (tmp != NULL && tmp->m_Color==pCurrent->m_Color) 
{ 
m Endpt.x = tmp-»m nX; 
m Endpt.y = tmp-»m nY; 
num += 1; 
if (num >= 4) 
t 
return tmp; 


) 
tmp = tmp-»m pRecents[4]; 


) 
188 135^. NARA 
num = 0; 
tmp = pCurrent-»m pRecents[0]; 
while (tmp != NULL && tmp-»m Color--pCurrent-»m Color) 
t 

m Startpt.x = tmp-»m nX; 

m Startpt.y = tmp-»m nY; 

num += 1; 

if (num >= 4) 

{ 

return tmp; 

) 

tmp = tmp-»m pRecents[0]; 
) 
tmp = pCurrent-»m pRecents[7]; 
while (tmp != NULL && tmp-»m Color--pCurrent-»m Color) 
t 

m Endpt.x = tmp-»m nX; 

m Endpt.y = tmp-»m nY; 

num += 1; 

if (num >= 4) 

t 

return tmp; 


) 
tmp = tmp-»m pRecents[7]; 


) 

I1H£ 45* HAEA 

num = 0; 

tmp = pCurrent-»m pRecents[2]; 

while (tmp != NULL && tmp-»m Color--pCurrent-»m Color) 


// 累 加 连续 棋子 数量 
/是 否 有 5 个 连续 棋子 


/人 遍历 右 节点 


// 人 遍历 斜 上 方 节点 


// 累 加 连续 棋子 数量 
// 是 否 有 5 个 连续 棋子 


// 表 示 赢 棋 ， 返 回 最 后 一 个 棋子 


// 人 遍历 斜 下 方 节点 


// 累 加 连续 棋子 数量 
// 是 否 有 5 个 连续 棋子 


// 表 示 赢 棋 ， 返 回 最 后 一 个 棋子 


/遍历 斜 上 方 节点 
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} 


{ 
m Startpt.x = tmp-»m nX; 
m Startpt.y = tmp-»m nY; 


num += 1; // 累 加 连续 棋子 数量 
if (num >= 4) // 是 否 有 5 个 连续 棋子 
t 
return tmp; /表示 赢 棋 ， 返 回 最 后 一 个 棋子 
} 
tmp = tmp->m_pRecents[2]; 
} 
tmp = pCurrent-»m pRecents[5]; /| 遍历 斜 下 方 节点 
while (tmp != NULL && tmp-»m Color--pCurrent-»m Color) 
t 


m Endpt.x- tmp-»m nX; 
m Endpt.y = tmp-»m nY; 


num += 1; // 累 加 连续 棋子 数量 
if (num >= 4) // 是 否 有 5 个 连续 棋子 
return tmp; /表示 赢 棋 ， 返 回 最 后 一 个 棋子 
AR =tmp->m_pRecents[5]; 
tim NULL; 





(10) 在 对 话 框 初始 化 时 创建 套 接 字 ， 初 始 化 棋子 ， 设 置 棋子 坐标 。 





BOOL CChessBorad::OnlnitDialog() 


( 


em 


CDialog::OnlnitDialog(); 


int nOriginX = m. nOrginX*m fRateX; // 计 算 表 格 起 点 坐标 
int nOriginY = m nOrginY*m fRateY; 
int nCellWidth = m nCellWidth*m fRateX; // 计 算 表 格 单元 格 宽度 


int nCellHeight = m nCellHeight*m fRateY; 
m ClientSock.AttachDlg(this); 
m SrvSock.AttachDlg(this); 


m ClientSock.Create(); /创建 套 接 字 
InitializeNode(); /初始 化 棋子 
for (int i=0; i<m_nRowCount+1; i++) 
{ 
for (int j-0; j<m_nColCount+1; j++) 
// 设 置 棋子 坐标 
m_NodeList[il0].m_Point= CPoint(nOriginX*nCellWidth*j,nOriginY-*nCellHeight*i); 
} 
} 
for (int m=0; m<m_nRowCount+1; m++) /为 每 个 棋子 设置 临近 节点 
{ 


for (int n=0; n<m_nColCount+1; n++) 
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{ 
SetRecentNode(&m NodeList[m][n]); 


) 


) 
return TRUE; 
) 





(11) 在 游戏 开始 时 ， 如 果 轮 到 用 户 下 棋 ， 则 在 当前 鼠标 附近 与 鼠标 点 最 近 的 棋子 坐标 点 ) 添 
加 一 个 棋子 ， 并 向 对 方 发 送 该 棋子 的 坐标 。 


void CChessBorad::OnLButtonUp(UINT nFlags, CPoint point) 
{ 





CPoint pt = point; 


if (m. IsStart == FALSE) /游戏 终止 
return; 
if (m IsDown--TRUE) // 轮 到 客户 端 

NODE* node = GetLikeNode(pt); /根据 坐标 获取 棋子 

if (node !=NULL) 

{ 

if (node->m_Color==ncUNKOWN) // 如 果 棋子 被 使 用 
t 

node-»m Color = ncBLACK; // 设 置 棋子 颜色 
NODE *pNode = new NODE(); // 定 义 棋子 
memcpy(pNode,node,sizeof(NODE)); /复制 棋子 
m BackPlayList.AddTail(pNode); /将 棋子 添加 到 回放 列表 中 
OnPaint(); // 更 新 窗口 
TCP_PACKAGE package; // 定 义 一 个 TCP 数据 包 
package.cmdType = CT. POINT; // 设 置 数据 包 命 令 类 型 
package.chessPT.x = node->m_nX; // 读 取 棋 子 坐标 
package.chessPT.y = node-»m nY; 
// 将 棋子 坐标 发 送 到 对 方 
m_ClientSock.Send((void*)&package,sizeof(TCP_PACKAGE)); 
m_LocalChessPT.x = node-»m nX; // 记 录 最 近 的 棋子 坐标 


m_LocalChessPT.y = node->m_nY; 
m IsDown- FALSE; 


if (IsWin(node)!= NULL) /进行 赢 棋 判断 

t 
m IsStart = FALSE; 
Sleep(1000); 
// 赢 棋 
TCP PACKAGE winPackage; /定义 数据 包 
winPackage.cmdType = CT. WINPOINT; Ing Sd e dp S aen 
winPackage.winPT[0] = m Startpt; IH RERRAR BO pa 
winPackage.winPT[1] = m Endpt; // 设 置 赢 棋 的 终点 坐标 
// 发 送 赢 棋 数 据 包 


m ClientSock.Send((void*)&winPackage,sizeof(TCP PACKAGE)); 
m IsWin = TRUE; 
m State = esEND; /设置 游戏 结束 
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Invalidate(); /更 新 窗口 
MessageBox(" 葵 喜 你 , 赢 了 山 "); 
m IsWin = FALSE; 


InitializeNode(); /初始 化 节点 
Invalidate(); /更 新 窗口 
/初始 化 用 户 最 近 放 置 的 棋子 坐标 


m_LocalChessPT.x = m_LocalChessPT.y = -1; 
m RemoteChessPT.x = m RemoteChessPT.y --1; 


) 


) 
CDialog::OnLButtonUp(nFlags, point); 
) 


(12) 处 理 “ 服 务 器 设置 ”菜单 命令 的 单 击 事件 ， 设 置 服务 器 的 地 址 和 端口 号 ， 然 后 将 信息 添加 
到 对 方 信息 窗 体 的 用 户 列表 中 。 


void CChessBorad::OnMenuSvrSetting() 





CServerSetting SrvDlg; /定义 服务 器 设置 对 话 框 
if (m ConfigSrv == FALSE) /没有 配置 服务 器 
if (SrvDIg.DoModal()--IDOK) 
{ 
UINT port = SrvDlg.m Port; /获取 端口 信息 
/获取 主 窗口 
CSrvFiveChessDlg * pDlg = (CSrvFiveChessDlg*)GetParent(); 
/创建 并 监听 套 接 字 
if (m SrvSock.Create(portSOCK STREAM,SrvDlg.m HostlP) && m SrvSock.Listen()) 
{ 
m ConfigSrv = TRUE; /服务 器 信息 已 设置 
/向 用 户 列表 中 添加 新 行 


int nltem = pDlg-»m RightPanel.m UserList.Insertltem(0,""); 
if (SrvDIg.m NickName.IsEmpty()) 
SrvDlg.m NickName = "匿名 "; 
// 设 置 用 户 信息 
pDlg-»m RightPanel.m UserList.SetltemText(nltem,0,SrvDlg.m NickName); 
pDlg-»m RightPanel.m UserList.SetltemText(nltem,1,SrvDlg.m HostlP); 
CString csUser = "rn 昵称 :"; 
csUser += SrvDlg.m NickName; 
csUser += "nn"; 
csUser += "IP:": 
csUser += SrvDlg.m HostlP; 
pDlg-»m RightPanel.m User.SetWindowText(csUser); 
MessageBox(" 服 务 器 设置 成 功 "," 提 示 "); 


e. 
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m_ConfigSrv = FALSE; 
MessageBox(" 服 务 器 设置 失败 "," 提 示 "); 
} pm 
-" 
MessageBox(" 已 经 配置 了 服务 器 信息 !"," 提 示 "); 
} 
(13) 处 理 对 话 框 的 WM_SIZE 消息 ， 在 窗口 大 小 改变 时 调整 棋子 的 坐标 。 


void CChessBorad::OnSize(UINT nType, int cx, int cy) 
{ 

CDialog::OnSize(nType, cx, cy 

[ISI NER IBARRA LEA 


CRect cItRC; 

GetClientRect(cltRC); // 获 取 窗 口 客户 区 域 

m fRateX = cltRC.Width() / (double)m_nBmpWidth; // 计 算 新 的 缩放 比例 

m fRateY = cltRC.Height() / (double)m_nBmpHeight; 

int nOriginX = m. nOrginX*m fRateX; // 计 算 表格 新 的 起 点 坐标 


int nOriginY = m. nOrginY*m fRateY; 


int nCellWidth = m nCellWidth*m fRateX; // 计 算 表格 单元 格 新 的 宽度 和 高 度 


int nCellHeight = m nCellHeight*m fRateY; 
for (int i0; iem nRowCount*1; i++) /重新 设置 棋子 的 坐标 


for (int j-0; jam nColCount*1; j++) 


m NodeList[i]jJ.m Pointe CPoint(nOriginX*nCellWidth*j,nOriginY-*nCellHeight*i); 
) 


) 

POSITION pos; 

Th Fs [eC 

for(pos = m BackPlayList.GetHeadPosition(); pos != NULL;) 


{ 
/获取 回 放 列 表 中 的 棋子 
NODE* pNode = (NODE*)m BackPlayList.GetNext(pos); 
pNode-»m Point- CPoint(nOriginX*nCellWidth*pNode-»m nY, 
nOriginY*nCellHeight*pNode-»m nX); IH EAT s 


) 


C14). 处 理 对 话 框 的 WM. TIMER 消息 ， 定 时 向 客户 端 发 送 网 络 状态 测试 信息 ， 检 测 对 方 是 否 在 线 。 


void CChessBorad::OnTimer(UINT nIDEvent) 


if (m IsConnect) 
1 
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TCP PACKAGE tcpPackage; /定义 数据 包 
tcpPackage.cmdType = CT. NETTEST; /设置 数据 包 类 型 
m_ClientSock.Send(&tcpPackage,sizeof(TCP_PACKAGE)); /发 送 网 络 测试 信息 
m_TestNum++; 
if (m_TestNum > 3) // 对 方 掉 线 ， 游 戏 结束 
ji 
m TestNum = 0; 
m IsDown = FALSE; 
m IsStart = FALSE; 
m IsWin = FALSE; 
m State = esEND; 
m IsConnect = FALSE; 
InitializeNode(); /初始 化 节点 
CSrvFiveChessDlg * pDlg = (CSrvFiveChessDlg*)GetParent(); 
pDlg-»m RightPanel.m NetState.SetWindowText(" Pl 81A 255: Mi IREE"); 
Invalidate(); // 更 新 界面 
/初始 化 用 户 最 近 放 置 的 棋子 坐标 
m_LocalChessPT.x = m_LocalChessPT.y = -1; 
m RemoteChessPT.x = m RemoteChessPT y = -1; 
) 
) 
CDialog::OnTimer(nIDEvent); 





(15). 向 对 话 框 类 中 添加 ReceiveData 方法 ， 接 收 客户 端 发 来 的 数据 ， 根 据 数据 包 格式 解析 数据 ， 
并 进行 相应 处 理 。 





void CChessBorad::ReceiveData() 


í 


(m, 


BYTE* pBuffer = new BYTE[sizeof(TCP PACKAGEJJ; /定义 数据 缓冲 区 
/接收 数据 
int factlen = m. ClientSock.Receive(pBuffer,sizeof(TCP PACKAGE)); 
if (factlen == sizeof(TCP. PACKAGE)) // 判 断 数据 包 是 否 完整 
t 
TCP. PACKAGE tcpPackage; /定义 数据 包 
memcpy(&tcpPackage,pBuffer,sizeof(TCP_PACKAGE)); // 复 制 信息 到 数据 包 
if (tcpPackage.cmdType == CT. NETTEST) // 测 试 网 络 状 态 


t 
m TestNum = 0; 
CSrvFiveChessDlg * pDlg = (CSrvFiveChessDlg*)GetParent(); 
pDlg->m_RightPanel.m_NetState.SetWindowText(" 网 络 状态 :已 连接 "); 
m_lsConnect = TRUE; 
) 
else if (ttpPackage.cmdType == CT. BEGINGAME) /开始 游戏 
t 
CSrvFiveChessDlg *pDlg = (CSrvFiveChessDlg*)GetParent(); 
pDlg-»m RightPanel.m UserList.SetltemText(1,0,tcpPackage.chText) // 设 置 用 户 昵 称 
Start(); 
CString csNickName; 
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) 


csNickName = pDlg-»m RightPanel.m UserList.GetltemText(0,0); 


if (csNickName.IsEmpty()) 

csNickName = "匿名 "; 
strncpy(tcpPackage.chText,csNickName,512); 
/向 对 方 发 送 昵称 


/复制 昵称 


m_ClientSock.Send(&tcpPackage,sizeof(TCP_PACKAGE)); 


m_TestNum = 0; 

KillTimer(1); 

SetTimer(1,2000,NULL); 

m State = esBEGIN; 

/初始 化 用 户 放置 的 最 近 棋 子 坐标 
m_LocalChessPT.x = m_LocalChessPT.y = -1; 
m_RemoteChessPT.x = m_RemoteChessPT.y = -1; 
FreeBackPlayList(); 

m_bBackPlay = FALSE; 


else if (tcpPackage.cmdType == CT. POINT) 


{ 


int nX = tcpPackage.chessPT x; 

int nY = tcpPackage.chessPT.y; 

m NodeList[nX][nY].m Color = ncWHITE; 
NODE *pNode = new NODE(); 


memcpy(pNode,&m NodeList[nX][nY], sizeof(NODE)); 


m BackPlayList.AddTail(pNode); 
/记录 对 方 放置 的 棋子 坐标 

m RemoteChessPT.x = nX; 

m RemoteChessPT.y - nY; 
OnPaint(); 

m IsDown = TRUE; 


) 
/客户 端 赢 了 ， 客 户 端 棋子 起 点 和 终点 坐标 信息 
else if (tcpPackage.cmdType == CT_WINPOINT) 


( 


int nStartX = tcpPackage.winPT[0].x; 
int nStartY = tcpPackage.winPT[0].y; 
int nEndX = tcpPackage.winPT[1].x; 
int nEndY = tcpPackage.winPT[1].y; 
m Startpt = tcpPackage.winPT[0]; 

m Endpt = tcpPackage.winPT[1]; 

m IsDown = FALSE; 

m IsStart = FALSE; 

m IsWin = TRUE; 

m State = esEND; 

Invalidate(); 
MessageBox(" rfi T 1"); 

m IsWin = FALSE; 

InitializeNode(); 

Invalidate(); 


/初始 化 用 户 放置 的 最 近 节 点 坐标 


/| 结束 计时 器 
/开始 新 的 网 络 测试 
/设置 游戏 开始 状态 


/释放 回放 列表 


/客户 端 棋子 坐标 信息 
// 读 取 棋 子 坐标 


// 设 置 棋子 颜色 

// 定 义 棋子 

// 复 制 棋子 

// 将 棋子 添加 到 回放 列表 中 


// 读 取 赢 棋 的 起 点 和 终点 坐标 


/设置 赢 棋 的 起 点 
/设置 赢 棋 的 终点 


/设置 赢 棋 标记 
/设置 游戏 结束 标记 
/更 新 窗口 


/初始 化 节点 
// 更 新 窗口 
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m_LocalChessPT.x = m_LocalChessPT.y = -1; 
m_RemoteChessPT.x = m_RemoteChessPT.y = -1; 

H 

else if (ttpPackage.cmdType == CT. TEXT) /文本 信息 

{ 
CSrvFiveChessDlg *pDlg = (CSrvFiveChessDlg*)GetParent(); 
/获取 对 方 昵 称 
CString csNickName = pDlg-»m RightPanel.m UserList.GetltemText(1,0); 
CString csText = csNickName; 
csText += "说 :"; 
csText *- tcpPackage.chText; // 读 取 文 本 信息 
pDIg->m_RightPanel.m_MsgList.SetSel(-1,-1); 
/在 文本 框 中 添加 文本 数据 
pDIg->m_RightPanel.m_MsgList.ReplaceSel(csText); 
pDlg-»m RightPanel.m MsgList.SetSel(-1,-1); 
pDlg-»m RightPanel.m MsgList.ReplaceSel("n"); 


) 
else if (tepPackage.cmdType == CT. BACKDENY) // 对 方 拒 绝 悔 棋 


{ 
MessageBox(" 对 方 拒绝 悔 棋 "," 提 示 "); 


) 
else if (ttpPackage.cmdType == CT BACKACCEPTANCE) ” /对方 同意 悔 棋 
t 
CSrvFiveChessDlg *pDlg = (CSrvFiveChessDIg*)GetParent(); 
// 判 断 是 否 轮 到 本 地 用 户 下 棋 了 ， 如 果 是 则 需要 撤销 之 前 对 方 下 的 棋子 ， 然 后 再 撤销 本 地 用 户 下 的 棋子 
if (pDIg->m_ChessBoard.m_IsDown==TRUE) // 该 用 户 下 棋 
{ 
/获取 对 方 最 近 放 置 的 棋子 坐标 
int nPosX = m_RemoteChessPT.x; 
int nPosY = m RemoteChessPT.y; 
if (nPosX » -1 && nPosY » -1) 


/设置 棋子 颜色 未 知 
m NodeList[nPosX][nPosY].m Color = ncUNKOWN; 
NODE *pNode = new NODE(); /定义 棋子 
/复制 棋子 信息 
memcpy(pNode,&m NodeList[nPosX][nPosY],sizeof(NODE)); 
m  BackPlayList.AddTail(pNode); /将 棋子 添加 到 回放 列表 中 
} 
nPosX = m LocalChessPT.x; // 获 取 用 户 最 近 放 置 的 棋子 坐标 


nPosY = m LocalChessPT y; 
if (nPosX » -1 && nPosY » -1) 
{ 


/设置 棋子 颜色 未 知 

m NodeList[nPosX][nPosY].m Color = ncUNKOWN; 

NODE *pNode = new NODE(); /定义 棋子 
/复制 棋子 信息 


memcpy(pNode,&m NodeList[nPosX][nPosY],sizeof(NODE)); 
m BackPlayList.AddTail(pNode); /将 棋子 添加 到 回放 列表 
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Invalidate(); /刷新 窗口 
else // 轮 到 对 方 下 棋 了 ， 只 撤销 本 地 用 户 下 的 棋子 
{ 

/获取 用 户 最 近 放 置 的 棋子 坐标 


int nPosX = m_LocalChessPT.x; 
int nPosY = m LocalChessPT y; 
if (nPosX » -1 && nPosY » -1) 

i; 


/设置 棋子 颜色 未 知 

m_NodeList[nPosX][nPosY].m_Color = ncUNKOWN; 

NODE *pNode = new NODE(); /定义 棋子 

/复制 棋子 信息 

memcpy(pNode,&m NodeList[nPosX][nPosY],sizeof(NODE)); 

m BackPlayList.AddTail(pNode); /将 棋子 添加 到 回放 列表 中 
Invalidate(); /刷新 窗口 

m IsDown = TRUE; // 轮 到 用 户 下 棋 了 


) 


) 

/初始 化 用 户 最 近 放 置 的 棋子 坐标 和 对 方 最 近 放 置 的 棋子 坐标 
m LocalChessPT.x - -1; 

m LocalChessPT.y H 
m_RemoteChessPT. ^ 
m RemoteChessPT y - -1; 





) 
else if (tepPackage.cmdType == CT BACKREQUEST) /| 对方 发 送 悔 棋 请 求 
{ 
if (MessageBox(" 是 否 同 意 悔 棋 ?"," 提 示 ",MB_YESNO)==IDYES) 
{ 
CSrvFiveChessDlg *pDlg = (CSrvFiveChessDIg*)GetParent(); 
tcpPackage.cmdType = CT. BACKACCEPTANCE;  //j£5H&iR 


/发 送 接收 悔 棋 数据 包 
m_ClientSock.Send(&tcpPackage,sizeof(TCP_PACKAGE)); 
// 进 行 本 地 的 悔 棋 处 理 
if (m IsDown--TRUE) // 该 用 户 下 棋 了 ， 只 需要 撤销 一 步 
t 
int nPosX = m. RemoteChessPT.x; /获取 对 方 最 近 放 置 的 棋子 坐标 


int nPosY = m RemoteChessPT.y; 
if (nPosX » -1 && nPosY » -1) 
{ 


/设置 棋子 颜色 未 知 

m NodeList[nPosX][nPosY].m Color = ncUNKOWN; 

NODE *pNode = new NODE(); /定义 棋子 

/复制 棋子 信息 

memcpy(pNode,&m NodeList[nPosX][nPosY],sizeof(NODE)); 

m BackPlayList.AddTail(pNode); /将 棋子 添加 到 回放 列表 中 
Invalidate(); /刷新 窗口 
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m IsDown = FALSE; 


else /该 对 方 下 棋 了 ， 需 要 撤销 两 步 
/获取 用 户 最 近 放 置 的 棋子 坐标 
int nPosX = m LocalChessPT.x; 
int nPosY = m LocalChessPT.y; 
if (nPosX » -1 && nPosY » -1) 
í 


/设置 棋子 颜色 未 知 
m NodeList[nPosX][nPosY].m Color = ncUNKOWN; 
NODE *pNode = new NODE(); /定义 棋子 
/复制 棋子 信息 
memcpy(pNode,&m_NodeList[nPosX][nPosY],sizeof(NODE)); 
m_BackPlayList.AddTail(pNode); /将 棋子 添加 到 回放 列表 中 
) 
// 获 取 对 方 最 近 放 置 的 棋子 坐标 


nPosX = m RemoteChessPT.x; 
nPosY = m RemoteChessPT.y; 
if (nPosX » -1 && nPosY » -1) 

{ 


/设置 棋子 颜色 未 知 

m NodeList[nPosX][nPosY].m Color = ncUNKOWN; 

NODE *pNode = new NODE(); /定义 棋子 

/复制 棋子 信息 

memcpy(pNode,&m NodeList[nPosX][nPosY],sizeof(NODE)); 

m BackPlayList.AddTail(pNode); /将 棋子 添加 到 回放 列表 中 
) 
Invalidate(); /刷新 窗口 


) 

// 初 始 化 用 户 最 近 放 置 的 棋子 坐标 和 对 方 最 近 放置 的 棋子 坐标 

m LocalChessPT x = -1; 

m LocalChessPT y = -1; 

m RemoteChessPT x = -1; 

m RemoteChessPT y = -1; 
) 






else /拒绝 悔 棋 
{ 
tcpPackage.cmdType = CT. BACKDENY; // 设 置 拒绝 回放 
// 发 送 拒绝 回放 数据 包 
m_ClientSock.Send(&tcpPackage,sizeof(TCP_PACKAGE)); 
H 
} 
// 对 方 接收 和 棋 请 求 


else if (tcpPackage.cmdType == CT_DRAWCHESSACCEPTANCE) 


/获取 主 对 话 框 
CSrvFiveChessDlg *pDlg = (CSrvFiveChessDlg*)GetParent(); 
/进行 和 棋 处 理 ， 游 戏 结束 





@ 
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m TestNum = 0; 

m IsDown = FALSE; 

m IsStart = FALSE; 

m IsWin = FALSE; 

m State = esEND; 

InitializeNode(); IAS CREE 
Invalidate(); // 更 新 界面 
// 初 始 化 用 户 最 近 放 置 的 棋子 坐标 和 对 方 最 近 放置 的 棋子 坐标 
m_LocalChessPT.x = m_LocalChessPT.y = -1; 
m_RemoteChessPT.x = m_RemoteChessPT.y = -1; 
MessageBox(" 对 方 同意 和 棋 !"," 提 示 "); 


} 
else if (tcpPackage.cmdType == CT_DRAWCHESSDENY) // 对 方 拒绝 和 横 
{ 

MessageBox(" 对 方 拒绝 了 和 棋 "," 提 示 "); 


} 
else if (tcpPackage.cmdType == CT_DRAWCHESSREQUEST)/ 对 方 发 出 和 棋 请 求 
{ 
CSrvFiveChessDlg *pDlg = (CSrvFiveChessDlg*)GetParent(); 
if (MessageBox(" 对 方 要 求 和 棋 ， 是 否 同意 和 棋 ?"," 提 示 ",MB_YESNO)==IDYES) 
( /同意 和 棋 
tcpPackage.cmdType = CT DRAWCHESSACCEPTANCE; 
/发 送 和 棋 数 据 包 
m ClientSock.Send(&tcpPackage,sizeof(TCP. PACKAGE)); 
/进行 和 棋 处 理 ， 游 戏 结束 
m TestNum = 0; 
m IsDown = FALSE; 
m IsStart = FALSE; 
m IsWin = FALSE; 
m State = esEND; 
InitializeNode(); /初始 化 棋子 
Invalidate(); // 更 新 界面 
m_LocalChessPT.x = m_LocalChessPT.y = -1; 
m_RemoteChessPT.x = m_RemoteChessPT.y = -1; 
) 
else /拒绝 和 棋 
{ 
tcpPackage.cmdType = CT DRAWCHESSDENY; 
/发 送 和 棋 数据 包 
m_ClientSock.Send(&tcpPackage,sizeof(TCP_PACKAGE)); 
H 
} 
else if (tcpPackage.cmdType == CT_GIVEUP) IRAN T 
t 
CSrvFiveChessDlg *pDlg = (CSrvFiveChessDlg*)GetParent(); 
/| 结束 游戏 
m_TestNum = 0; 
m_lsDown = FALSE:; 
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m_lsStart = FALSE; 
m_lsWin = FALSE; 
m State = esEND; 
InitializeNode(); /初始 化 棋子 
Invalidate(); /更 新 界面 
/初始 化 用 户 最 近 放 置 的 棋子 坐标 和 对 方 最 近 放 置 的 棋子 坐标 
m LocalChessPT.x = m LocalChessPT.y = -1; 
m RemoteChessPT.x - m RemoteChessPT y - -1; 
MessageBox(" 您 获胜 了 !"," 提 示 "); 
) 
F 


delete []pBuffer; /释放 缓冲 区 


(16) 向 对 话 框 中 添加 SetRecentNode 方法 ， 设 置 棋 子 的 8 个 临近 节点 。 





void CChessBorad::SetRecentNode(NODE *pNode) 
{ 


int nCurX = pNode-»m nX; /获取 当前 节点 的 行 索引 

int nCurY = pNode-»m nY; /获取 当前 节点 的 列 索引 

if (nCurX > 0 && nCurY >0) /左上 方 的 临近 节点 
pNode-»m pRecents[0] = &m NodeList[nCurX-1][nCurY-1]; 

else 
pNode-»m pRecents[0] = NULL; 

if (nCurY » 0) /上 方 临近 节点 
pNode-»m pRecents[1] = &m NodeList[nCurX][nCurY-1]; 

else 
pNode-»m pRecents[1] = NULL; 

if (nCurX « m nColCount-1 && nCurY » 0) // 右 上 方 临近 节点 
pNode-»m pRecents[2] = &m_NodeList[nCurX+1][nCurY-1]; 

else 
pNode-»m pRecents[2] = NULL; 

if (nCurX »0) // 左 方 临近 节点 
pNode->m_pRecents[3] = &m NodeList[nCurX-1][nCurY]; 

else 
pNode->m_pRecents[3] = NULL; 

if (nCurX < m_nColCount-1) // 右 方 临 近 节 点 
pNode->m_pRecents[4] = &m NodeList[nCurX--1][nCurY]; 

else 
pNode->m_pRecents[4] = NULL; 

if (nCurX >0 && nCurY < m_nRowCount-1) /左下 方 临近 节点 
pNode-»m pRecents[5] = &m_NodeList[nCurX-1][nCurY+1]; 

else 
pNode->m_pRecents[5] = NULL; 

if (nCurY < m nRowCount-1) /下 方 临近 节点 
pNode-»m pRecents[6] = &m_NodeList[nCurX][nCurY +1]; 

else 
pNode->m_pRecents[6] = NULL; 

if (nCurX < m nColCount-1 && nCurY < m nRowCount-1) // 右 下 方 临近 节点 
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pNode->m_pRecents[7] = &m_NodeList[nCurX+1][nCurY +1]; 
else 
pNode->m_pRecents[7] = NULL; 





10.7 游戏 控制 窗 体 模块 设计 





10.7.1 ”游戏 控制 窗 体 模块 概述 


游戏 控制 窗 体 实现 的 主要 功能 包括 开始 、 悔 棋 、 和 棋 、 认 输 和 游戏 回放 ， 其 运行 效果 如 图 10.12 所 示 。 


SERRE ES 





图 10.12 游戏 控制 窗 体 的 运行 效果 


10.7.2 ”游戏 控制 窗 体 模块 界面 布局 


游戏 控制 窗 体 界面 布局 如 下 : 
(1) 创建 一 个 对 话 框 类 ， 类 名 为 CLeftPanel。 
(2) 向 对 话 框 中 添加 按钮 和 图 片 控件 。 主 要 控件 属性 如 表 10.2 所 示 。 


表 10.2 控制 窗 体 控件 属性 设置 























控件 ID 控件 属性 关联 变量 
Type: Bitmap 
IDC- STANE Image: IDB_PLAYER * 
IDC BEGINGAME Caption: 开始 无 
IDC BT BACK Caption: 悔 棋 无 
IDC GIVE UP Caption: 认输 无 
IDC BACK PLAY Caption: 游戏 回放 无 
IDC DRAW CHESS Caption: A X 
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10.7.3 ”游戏 控制 窗 体 模块 实现 过 程 


游戏 控制 窗 体 实现 过 程 如 下 : 
(1) 处 理 “开始” 按钮 的 单 击 事件 ， 向 对 方 发 送 开始 游戏 的 请 求 。 





void CLeftPanel::OnBegingame() 
( 

CSrvFiveChessDlg *pDlg = (CSrvFiveChessDlg*)GetParent(); 

pDlg-»m ChessBoard.BeginGame(); /开始 游戏 
) 


(2) 处 理 “ 悔 棋 ” 按 钮 的 单 击 事件 ， 向 对 方 发 送 悔 棋 请 求 。 
void CLeftPanel::OnBtBack() 


{ 
CSrvFiveChessDlg *pDlg = (CSrvFiveChessDlg*)GetParent(); 


if (pDig-»m, ChessBoard.m State--esBEGIN) // 判 断 游戏 是 否 进行 中 
{ 
TCP_PACKAGE tcpPackage; // 定 义 数 据 包 
tcpPackage.cmdType = CT. BACKREQUEST; // 设 置 悔 棋 请 求 信息 
// 用 户 已 经 下 棋 


if (pDlg->m_ChessBoard.m_LocalChessPT.x > -1 
&& pDlg-»m ChessBoard.m LocalChessPT.y > -1) 


/发 出 悔 棋 请 求 
pDlg->m_ChessBoard.m_ClientSock.Send(&tcpPackage,sizeof(TCP_PACKAGE)); 
} 


else 


MessageBox(" 当 前 不 允许 悔 棋 "," 提 示 "); 


} 
G) 处 理 “ 和 棋 ” 按 钮 的 单 击 事件 ， 向 对 方 发 送 和 棋 请 求 。 








void CLeftPanel::OnDrawChess() 


{ 
CSrvFiveChessDlg *pDlg = (CSrvFiveChessDlg*)GetParent(); 


if (pDIg-»m, ChessBoard.m State--esBEGIN) JF BREAK EDTA 
t 
TCP. PACKAGE tcpPackage; /定义 数据 包 
tcpPackage.cmdType = CT. DRAWCHESSREQUEST: // 设 置 和 棋 请 求 信息 
/发 送 和 棋 请 求 


pDIg->m_ChessBoard.m_ClientSock.Send(&tcpPackage,sizeof(TCP_PACKAGE)); 
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(4) 处 理 “认输” 按钮 的 单 击 事件 ， 向 对 方 发 送 认 输 消息 ， 同 时 结束 当前 游戏 。 


void CLeftPanel::OnGiveUp() 
t 
CSrvFiveChessDlg *pDlg = (CSrvFiveChessDlg*)GetParent(); 
if (pDIg-»m. ChessBoard.m State--esBEGIN) // 潮 断 游戏 是 否 进行 中 
t 
if (MessageBox(" 确 实 要 认输 吗 ?"," 提 示 ",MB_YESNO)==IDYES) 
{ 


TCP_PACKAGE tcpPackage; /定义 数据 包 
tcpPackage.cmdType = CT. GIVEUP; // 设 置 数据 包 类 型 
/发 送 认输 信息 


pDIg->m_ChessBoard.m_ClientSock.Send(&tcpPackage,sizeof(TCP_PACKAGE)); 
/进行 和 棋 处 理 ， 游 戏 结束 

pDIg->m_ChessBoard.m_TestNum = 0; 

pDlg-»m ChessBoard.m IsDown = FALSE; 

pDlg-*»m ChessBoard.m IsStart = FALSE; 

pDlg-*»m ChessBoard.m IsWin = FALSE; 

pDlg-»m ChessBoard.m State = esEND; 

pDlg-»m ChessBoard.InitializeNode(); 

pDlg-»m, ChessBoard.Invalidate(); // 更 新 界面 

/初始 化 用 户 最 近 放 置 的 棋子 坐标 和 对 方 最 近 放 置 的 棋子 坐标 
pDIg->m_ChessBoard.m_LocalChessPT.x = pDIg->m_ChessBoard.m_LocalChessPT.y = -1; 
pDig->m_ChessBoard.m_RemoteChessPT.x = pDlg-»m ChessBoard.m RemoteChessPT y- -1; 
MessageBox(" 您 输 了 !"," 提 示 "); 


} 


CS) 处 理 “ 游 戏 回放 ”按钮 的 单 击 事件 ， 如 果 当 前 游戏 已 结束 ， 则 进行 游戏 回放 。 


void CLeftPanel::OnBackPlay() 
t 








CSrvFiveChessDlg *pDlg = (CSrvFiveChessDlg*)GetParent(); 
if (pDIg-»m. ChessBoard.m State--esEND) /游戏 进行 中 不 允许 回放 
t 

THAI Ee To f 8 7 i8 

if (pDlg-»m ChessBoard.m BackPlayList.GetCount()»0) 


IE ABS 
pDlg-»m ChessBoard.lnitializeNode(); 
pDig-»m, ChessBoard.Invalidate(); /更 新 棋盘 窗口 
pDlg-»m, ChessBoard.GamePlayBack(); /进行 游戏 回放 
) 
else 
ii 
MessageBox(" 当 前 没有 游戏 记录 !"," 提 示 "); 
ss 
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) 


else 


t 


MessageBox(" 当 前 不 允许 回放 !," 提 示 "); 


108 对 方 信息 窗 体 模 决 设计 





10.8.1. 对 方 信息 窗 体 模块 概述 


对 方 信息 窗 体 主 要 用 于 显示 对 方 的 下、 昵称 和 网 络 状态 等 信息 ， 并 允许 向 对 方 发 送 文 本 数据 。 对 
方 信息 窗 体 的 运行 效果 如 图 10.13 所 示 。 
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图 10.13 ”对 方 信息 窗 体 的 运行 效果 
10.8.2 ”对 方 信息 窗 体 模块 界面 布局 


对 方 信息 窗 体 界面 布局 如 下 : 
(1) 创建 一 个 对 话 框 类 ， 类 名 为 CRightPanel。 


@ 
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(2) 向 对 话 框 中 添加 按钮 、 列 表 视 图 、 静 态 文 本 和 多 功能 文本 框 等 控件 。 
GO 设置 控件 主要 属性 ， 如 表 10.3 所 示 。 


X103 对方 信息 窗 体 控件 属性 设置 
































控件 ID 控件 属性 关联 变量 
Type: Bitmal 
IDC STATIC LL perd 无 
= Image: IDB PLAYER 
View: Report A i 
IDC USERLIST CListCtrl: m UserList 
Ban Sort: None 
IDC CONVERSATION Malte TRUE CRichEditCtrl: m MsgList 
= Read only: TRUE i 
IDC_NETSTATE Border: FALSE CblackStatic: m NetState 
IDC MESSAGE Border: FALSE CRichEditCtrl: m Msg 








10.8.3 “对方 信息 窗 体 模块 实现 过 程 


对 方 信息 窗 体 实 现 过 程 如 下 : 
(1) 处 理 对 话 框 的 WM. SIZE 消息 ， 在 对 话 框 的 大 小 、 位 置 改变 时 ， 调 整 窗 体 中 控件 的 大 小 和 位 置 。 





void CRightPanel::OnSize(UINT nType, int cx, int cy) 


( 


CDialog::OnSize(nType, cx, cy); 
if (m Initialized == TRUE) 


{ 


CRect editRC,cItRC,panelRC; 
GetClientRect(cltRC); 

m Panel3.GetClientRect(panelRC); 

m Panel3.MapWindowPoints(this,panelRC); 

m Frame1.GetClientRect(editRC); 

m Frame1.MapWindowPoints(this,editRC); 

int nPanelBottom = cItRC.Height()-m nPanelToBottom; 
panelRC.bottom = nPanelBottom; 

m Panel3.MoveWindow(panelRC); 
panelRC.DeflateRect(1,1,1,1); 

m MsgList.MoveWindow(panelRC); 

int nEditBottom = cItRC.Height()-m nEditToBottom; 
int nEditHeight = editRC.Height(); 

editRC.bottom = nEditBottom ; 

editRC.top = nEditBottom-nEditHeight; 

m Frame1.MoveWindow(editRC); 
editRC.DeflateRect(1,1,1,1); 

m Msg.MoveWindow(editRC); 

CRect ButtonRC; 

m SendBtn.GetClientRect(ButtonRC); 


// 获 取 窗 体 客户 区 域 
/映射 窗 体 坐 标 


1/ 设置 信息 列表 编辑 框 显示 区 域 


// 获 取 文本 框 高 度 


1/ 设置 文本 框 显示 区 域 


& 


C++ 项 目 开发 全 程 实录 (第 2 版 ) 





editRC.OffsetRect(editRC. Width()*10,0); 

editRC.right = editRC.left + ButtonRC.Width(); 

m SendBtn.MoveWindow(editRC); /设置 发 送 按钮 显示 区 域 
GetParent()->Invalidate(): // 更 新 主 窗 体 


} 


(2) 处 理 “ 发 送 ”按钮 的 单 击 事件 ， 将 文本 框 中 的 文本 发 送 到 对 方 。 


void CRightPanel::OnSendMsg() 
{ 


CSrvFiveChessDlg *pDlg = (CSrvFiveChessDlg*)GetParent(); 


if (pDIg-»m. ChessBoard.m IsConnect) // 判 断 是 否 处 于 连接 状态 
í 
CString csText; 
m_Msg.GetWindowText(csText); /获取 发 送 的 文本 信息 
if (IcsText.ISEmpty() && csText.GetLength()« 512) /验证 文本 长 度 
í 
TCP_PACKAGE txtPackage; /定义 数据 包 
memset(&txtPackage,0,sizeof(TCP_PACKAGE)); /初始 化 数据 包 
txtPackage.cmdType = CT. TEXT; /设置 数据 包 类 型 
strcpy(txtPackage.chText,csText); /填充 数据 包 文本 
/发 送 数 据 包 


pDlg->m_ChessBoard.m_ClientSock.Send(&txtPackage,sizeof(TCP_PACKAGE)); 
// 将 发 送信 息 添加 到 信息 显示 列表 中 

CString csNickName = m UserList.GetltemText(0,0); // 获 取 用 户 昵称 
csNickName += "说 :"; 

csText = csNickName + csText; 

m, MsgList.SetSel(-1,-1); 

m MsgList.ReplaceSel(csText); 

m MsgList.SetSel(-1,-1); 

m MsgList.ReplaceSel("n"); 

m Msg.SetWindowText(""); 





10.9 客户 端 主 窗 体 模块 设计 


WWR 


10.91 客户 端 主 窗 体 模块 概述 


客户 端 主 窗 体 主要 由 游戏 控制 窗 体 、 棋 盘 窗 体 和 对 方 信息 窗 体 3 个 子 窗 体 构成 ， 其 运行 效果 如 
10.14 所 示 。 


e. 
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图 10.14 网络 五 子 棋 客户 端 主 窗 体 的 运行 效果 
10.92 ”客户 端 主 窗 体 模 块 实现 过 程 


客户 端 主 窗 体 实现 过 程 如 下 : 

(1) 创建 一 个 基于 对 话 框 的 工程 ， 工 程 名 称 为 ClientFiveChess。 工 程 向 导 将 创建 一 个 默认 的 对 话 
框 类 一 一 CClientFiveChessDlg， 该 类 将 作为 网 络 五 子 棋 客户 端的 主 窗 体 。 

(2) 定义 3 个 子 窗 体 变量 ， 分 别 表示 游戏 控制 窗 体 、 棋 盘 窗 体 和 对 方 信息 窗 体 。 


CLeftPanel m LeftPanel; /游戏 控制 窗 体 
CRightPanel m_RightPanel; // 对 方 信息 窗 体 
CChessBorad m ChessBoard; /棋盘 窗 体 


G) 在 对 话 框 初始 化 时 创建 游戏 控制 窗 体 、 棋 盘 窗 体 和 对 方 信息 窗 体 ， 并 调整 这 3 个 窗 体 的 大 小 
和 位 置 。 


BOOL CClientFiveChessDlg::OnlnitDialog() 


…"/ 省 略 不 必要 的 代码 

m_RightPanel.Create(IDD_RIGHTPANEL_DIALOG this); // 创 建 对 方 信息 窗 体 
m_RightPanel.ShowWindow(SW_SHOW); / 旺 示 对 方 信息 窗 体 
CRect wndRC; 

m RightPanel.GetWindowRect(wndRC); // 获 取 对 方 信息 窗 体 区 域 
int nWidth = wndRC.Width(); // 获 取 窗 体 宽 度 

CRect cItRC; 
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} 


GetClientRect(cItRC); 

int nHeight = cItRC.Height(); 

CRect pnIRC; 

pnIRC.left = cItRC.right-nWidth; 

pnIRC.top = 0; 

pnIRC.bottom = nHeight; 

pnIRC.right = cItRC.right; 

m RightPanel.MoveWindow(pnIRC); 

int nRightWidth = nWidth; 

m LeftPanel.Create(IDD LEFTPANEL, DIALOG.this); 
m LeftPanel.ShowWindow(SW. SHOW); 

m LeftPanel.GetWindowRect(wndRC); 

nWidth = wndRC.Width(); 

pnIRC.left = 0; 
pnIRC.top = 0; 

pnIRC.bottom = nHeight; 

pnIRC.right = nWidth; 

int nLeftWidth = nWidth; 

m LeftPanel.MoveWindow(pnIRC); 

m ChessBoard.Create(IDD CHESSBORAD DIALOG this); 
m ChessBoard.ShowWindow(SW. SHOW); 
/计算 棋盘 的 显示 区 域 

pnIRC.left = nLeftWidth; 

pnIRC.top = 0; 

pnIRC.bottom = nHeight; 

// 整 个 窗 体 的 区 域 去 除 对方 信 息 窗 体 的 宽度 

pnIRC.right = cltRC.Width() - nRightWidth; 

m ChessBoard.MoveWindow(pnIRC); 

m bCreatePanel = TRUE; 

return TRUE; 





/获取 主 窗 体 客户 区 域 
/获取 主 窗 体高 度 


// 设 置 对 方 信息 窗 体 显示 区 域 
// 记 录 对 方 信息 窗 体 的 宽度 
// 创 建 游戏 控制 窗 体 

// 显 示 游 戏 控制 窗 体 

// 获 取 游戏 控制 窗 体 区 域 

// 获 取 游戏 控制 窗 体 宽度 


// 记 录 游 戏 控制 窗 体 宽度 

// 设 置 游戏 控制 窗 体 显示 区 域 
// 创 建 棋盘 窗 体 

// 显 示 棋 盘 窗 体 

// 获 取 游戏 控制 窗 体 的 宽度 


// 主 窗 体 的 高 度 


// 设 置 棋盘 窗 体 显示 区 域 





(4) 处 理 对 话 框 的 WM. SIZE 消息 ， 在 对 话 框 大 小 改变 时 ， 调 整 子 窗 体 的 大 小 和 位 置 。 





void CClientFiveChessDlg::OnSize(UINT nType, int cx, int cy) 


CDialog::OnSize(nType, cx, cy); 

if (m bCreatePanel) 

t 
CRect wndRC; 
m RightPanel.GetWindowRect(wndRC); 
int nWidth = wndRC.Width(); 
CRect cItRC; 
GetClientRect(cltRC); 
int nHeight = cItRC.Height(); 
/定义 窗 体 列表 显示 的 区 域 
CRect pnIRC; 
pnIRC.left = cItRC.right-nWidth; 
pnIRC.top = 0; 
pnIRC.bottom = nHeight; 


IP BRI-T- a s e ic i 
/获取 对 方 信息 窗 体 的 区 域 
/获取 对 方 信息 窗 体 的 宽度 


// 获 取 主 窗 体 客户 区 域 
// 获 取 主 窗 体高 度 





第 10 章 快乐 五 子 棋 (Visual Studio 2017+Socket 套 接 字 实 现 ) 





pnIRC.right = cItRC.right; 


m RightPanel.MoveWindow(pnIRC); // 设 置 对 方 信 息 窗 体 显 示 区 域 
int nRightWidth = nWidth; 

m RightPanel.Invalidate(); // 更 新 对 方 信息 窗 体 

m LeftPanel.GetWindowRect(wndRC); // 获 取 游 戏 控制 窗 体 区 域 
nWidth = wndRC.Width(); // 获 取 游戏 控制 窗 体 宽度 
pnIRC.left = 0; 

pnIRC.top = 0; 


pnIRC.bottom = nHeight; 
pnIRC.right = nWidth; 


m LeftPanel.MoveWindow(pnIRC); /设置 游戏 控制 窗 体 显 示 区 域 
int nLeftWidth = nWidth; 

pnIRC.left = nLeftWidth; /为 游戏 控制 窗 体 的 宽度 
pnIRC.top = 0; 

pnIRC.bottom = nHeight; // 主 窗 体 的 高 度 


// 整 个 窗 体 的 区 域 去 除 对 方 信息 窗 体 的 宽度 

pnIRC.right = cltRC.Width() - nRightWidth; 

m ChessBoard.MoveWindow(pnIRC); // 设 置 棋盘 窗 体 显示 区 域 
m ChessBoard.Invalidate(); // 更 新 棋盘 窗 体 


H 
(5) 处 理 对 话 框 的 WM_GETMINMAXINFO 消息 ， 限 制 对 话 框 的 最 小 窗 体 大 小 。 








void CClientFiveChessDlg::OnGetMinMaxlInfo(MINMAXINFO FAR* IpMMI) 


IpMMI-»ptMinTrackSize.x = 800; // 限 制 窗 体 最 小 宽度 
IpMMI->ptMinTrackSize.y = 500; /限制 窗 体 最 小 高 度 
CDialog::OnGetMinMaxlnfo(IpMMI); 

) 





在 客户 端的 主 窗 体 中 包含 游戏 控制 窗 体 、 棋 盘 窗 体 和 对 方 信息 窗 体 ， 这 3 个 窗 体 的 设计 过 程 与 服 
务 器 端 对 应 的 窗 体 设计 过 程 是 完全 相同 的 ， 因 此 不 再 单独 介绍 。 其 设计 过 程 请 参考 10.5 节 、10.6 节 和 
10.7 节 。 


10.10 项 目 文件 清单 


服务 器 端的 项 目 文件 清单 如 表 10.4 所 示 。 
表 10.4 ”服务 器 端 文件 清单 























文件 名 称 | 文件 类 型 文件 描述 
SrvFiveChess.dsp | 工程 文件 服务 器 端 工程 文件 
SrvFiveChess dsw | 工作 区 文件 服务 器 端 工作 区 文件 
SrvFiveChess.rc | 资源 文件 服务 器 端 资源 文件 
SrvSock.cpp. 源 文件 服务 器 端 套 接 字 
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续 表 

文件 名 称 文件 类 型 文件 描述 
SrvFiveChessDlg.cpp 源 文件 主 对 话 框 
SrvFiveChess.cpp 源 文件 应 用 程序 源 文件 
ServerSetting.cpp 源 文件 服务 器 设置 
RightPanel.cpp 源 文件 对 方 信息 窗 体 
LeftPanel.cpp 源 文件 游戏 控制 窗 体 
CustomMenu.cpp 源 文件 自 定义 菜单 
ClientSock.cpp 源 文件 客户 端 套 接 字 
ChessBorad.cpp 源 文件 棋盘 
BlackStatic.cpp 自 定义 静态 文本 控件 
客户 端 项 目 文件 清单 如 表 10.5 所 示 。 

表 10.5 客户 端 文件 清单 

文件 名 称 文件 类 型 文件 描述 
ClientFiveChess.dsp 工程 文件 客户 端 工程 文件 
ClientFiveChess.dsw 工作 区 文件 客户 端 工作 区 文件 
ClientFiveChess.rc 资源 文件 客户 端 资源 文件 
SrvInfo.cpp 源 文件 登录 服务 器 窗 体 
RightPanel.cpp 源 文件 对 方 信息 窗 体 
LeftPanel.cpp 源 文件 游戏 控制 窗 体 
ClientSock.cpp 源 文件 客户 端 套 接 字 
ClientFiveChessDlg.cpp 源 文件 客户 端 主 窗 体 
ClientFiveChess.cpp 源 文件 应 用 程序 源 文件 
ChessBorad.cpp 源 文件 棋盘 
BlackStatic.cpp 源 文件 自 定义 静态 文本 控件 





Z, 
Owen 在 上 述 项 目 文件 清单 中 ，.cpp 源 文件 还 有 对 应 的 卫 头 文件 ， 它 们 一 起 构成 了 一 个 类 ， 其 中 ， 
h 头 文件 包含 的 是 类 的 声明 信息 ，.cpp 源 文件 包含 的 是 类 的 定义 ， 即 类 的 实现 。 限 于 篇 幅 ，.h XX 


件 在 上 述 表 格 中 没有 列举 。 


10.11 A 章 总 


本 章 实现 了 一 个 五 子 棋 游 戏 ， 并 且 实 现 了 游戏 悔 棋 、 游 戏 回放 和 双方 通话 功能 。 通 过 本 章 的 学 习 ， 
读者 应 掌握 基本 的 绘图 技巧 、 链 表 的 实际 应 用 、 定 义 网 络 应 用 协议 〈 数 据 包 结构 ) 及 使 用 套 接 字 进 行 


网 络 通信 等 。 


e. 


